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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

KniDra

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


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


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

Kullanici Avatari

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

Uzman
Uzman
ME.... B.....
 46
 3.130
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,12:00
Çö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
Ü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

BlackEagle
Uzman
ER.... ŞA....
 44
 3.739
 69
 14/11/2008
 Ankara
 
 Ofis 2010 32 Bit
 03/03/2018,16:39
Çö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

Ofis 2007-2003-2010
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.


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

Kullanici Avatari

halimalcin

Aktif Üye
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ü 32 Bit Acces 64 Bit Access'de Çalışmıyor hkurt 2 58 16/09/2018, 13:41
Son Yorum: mehmetdemiral
Çözüldü Gözat Penceresi Butonu Çalışmıyor. okumas 6 367 10/06/2018, 19:40
Son Yorum: max7
Çözüldü Openreport Eylemi İptal Edildi Hatası junaid 6 429 09/01/2018, 03:05
Son Yorum: junaid
Çözüldü Ürün Sorgu Kodu Çalışmıyor U.ALTUN 9 786 15/05/2017, 17:13
Son Yorum: U.ALTUN
Çözüldü Kayıtbul Çalışmıyor hegu 12 952 30/03/2017, 16:21
Son Yorum: hegu

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