USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Somar vários forms
Edson_vb6
SÃO JOÃO DEL REI
MG - BRASIL
ENUNCIADA !
Postada em 21/02/2008 12:26 hs            
É isso mesmo, Treze.
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 21/02/2008 14:37 hs            
Faça o seguinte, não sei como está seu código vou apenas indicar o caminho.
 
declare em um módulo:
 
global Campo1 as string
Global Valor1 as string
global Campo2 as string
global Valor2 as string
 
ai basta você armazenar os dados nestas strings desta forma
 
ex:
no form1
 
Campo1=txtNome.tet
 
sql="SELECT * FROM Tabela1 WHERE nome='" & campo1 & "'"
Set rs= db.OpenRecordset(sql, dbOpenDynaset)
 
Valor1=rs("valor")
 
no form2 faça a comparação
 
exemplo de comparação em uma tabela
 
sql="SELECT * FROM Tabela2 WHERE nome='" & campo1 & "'"
Set rs= db.OpenRecordset(sql, dbOpenDynaset)
 
Valor2=rs("valor")
 
agora nos temos armazenados os dois valores.
 
no form2 fizemos a comparação dos nomes para que seja pego somente o valor de nomes iguais
 
pronto agora no form3 faremos o seguinte
 
txttotal.text=valor1+valor2
 
e pronto ai estaria o resultado
 
espero não ter complicado muito, pois não é simples fazer este tipo de soma em tres forms diferentes, na duvida pegunte.
 
até
 
 
TÓPICO EDITADO
   
Edson_vb6
SÃO JOÃO DEL REI
MG - BRASIL
ENUNCIADA !
Postada em 21/02/2008 23:07 hs            
OK! Vou tentar aqui e posto a resposta.
Valeu!
   
Wagnes
PASSO FUNDO
RS - BRASIL
ENUNCIADA !
Postada em 22/02/2008 21:54 hs            
Olá,
acho que no access, isto se resolveria fazendo relacionamento entre as tabelas do tipo 1 para 1.
 

Wag
   
ventana
SANTOS
SP - BRASIL
Postada em 23/02/2008 16:34 hs            
Boa tarde Amigos
 
Bem Edson_vb6
 
Em primeiro lugar voce nao precisa cadastrar o nome duas vezes, basta informar o nome fo Form1 seguido do textBox por exemplo e exibilo novamente.
 
EX. No form1 ha um campo txtNome e txtvalor1 e TxtValor2.
 
No campo Form3 ,ha 3 labels por exemplo LblNome,Lblvalor1 e Lblvalor2.
Portanto no Form3 faca:
 
lblNome.caption = Form1.txtNome1.text
lblValor1.caption = Form1.txtValor1.text
lblValor2.caption = Form1.txtValor2.text
 
Uma vez que os campos nome e valor foram digitados no Form1, voce pode
apenas exibi-los no Form3, nao precisando deixa-los editaveis.
 
Soma = cdbl("0" &  Form1.txtValor1.text) +  cdbl("0" &  Form1.txtValor1.text)
 
ou
 
Soma = cdbl("0" & lblValor1.caption ) +  cdbl("0" &  lblValor2.caption )
 
Um Abraco
 
 
 

 
     
Página(s): 2/2     « ANTERIOR  


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página