Boa tarte.
Estou começando a programar no access na empresa em que trabalho e preciso de uma ajuda:
Preciso lançar os dados de um formulário na tabela através de um recordset, sendo que o codigo passa todo pelo depurador, mas os dados não aparecem na tabela.
Segue versão simplificada do código:
Private Sub Comando2_Click()
Call Cadastro
MsgBox "Concluído"
End Sub
---------
Private Function Cadastro()
Dim db As Database
Dim RS As Recordset
Set db = CurrentDb
Set RS = db.OpenRecordset("Tabela1")
RS.AddNew
RS("Texto0") = CStr(Me.Txt)
End Function
Agradeço desde já.
Estou começando a programar no access na empresa em que trabalho e preciso de uma ajuda:
Preciso lançar os dados de um formulário na tabela através de um recordset, sendo que o codigo passa todo pelo depurador, mas os dados não aparecem na tabela.
Segue versão simplificada do código:
Private Sub Comando2_Click()
Call Cadastro
MsgBox "Concluído"
End Sub
---------
Private Function Cadastro()
Dim db As Database
Dim RS As Recordset
Set db = CurrentDb
Set RS = db.OpenRecordset("Tabela1")
RS.AddNew
RS("Texto0") = CStr(Me.Txt)
End Function
Agradeço desde já.