access uyarı penceresi

hocam asagidaki kod dizilimine verdiginiz kodu nasil import edebiliriz ?


Dim kriter
kriter = mesailistesi
If MsgBox("Listede seçili olan mesai tanımını silmek istediğinize eminmisiniz?", vbYesNo) = vbYes Then
CurrentDb.Execute "delete from Mesai where sira= " & kriter
mesailistesi.Requery
End If

Sayın moskovic;
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