komut33'ün kodu
kendi denmelerimde sorun çıkmadı
yalnız doğum tarihini doğru formatta değiştirmeme rağmen uygun format değil uyarısı verdi

Dim Uygunluk As Long

Uygunluk = DateDiff("d", DateAdd("yyyy", 18, CDate(CLng(Me.Dota))), CDate(CLng(Me.Ra_Ta)))

If Uygunluk < 1 Then

    MsgBox ("Kaydedilemez : " & Uygunluk)

    Exit Sub

End If

If MsgBox("Sürücü Raporunu KAYDETMEK istiyor musunuz?", vbYesNo, "KAYDETME UYARISI") = vbYes Then

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Else

Me.Undo

MsgBox ("Kaydetme işlemi iptal edilmiştir"), vbCritical, "KAYDETME İPTAL BİLGİLENDİRMESİ"

Exit Sub

End If



'Me.Requery

Me.Liste1.Requery

Me.Metin42.Requery

Me.kayitsa.Requery

Me.Metin69.Requery

---

eğer isterseniz "Komut33"ün "MouseMove" yada "Form_Current" olaylarına ekleyerek butonu aktif yada pasif de yapabilirsiniz, "Form_Current" olayında  tarihler değiştiğinde 2. bir kontrol kodu daha eklemek gerekebilir
"MouseMove" yada "Form_Current" olaylarına aşağıdaki kod eklenebilir
tekrar belirteyim "Form_Current" olayında, "Dota"  ve "Ra_Ta"  çıkıldığında olaylarına aşağıdaki kod tekrar yazılmalı

Dim Uygunluk As Long

If Me.NewRecord Then

    GoTo 10

    Me.Komut33.Enabled = True

End If

    

Uygunluk = CLng(Me.Ra_Ta) - CLng(DateAdd("yyyy", 18, Me.Dota))

If Uygunluk < 1 Then

    Me.Komut33.Enabled = False

Else

    Me.Komut33.Enabled = True

End If

10