KayıtSil Eylemi Çalışmıyor
Tarih
13/02/2010 00:10
Konu Sahibi
KniDra
Yorumlar
11
Okunma
1819
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



KniDra
Üye
Kullanici Avatari
Üye
6
2
11/01/2010
0
Edirne
Ofis 2007
25/02/2010,17:02
Çözüldü 
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


.rar   E-Dershane proje.rar (Dosya Boyutu: 3,74 MB / İndirme Sayısı: 15)
qwerty113, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Çözüldü 
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
......................
Cevapla


KniDra
Üye
Kullanici Avatari
Üye
6
2
11/01/2010
0
Edirne
Ofis 2007
25/02/2010,17:02
Çözüldü 
(13/02/2010, 00:13)C*E*L*O*Y*C*E Adlı Kullanıcıdan Alıntı: 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
......................
qwerty113, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
Bugün,20:30
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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

Cevapla


nihatkr
Ofis 2007-2003-2010
Kullanici Avatari
Onursal
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Çözüldü 
Örneklerinizi eklerken lütfen veri tabanı hizmet programından sıkıştır ve onar yapınız.

Örneğiniz ektedir.


Ek Dosyalar
.rar   E-Dershane proje.rar (Dosya Boyutu: 3,78 MB / İndirme Sayısı: 15)
Cevapla


halimalcin
Aktif Üye
Kullanici Avatari
Aktif Üye
H.... A....
71
9
28/12/2009
0
İstanbul
Ofis 2003
21/11/2016,14:56
Çözüldü 
merhabalar 2003 olarak örneğinizi yüklerseniz daha hızlı cevap alırsınız
selamlar
AccessTr.neT | Hayal edebiliyorsanız yaparsınız...
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  64 bit sistemde çalışmıyor crazyero 5 452 06/02/2016, 14:16 atoz112
Çözüldü OpenForm Eylemi İptal edildi. fascioğlu 3 347 27/12/2015, 03:06 fascioğlu
Çözüldü Access 2013 Runtime ile sağ tık menüsü çalışmıyor uralcoder 6 707 02/12/2015, 16:34 alpeki99
Çözüldü KAYIT CASUSU MODÜLÜ ÇALIŞMIYOR aliyuzen 4 561 30/10/2015, 10:37 aliyuzen
Çözüldü 2010 da çalışan,2003 ve 2007 ye dönüştürülmüş veri tabanı prg çalışmıyor kitleniyor simendifer 3 507 26/10/2015, 20:07 simendifer


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya