KayıtSil Eylemi Çalışmıyor
Tarih
13/02/2010 00:10
Konu Sahibi
KniDra
Yorumlar
11
Okunma
1950
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.908
29/10/2008
916
Ankara
Ofis 2010 32 Bit
Çözüldü 
Sponsor Reklam
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
20/05/2017,13:50
Çözüldü 
Sponsor Reklam
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ü 
Sponsor Reklam
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
  Ürün Sorgu Kodu Çalışmıyor U.ALTUN 9 164 15/05/2017, 17:13 U.ALTUN
  Kayıtbul Çalışmıyor hegu 12 223 30/03/2017, 16:21 hegu
  win 10 da rarlama çalışmıyor ates2014 6 277 01/01/2017, 23:06 ates2014
  64 bit sistemde çalışmıyor crazyero 5 565 06/02/2016, 14:16 atoz112
Çözüldü OpenForm Eylemi İptal edildi. fascioğlu 3 448 27/12/2015, 03:06 fascioğlu


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status