Postada em 07/02/2014 15:39 hs
Pessoal preciso saber como proceder a alteração do checkbox quando ele for marcado e desmarcado para que altera no banco de dados do access. Utilizo para fazer as alterações em minha tabela da seguinte forma mas nao funciona com checkbox.
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase("c:SistemaCadastro.Mdb", False, False, ";PWD=Senha")
query = "Select * From Tabela where CODIGO = '" & CODIGO & "'"
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If Not dyn.EOF Then
dyn.Edit
dyn("CODIGO") = CODIGO
dyn("EMPRESA") = EMPRESA
dyn("ENDERECO") = ENDERECO
dyn(AT1.Value) = CStr(AT1.Value) ' NAO ALTERA!
dyn.Update
MsgBox "Alteração Registrada com (SUCESSO).!", vbExclamation, PASTA
End If
db.Close
|
