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]
![[Resim: olmuyor.png]](http://img148.imageshack.us/img148/8349/olmuyor.png)
[
attachment=6918]
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
......................
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
Ö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