Merhaba,

Ekleme sorgusunda tarih alanı boş olursa hata verir. Bunun yerine ado kullan.

Dim rs As New ADODB.Recordset



rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



rs.AddNew

    

    rs("tc no") = Me.[tc no]

    rs("adı soyadı") = Me.[adı soyadı]

    rs("işe başlama") = Me.[işe başlama]

    rs("işten ayrılış") = Me.[işten ayrılış]

    

    rs.Update

Set rs = Nothing

    



    MsgBox ("Dosya,ARŞİV tablosuna eklendi")

    Me.Requery

    Me.Refresh

    DoCmd.GoToRecord , , acFirst

Zaten bu tablo yapısı ile çalışacak olsa bile çalışmaz. Yapılmaması Gereken Ölümcül Hatalar dosyaarşiv diye tablo adı, işe başlama diye de alan adı olmaz.