Arkadaşlar.Ben bu programımı .exe haline(access görünmeyecek sadece form görünecek) çevirdikten sonra bazı sorunlarla karşılaştım. Ben kayıt sildirirken hemen eylemi gerçekleştirmedim. Önce bir form açılacak " Kaydı Silmek İstediğinize Eminmisiniz Evet-hayır" gibisinden. Evet basılınca silinecek fakat bu kodu yapmama ve üzerinde çok uğraşmama rağmen beceremedim. Yaklaşık 3 form için bu özelliği kullanacağım(ayrı ayrı "kayıt silmek istediğinizden eminmisiniz" formu açmadan da olmuyor[buna yine razıyım kendim açarım]) Ayrıca birde programıma simge eklemek istiyorum. bunun içinde yardımcı olursanız sevinirim.

Dipnot: Ayrıca projem 2010 Beceri Tabanlı Proje Yarışmasına da katılacaktır. Elinizden geleni eksik etmezseniz çok mutlu olurum(bu p.tesi ye kadar halletmem lazım)[download linki en altta]

2007 olduğu için açamadım ama
silmek için.................aşağıdaki kodu kendine uyarla......

On Error GoTo Err_Komut33_Click
Dim c As Integer
c = MsgBox("Müşteri kaydı silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "PapirDüğünSalonu")
If c = vbOK Then



DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True

Me.Liste26.Requery
ElseIf c = vbCancel Then
Me.Undo
End If
End If
Exit_Komut33_Click:
Exit Sub

Err_Komut33_Click:
MsgBox err.Description
Resume Exit_Komut33_Click
......................

(13/02/2010, 00:13)C*E*L*O*Y*C*E yazdı: 2007 olduğu için açamadım ama
silmek için.................aşağıdaki kodu kendine uyarla......

On Error GoTo Err_Komut33_Click
Dim c As Integer
c = MsgBox("Müşteri kaydı silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "PapirDüğünSalonu")
If c = vbOK Then



DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True

Me.Liste26.Requery
'burada hata veriyor liste 26 yerine neredekinin adını yazacağım
ElseIf c = vbCancel Then
Me.Undo
End If
End If
Exit_Komut33_Click:
Exit Sub

Err_Komut33_Click:
MsgBox err.Description
Resume Exit_Komut33_Click
......................

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 hocam

Örneklerinizi eklerken lütfen veri tabanı hizmet programından sıkıştır ve onar yapınız.

Örneğiniz ektedir.

merhabalar 2003 olarak örneğinizi yüklerseniz daha hızlı cevap alırsınız
selamlar