Qual código para salvar dados de campo não acoplado direto na tabela?
tblSis tabela
txtDesc campo form
Desc campo tabela
tblSis tabela
txtDesc campo form
Desc campo tabela
Dim db As DAO.Database
Dim sSQL As String
Set db = CurrentDb
sSQL = "INSERT INTO tblSis "
'CAMPOS----------------------------------------
sSQL = sSQL & "("
sSQL = sSQL & " Desc " ' campo da tabelas
sSQL = sSQL & ")"
'valor do frm
sSQL = sSQL & " VALUES"
sSQL = sSQL & "("
sSQL = sSQL & " '" & Trim(Me.txtDesc ) & "' ' campo do formulário
sSQL = sSQL & ")"
db.Execute sSQL