SALVANDO A SITUACAO DE UM CHECKBOX
Pessoal sei q o checkbox serve como true/false más como fazer para isso ir salvo dentro do meu banco de dados.
Criei um campo Sim/Nao no banco!
eu salvo os registros desta forma no banco.
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase([Ô]c:\Sistema\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From tabela where CODIGO = [ô][Ô] & CODIGO & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If dyn.EOF Then
dyn.AddNew
dyn([Ô]CODIGO[Ô]) = CODIGO
dyn([Ô]EMPRESA[Ô]) = EMPRESA
dyn([Ô]ENDERECO[Ô]) = ENDERECO
dyn([Ô]checkbox[Ô]) = TRUE blz ele funciona so que eu nao sei quando ele foi clicado como faço para que o sistema identifique que o check box ficou verdadeiro ou clicado?
dyn.Update
MsgBox [Ô]Inclusão Realizada com (SUCESSO).![Ô], vbInformation
Else
MsgBox [Ô]Está inclusão já foi registrada [Verifique].[Ô], vbExclamation
Exit Sub
End If
db.Close
Criei um campo Sim/Nao no banco!
eu salvo os registros desta forma no banco.
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase([Ô]c:\Sistema\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From tabela where CODIGO = [ô][Ô] & CODIGO & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If dyn.EOF Then
dyn.AddNew
dyn([Ô]CODIGO[Ô]) = CODIGO
dyn([Ô]EMPRESA[Ô]) = EMPRESA
dyn([Ô]ENDERECO[Ô]) = ENDERECO
dyn([Ô]checkbox[Ô]) = TRUE blz ele funciona so que eu nao sei quando ele foi clicado como faço para que o sistema identifique que o check box ficou verdadeiro ou clicado?
dyn.Update
MsgBox [Ô]Inclusão Realizada com (SUCESSO).![Ô], vbInformation
Else
MsgBox [Ô]Está inclusão já foi registrada [Verifique].[Ô], vbExclamation
Exit Sub
End If
db.Close
Pessoal ja consegui fazer ele salvar no banco agora preciso trazer a situação dele para a tela de cadastro para consulta. estou usando o lostfocus em um campo onde digito o codigo do cliente e ele tras os dados do cadastro dele assim.
Private Sub CODIGO_LostFocus()
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase([Ô]c:\sistema\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From tabela where CODIGO = [ô][Ô] & CODIGO & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If Not dyn.EOF Then
CODIGO = dyn([Ô]CODIGO[Ô]) & [Ô][Ô]
EMPRESA = dyn([Ô]EMPRESA[Ô]) & [Ô][Ô]
ENDERECO = dyn([Ô]ENDERECO[Ô]) & [Ô][Ô]
AT1 = dyn(AT1.Value) [ô] assim nao traz a posição dele ele fica sempre como 0 e não 1 que é a situação atual!
db.Close
End If
End Sub
Private Sub CODIGO_LostFocus()
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase([Ô]c:\sistema\Cadastro.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From tabela where CODIGO = [ô][Ô] & CODIGO & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If Not dyn.EOF Then
CODIGO = dyn([Ô]CODIGO[Ô]) & [Ô][Ô]
EMPRESA = dyn([Ô]EMPRESA[Ô]) & [Ô][Ô]
ENDERECO = dyn([Ô]ENDERECO[Ô]) & [Ô][Ô]
AT1 = dyn(AT1.Value) [ô] assim nao traz a posição dele ele fica sempre como 0 e não 1 que é a situação atual!
db.Close
End If
End Sub
Tópico encerrado , respostas não são mais permitidas