Aşağıdaki Şekilde Yazınız.
www.accesstr.net yazan kısma kendi Başlığınızı "Title" ekleyebilirsiniz.
Kolay Gelsin.
Dim kriter
kriter = mesailistesi
If MsgBox("Listede seçili olan mesai tanımını silmek istediğinize eminmisiniz?", vbYesNo,"www.accesstr.net") = vbYes Then
CurrentDb.Execute "delete from Mesai where sira= " & kriter
mesailistesi.Requery
End If