![Çözüldü](images/icons/cozuldu.png)
Tasarım olarak çok beğendim. Emeği geçen, katkı ve paylaşımda bulunan tüm dost ve hocalarıma teşekkürler...
(13/02/2010, 00:56)ercansahin yazdı: O bölüm sizin kafanızı karıştırmasın, kod içerisinde silme düğmesine bastığında birde yeniden sorgulama yaptırmak istemiş. Aşağıdakini bir deneyin..Dikkat etmeniz gereken Komut20 yerine sizin düğmenizin adını girmelisiniz.
Teşekkürler Celoyce hocamKod:Private Sub Komut20_Click()
On Error GoTo Err_Komut20_Click
Dim c As Integer
c = MsgBox("Müşteri kaydı silinecek..! Eminmisiniz?", vbYesNo + vbQuestion, "Dikkat")
If c = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_Komut20_Click:
Exit Sub
Err_Komut20_Click:
MsgBox Err.Description
Resume Exit_Komut20_Click
End Sub