CAMPO TXT VARIAVEIS
Acho que entendi a declaracoes de variaveis
só que nao estou conseguindo colocalas no seu devido lugar
exemplo :
Tenho um Campo no forme com TxtNome: que seria o nome do Funcionario
como o nome do funcionario se repete na taleba que tenho
quero criar uma variavel que de valor a cada nome inserido Tipo:cristiano = 1
se cristiano teve 50 inclusoes entao terei resultado ( Cristiano =50)
e tambem com venda tenho apenas tres produtos.
ai seria asim produto banana = 1 bola = 1 doce =1
resultado Cristiano =50 Destes 50 (10 bananas 20 sao bola 20 doces)
presciso de ajuda sou novato e tenho o interesse muito granrde de aprender
por favor explique com calma!
há Urgente!!!!
só que nao estou conseguindo colocalas no seu devido lugar
exemplo :
Tenho um Campo no forme com TxtNome: que seria o nome do Funcionario
como o nome do funcionario se repete na taleba que tenho
quero criar uma variavel que de valor a cada nome inserido Tipo:cristiano = 1
se cristiano teve 50 inclusoes entao terei resultado ( Cristiano =50)
e tambem com venda tenho apenas tres produtos.
ai seria asim produto banana = 1 bola = 1 doce =1
resultado Cristiano =50 Destes 50 (10 bananas 20 sao bola 20 doces)
presciso de ajuda sou novato e tenho o interesse muito granrde de aprender
por favor explique com calma!
há Urgente!!!!
se entendi o que você quer o rotina seria mais ou menos assim:
Declare isto em um modulo ou na seção Generals do seu form
Public VarNomeFun as integer
Public VarBanana as integer
Public VarBola as Integer
Public VarDoce as Integer
em sua rotina coloque:
if textnomefun.text = "cristiano" then
VarNomeFun = VarNomeFun + 1
If textbanana.text <> "" then Varbanana = Varbanana + 1
if textbala.text <> "" then Varbala = Varbala + 1
if textdoce.text <> "" then Vardoce = Vardoce + 1
end if
se não for isso explique melhor.
Declare isto em um modulo ou na seção Generals do seu form
Public VarNomeFun as integer
Public VarBanana as integer
Public VarBola as Integer
Public VarDoce as Integer
em sua rotina coloque:
if textnomefun.text = "cristiano" then
VarNomeFun = VarNomeFun + 1
If textbanana.text <> "" then Varbanana = Varbanana + 1
if textbala.text <> "" then Varbala = Varbala + 1
if textdoce.text <> "" then Vardoce = Vardoce + 1
end if
se não for isso explique melhor.
Tópico encerrado , respostas não são mais permitidas