Dim uyarımesaj
uyarımesaj = MsgBox("Kayıtlar İmha Ediecek... Emin misiniz?", vbYesNo)
If uyarımesaj = vbYes And Tliste.not = "İmha Edilecek" And Tliste.imhaedildimi = False Then
CurrentDb.Execute "UPDATE Tliste SET tliste.imhaedildimi=TRUE"
Tliste.aciklama = Date + "" + "İmha Edildi. "
MsgBox ("Kayıtlar İmha Edildi.İyi Çalışmalar...")
ElseIf uyarımesaj = vbNo Then
MsgBox ("Kayıtlar İmhasından Vazgeçildi...")
End If
yukarıdaki gibi
|