Meus amigos, bom dia.
Como pegar a data de um computador e inserir na tabela e fazer com que ele subtraia com uma data que eu coloquei na tabela.
meu objetivo é com que ele seja um sistema de teste. Se eu abrir o sistema ele vai inserir todos dos dias.
Ou inserir direto sem precisar fazer caixa não acopladas.
Como pegar a data de um computador e inserir na tabela e fazer com que ele subtraia com uma data que eu coloquei na tabela.
meu objetivo é com que ele seja um sistema de teste. Se eu abrir o sistema ele vai inserir todos dos dias.
Ou inserir direto sem precisar fazer caixa não acopladas.
- Código:
Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database
Dim sSQL As String
Dim dataDoPc
dataDoPc = Date
Me.Text4 = dataDoPc
Set db = CurrentDb
sSQL = "INSERT INTO verificar"
'CAMPOS----------------------------------------
sSQL = sSQL & "("
sSQL = sSQL & " data"
sSQL = sSQL & ")"
'VALORES -------------------------------------
sSQL = sSQL & " VALUES"
sSQL = sSQL & "("
sSQL = sSQL & " '" & Trim(Me.Text4) & "'"
sSQL = sSQL & ")"
db.Execute sSQL
End Sub