CLIENTES ATIVOS E INATIVOS
Bom Pessoal, pesso a ajuda de vocês porque nunca trabalhei dessa forma
Tenho um cadastro de clientes que criei, funciona normalmente sem BUGS nesse cadastro eu determino se o CLIENTE esta ativo ou inativo
com uma COMBOBOX
Se eu selecionar a combo o nome ATIVO salvo na tabela ACCESS 2003 o TEXTO da COMBO se INATIVO tambem, mas gostaria de mudar para
uma forma onde nunca trabalhei que é colocar o TIPO da tabela SIM/NÃO no access e ao selecionar o tipo da combo validasse a tabela
Criei DUAS colunas na tabela com os nomes ATIVO e a outra INATIVO no tipo SIM/NÃO
como posso fazer isso? Gostaria de aperfeissoar os mes conhecimento pergundo aqui!
Obrigado
Jonathan
Tenho um cadastro de clientes que criei, funciona normalmente sem BUGS nesse cadastro eu determino se o CLIENTE esta ativo ou inativo
com uma COMBOBOX
Se eu selecionar a combo o nome ATIVO salvo na tabela ACCESS 2003 o TEXTO da COMBO se INATIVO tambem, mas gostaria de mudar para
uma forma onde nunca trabalhei que é colocar o TIPO da tabela SIM/NÃO no access e ao selecionar o tipo da combo validasse a tabela
Criei DUAS colunas na tabela com os nomes ATIVO e a outra INATIVO no tipo SIM/NÃO
como posso fazer isso? Gostaria de aperfeissoar os mes conhecimento pergundo aqui!
Obrigado
Jonathan
Eu acho que não precisa duas colunas.Uma já basta.
Olha esse código:
Esse código pertence a um PDV que eu fiz...
If tbVendedor.RecordCount > 0 Then
tbVendedor.MoveFirst
nomevendedor = vbNewLine
Do While tbVendedor.EOF = False
If tbVendedor.Fields([Ô]inativ[Ô]) = False Then
nomevendedor = nomevendedor & tbVendedor.Fields([Ô]codigo[Ô]) & [Ô] - [Ô] & tbVendedor.Fields([Ô]descri[Ô]) + vbNewLine
End If
tbVendedor.MoveNext
Loop
Esse código pertence a um PDV que eu fiz...
If tbVendedor.RecordCount > 0 Then
tbVendedor.MoveFirst
nomevendedor = vbNewLine
Do While tbVendedor.EOF = False
If tbVendedor.Fields([Ô]inativ[Ô]) = False Then
nomevendedor = nomevendedor & tbVendedor.Fields([Ô]codigo[Ô]) & [Ô] - [Ô] & tbVendedor.Fields([Ô]descri[Ô]) + vbNewLine
End If
tbVendedor.MoveNext
Loop
Funciona, mas no seu código ele verifica se esta INATIVO e faz o processo
gostei! só que o que eu queria é como eu valido o campo
Ex.
Se na COMBOBOX eu selecionar o TEXTO ATIVO deixa o campo da tabela como TRUE
Na hora de fazer o UPDATE ou INSERT INTO
Utilizo ADO na minha conexão
--------------------------------------------------------------------------------------------------------------------------------------------------------------
PDUARTE9 Escreveu:
Sei que não precisa de DUAS COLUNAS, mas decidi fazer assim.
Obrigado
Conto com vocês!
gostei! só que o que eu queria é como eu valido o campo
Ex.
Se na COMBOBOX eu selecionar o TEXTO ATIVO deixa o campo da tabela como TRUE
Na hora de fazer o UPDATE ou INSERT INTO
Utilizo ADO na minha conexão
--------------------------------------------------------------------------------------------------------------------------------------------------------------
PDUARTE9 Escreveu:
Citação:Eu acho que não precisa duas colunas.Uma já basta.
Sei que não precisa de DUAS COLUNAS, mas decidi fazer assim.
Obrigado
Conto com vocês!
olha esse então:
Private Sub Command1_Click()
If Combo1.ListIndex = 0 Then
MsgBox [Ô]ativo[Ô]
Else
If Combo1.ListIndex = 1 Then
MsgBox [Ô]inativo[Ô]
End If
End If
End Sub
Sub Form_Load()
Combo1.AddItem [Ô]ativo[Ô]
Combo1.AddItem [Ô]inativo[Ô]
End Sub
Entendesse?
Private Sub Command1_Click()
If Combo1.ListIndex = 0 Then
MsgBox [Ô]ativo[Ô]
Else
If Combo1.ListIndex = 1 Then
MsgBox [Ô]inativo[Ô]
End If
End If
End Sub
Sub Form_Load()
Combo1.AddItem [Ô]ativo[Ô]
Combo1.AddItem [Ô]inativo[Ô]
End Sub
Entendesse?
/\
No lugar do msgbox,tu faz referencia ao campo Sim/Não do BD e grava...
Ex:
No lugar do msgbox,tu faz referencia ao campo Sim/Não do BD e grava...
Ex:
Entendi!
Só que se eu utilizar uma STRING SQL
Ex.
Obrigado
Só que se eu utilizar uma STRING SQL
Ex.
Citação:Do seu jeito da certo! Mas e como faria com a SQL acimaDim Comand as New ADODB.Command
wtih Comand
.ActiveConnection = Conexao
.CommandType = adCmdText
.CommandText = [Ô]INSERT INTO Clientes (Ativo)VALUES([[txt-color=#e80000]b]O que eu INFORMARIA AQUI[ô][/b][/txt-color])[Ô]
.Execute
End With
Obrigado
True ou False !!!
Sim, mas como eu determino isso sendo que é uma COMBOX que me diz em TEXTO ( ATIVO / INATIVO )
Isso é TEXTO selecioado o access não aceita eu informar a COMBO como referencia ja que no DB é TRUE e FALSE.
Obrigado
Isso é TEXTO selecioado o access não aceita eu informar a COMBO como referencia ja que no DB é TRUE e FALSE.
Obrigado
Filman, essa resposta o Pduartes te respondeu acima.
if combo1 = [Ô]INATIVO[Ô] THEN
SEUCAMPO = TRUE
ELSE
SEUCAMPO = FALSE
END IF
SEUCAMPO = TRUE
ELSE
SEUCAMPO = FALSE
END IF
Tópico encerrado , respostas não são mais permitidas