Private Sub Komut99_Click() On Error
GoTo Err_Komut99_Click Dim stDocName
As String stDocName =
Silme_Kullanıcı _Gırıs_Cıkıs"
DoCmd.OpenQuery stDocName, acNormal,
acEdit Exit_Komut99_Click: Exit Sub
Err_Komut99_Click: MsgBox
Err.Description Resume
Exit_Komut99_Click
msgbox"silmek istediğinize eminmisiniz",vbQuestion + vbYesNo=vbno then
End sub
bu şekilde denermisiniz.
Silme sorgusunu Evet/Hayır onayından sonra çalıştırmak
Konuyu Okuyanlar: 1 Ziyaretçi