Private Sub Komut0_Click()
'bu günden küçük olanlar
Dim hturkavci As String
Dim mesaj
    mesaj = MsgBox("DiKKAT!!! Tüm onay kutuları işaretlenecektir." & Chr(10) & Chr(10) & "Devam Etmek İstiyor musunuz?", vbYesNo + vbInformation, "İŞARETÇİ")
 
    If mesaj = vbYes Then
   hturkavci = "UPDATE Tablo1 SET Tablo1.Yapildi = True WHERE (((Tablo1.IslemTarihi)<Date()) AND ((Tablo1.Yapildi)=False))"
 
        CurrentDb.Execute hturkavci
        MsgBox "onaysız TÜM ONAY KUTULARI İŞARETLENDİ", vbInformation, "İŞARETÇİ"
    ElseIf mesaj = vbNo Then
        DoCmd.CancelEvent
    End If
    Me.Refresh
End Sub
 
Private Sub Komut6_Click()
'bugün hariç hepsi
Dim hturkavci As String
Dim mesaj
    mesaj = MsgBox("DiKKAT!!! Tüm onay kutuları işaretlenecektir." & Chr(10) & Chr(10) & "Devam Etmek İstiyor musunuz?", vbYesNo + vbInformation, "İŞARETÇİ")
 
    If mesaj = vbYes Then
   hturkavci = "UPDATE Tablo1 SET Tablo1.Yapildi = True WHERE (((Tablo1.IslemTarihi)<>Date()) AND ((Tablo1.Yapildi)=False))"
 
        CurrentDb.Execute hturkavci
        MsgBox "onaysız TÜM ONAY KUTULARI İŞARETLENDİ", vbInformation, "İŞARETÇİ"
    ElseIf mesaj = vbNo Then
        DoCmd.CancelEvent
    End If
    Me.Refresh
End Sub