Şu an itibariyle sorunu çözmüş bulunmaktayım. ercansahin ve diğer yardımcı olan arkadaşlara çok teşekkür ederim.Yalnız bazı sorularımın cevaplarını almış değilim. Bu arada 2007'de sıkıştır ve onar seçeneğini bulamadım.Projeme simge eklemek istiyorum(masaüstünde görünen simgeden bahsediyorum).Bunuda nereden yapacağımı bulamadım.

(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.

Kod:

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

Teşekkürler Celoyce hocam