Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/02/2010 00:10
Konu Sahibi
KniDra
Yorumlar
11
Okunma
2514
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

KniDra

Üye
 38
 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: olmuyor.png]


qwerty113, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
ME.... B.....
 46
 3.171
 71
 29/10/2008
982
 Ankara
 Yazılım
 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
......................



Kullanici Avatari

KniDra

Üye
 38
 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.

Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çö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



Kullanici Avatari

nihatkr

Onursal Üye
 814
 89
 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.



Kullanici Avatari

halimalcin

Aktif Üye
HA.... AL....
 42
 71
 9
 28/12/2009
0
 İstanbul
 
 Ofis 2003
 10/11/2017,18:40
Çö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...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Altformaltrapor Formumda Kayıt Gezinti Düğmeleri Düzgün Çalışmıyor. Oğuz Türkyılmaz 8 168 01/12/2018, 01:50
Son Yorum: Oğuz Türkyılmaz
Çözüldü Kayıt Arama İşlemini 4 Ayrı Kriter İle Yapıyorum İki Kriter Çalışıyor 2 Si Çalışmıyor Oğuz Türkyılmaz 6 141 19/11/2018, 11:39
Son Yorum: Oğuz Türkyılmaz
Çözüldü 32 Bit Acces 64 Bit Access'de Çalışmıyor hkurt 2 139 16/09/2018, 13:41
Son Yorum: mehmetdemiral
Çözüldü Gözat Penceresi Butonu Çalışmıyor. okumas 6 475 10/06/2018, 19:40
Son Yorum: max7
Çözüldü Openreport Eylemi İptal Edildi Hatası junaid 6 543 09/01/2018, 03:05
Son Yorum: junaid

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.