Private Sub Form_AfterInsert()
Me.tarih = Now
End Sub
formun kayıt ekleme sonrası olayını aşağıdaki gibi düzenleyip dener misiniz?
Private Sub Form_AfterInsert()
Me.tarih = Now
End Sub