Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/07/2018 02:39
Konu Sahibi
m_demir
Yorumlar
18
Okunma
589
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 18/05/2019,23:21
Çözüldü 
Merhaba Hocalarım.

Eklediğim uygulamada FaturaArşivi Formunda Listede müşteriyi seçip. İlgili metin kutularına alarak faturayı siliyorum.

Faturayı yanlışlıkla silmemek için Fatura sil butonuna tıkladığım zaman parola istesin. Faturayı silmek için. şifre kodunu ekledim şifre uyarısı ekrana geliyor.  Şifreyi girip okey butonuna tıkladığım zaman hata veriyor. Faturayı silmiyor.



Dart Reder

Aktif Üye
95257
Da.... Re....
 39
 13
 47
 07/02/2018
0
 Sakarya
 Vet.
 Ofis 2016 64 Bit
 26/04/2019,17:24
merhaba 
Ekteki örnek işinizi görür mü?



m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 18/05/2019,23:21
Hocam eklediğiniz uygulamadaki kodları kendi uygulamama ekledim. Hata verdi çalışmadı.



ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 481
 12.055
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:26
Hatalar:
1-) butonun tıklandığında olayında 


Visual Basic Code
On Error GoTo Err_FaturaSil_Click


Kodu mevcut, ancak hata denetimindeki kod


Visual Basic Code
Err_FaturaSil__Click:


Her iki kod aynı değil, hata durumunda Err_FaturaSil_Click kodunu arayacak ama bu kod yok.

2-)


Visual Basic Code
If InputBox("Lütfen Silme Şifresini Giriniz") = Sifre Then
Exit Sub


şeklinde kod eklenmiş, şifreler eşit ise koddan çık demişsiniz. Şifreler eşit ise kayıt silinmesi gerekli.


Visual Basic Code
1
2
3
4
5
6
7
8
If InputBox("Lütfen Silme Şifresini Giriniz") <> Sifre Then
    MsgBox ("hatali sifre")
    Exit Sub
else

....silme kodu buraya.....

end if


şeklinde kod olmalı ki, şifreler uyuşmadığında işlem yapmasın, uyuştuğunda silsin.

3-) Eklediğiniz silme kodunu formdaki geçerli kaydı siler. Ancak, formun kayıt kaynağındaki sorgudan dolayı geçerli kayıt silemezsiniz. Sorgu güncelleştirilebilir bir sorgu değil, salt okunur. Silme işleminin faturaid alanına göre FaturaBilgisi ve FaturaDetay tablolarından yapılması gerekli. Silme kodunuz

Visual Basic Code
1
2
3
4
5
6
  DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE FaturaID FROM FaturaBilgisi WHERE (((FaturaID)=" & Me.FaturaID & "));"
    DoCmd.RunSQL "DELETE FaturaID FROM FaturaDetay WHERE (((FaturaID)=" & Me.FaturaID & "));"

    DoCmd.SetWarnings True


Şeklinde olmalı.

Umarım anlaşılır olmuştur.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

m_demir

Aktif Üye
82854
De.... Yı....
 61
 82
 348
 03/06/2016
0
 -
 Grafiker
 Ofis 2010 64 Bit
 18/05/2019,23:21
Hocam eklediğiniz kodları Fatura Sil butonun tıklandığına olayına ekledim. Herhalde bir yerlerde yanlışlık yaptım kod çalışmadı hata verdi. Bakabilirmisiniz.



direnist

Uzman
244
Di.... SA....
 56
 494
 05/11/2008
167
 İstanbul
 
 Ofis 2010 64 Bit
 21/03/2019,13:01
Merhaba;
Form üzerindeki Adı Soyadı alanın ad özelliğien AdıSoyati yazmışnısınız. Kod tarafında AdıSoyadı olarak kullanmışsınız.
FaturaSil butonun kodunu aşağıdaki ile değiştirip denermisiniz?
Birde FaturaSil_LostFocus() kod bloğundaki 
DoCmd.GoToRecord , , acNewRec
kodunu kaldırın.
Yada başına tırnak " ' " işareti koyun
İyi çalışmalar.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
On Error GoTo Err_FaturaSil_Click

If IsNull(Me.AdıSoyati) Then MsgBox "<<<< LÜTFEN SİLMEK İSTEDİĞİNİZ MÜŞTERİYİ SEÇİNİZ >>>>", 48, "Kayıt İşlemi": Me.AdıSoyati.SetFocus: Exit Sub  '''''
'Exit Sub

Dim Sifre As String
Sifre = "1"

If InputBox("Lütfen Silme Şifresini Giriniz") <> Sifre Then
    MsgBox ("hatali sifre")
    Exit Sub
Else

  DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE FaturaID FROM FaturaBilgisi WHERE (((FaturaID)=" & Me.FaturaID & "));"
    DoCmd.RunSQL "DELETE FaturaID FROM FaturaDetay WHERE (((FaturaID)=" & Me.FaturaID & "));"

    DoCmd.SetWarnings True
MsgBox "silindi"
Me.Liste.Requery
Exit_FaturaSil_Click:
    Exit Sub

Err_FaturaSil_Click:
    MsgBox Err.Description
    Resume Exit_FaturaSil_Click
    'Form.AllowDeletions = False
Exit Sub
End If




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Alt Tablolardan Oluşmuş Ana Tabloda Sorgulama Nasıl Yapılır ? A_day 7 236 11/02/2019, 22:08
Son Yorum: haliliyas
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 412 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü Formdaki Metin Kutularına Formun Kayıt Kaynağından Farklı Tablolardan Veri Göstermek. Oğuz Türkyılmaz 6 469 25/10/2018, 16:36
Son Yorum: Allback
Çözüldü Listbox Daki Seçili Kayıdı Silmek sidd 4 297 23/05/2018, 10:59
Son Yorum: sidd
Çözüldü Veri Tabanındaki Kayıtlı Bilgiyi 2. Veri Tabanında Bulunan Aynı Değişkenlere Kayıt cevahir1 10 741 24/04/2018, 12:03
Son Yorum: cevahir1

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