olá, tenho um bd com backend e frontend ambos com extensão .mdb, qdo converto o frontend para accdb ou accde ele dá um erro, o erro fica exatamente nessa linha vermelha:
ERRO EM TEMPO DE EXECUÇÃO: TIPOS INCOMPATÍVEIS:
Private Sub Form_Open(Cancel As Integer)
Dim db As Database, t1 As Recordset
Set db = CurrentDb
Set t1 = db.OpenRecordset("DataExpirar", dbOpenDynaset)
If t1.BOF = True Then
t1.AddNew
t1![DataExp] = Date + 30 'Esta linha soma a data atual mais 30 dias
t1.Update
Else
If t1![DataExp] < Date Then
Beep
MsgBox "O prazo de utilização deste aplicativo se esgotou!!! Entre em Contato 99 8801-0102 - Elton Costa", vbCritical
Application.Quit acPrompt
End If
End If
t1.Close
End Sub
ERRO EM TEMPO DE EXECUÇÃO: TIPOS INCOMPATÍVEIS:
Private Sub Form_Open(Cancel As Integer)
Dim db As Database, t1 As Recordset
Set db = CurrentDb
Set t1 = db.OpenRecordset("DataExpirar", dbOpenDynaset)
If t1.BOF = True Then
t1.AddNew
t1![DataExp] = Date + 30 'Esta linha soma a data atual mais 30 dias
t1.Update
Else
If t1![DataExp] < Date Then
Beep
MsgBox "O prazo de utilização deste aplicativo se esgotou!!! Entre em Contato 99 8801-0102 - Elton Costa", vbCritical
Application.Quit acPrompt
End If
End If
t1.Close
End Sub