Mükerrer Kayıt Ile Ilgili Bir Soru
#1
Formda Peşinat'ı Kasaya İşle butonu ile müşteri adına girilen peşintı frm_kasa formuna işliyorum. Fakat mükerrer kayıt olmasını engellemek istiyorum. Aynı öğrencinin aynı tarihte peşinat girişi Kasaya İşle denildiğinde "daha önce peşinat girilmiştir" diye uyarmasını istiyorum.
Şimdiden teşekkür ederim hocalarım.


Eklenti Dosyaları
.rar   cizgi - 2604.rar (Boyut: 558,41 KB / İndirilme: 72)



  Alıntı
Bu mesajı beğenenler:
#2
Hangi formda işlem yapacaksınız?
Kriter olarak tarih ve öğrenci adımı olacak sadece?
Bence tam açıklarsanız çözüm zor değil.



  Alıntı
Bu mesajı beğenenler:
#3
Günaydın, CizgiUstu formunda Kasaya İşle butonu var. Buradan işlem yaptığında frm_kasa formuna işlem yapıyor. Fakat frm_kasa formuna aynı kaydın yapılması durumunda uyarı versin istiyorum. Aslında kolay birşey ama yapamadım.



  Alıntı
Bu mesajı beğenenler:
#4
Günaydın.
Aslında Dlookup ile yapmışsınız ama tam olmamış galiba böyle görmüştüm kodda.Aynı mantıkla olabilir yada Dao yada Ado ilede yapılabilir.Aynı kayıt derken kriter olarak ne olacak?
Dlookup ile yapılacaksa bir Long olarak değişken yapılır ve bundan dönecek sonuca göre işlem yapılabilinir diye düşünüyorum.Ado ilede basit olur dediğim gibi kriter bilmek gerek.
Kendi adıma akşam bakabilirim tekrar.



  Alıntı
Bu mesajı beğenenler:
#5
Visual Basic
  1. Public Function kasa2()
  2. Dim tarih As Date
  3. Dim aciklama As String
  4. 'DoCmd.SetWarnings False
  5. tarih = Forms!CizgiUstu!tarih
  6. veliadi = Forms!CizgiUstu!txt_veli_adi.Value
  7.  
  8. With Forms!CizgiUstu!
  9.     If DLookup("tarih", "tbl_kasa", "tarih ='" & tarih & "'") > 0 Then
  10.         'If DLookup("ogrenci_id", "ogrencitakip", "kayit_turu ='" & Me.ak_ogrencitipi & "' ") Then
  11.         MsgBox " & veliadi & adlý müþteriye daha önce Peþinat girilmiþtir.", vbCritical
  12.     Else
  13.         DoCmd.RunSQL ("INSERT INTO tbl_kasa(ogrenci_id,tarih,gelir,islem_tipi,aciklama) VALUES (.txt_ogrencid, '" & .tarih & "', '" & .pesinat & "', 'Gelir', '" & veliadi & " adlý müþteri Peþinat ödedi.')")
  14.     End If
  15.     'DoCmd.RunSQL ("insert into ogretmen_takip_odemeler(ogretmen_id,ogretmen_adi,odenen,odeme_tarihi) values (" & Me.ak_ogretmenler.Column(0) & ", '" & Me.ak_ogretmenler.Column(1) & "', '" & Me.txt_odemegir & "', '" & Date & "')")
  16. End With
  17. DoCmd.SetWarnings True
  18. End Function


Yukardaki gibi deneyim ama eklemede hata veriyor birde Dlookup içini ayarlayabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#6
Mükerrer kaydı denemek istediğimde Veri türü uyuşmazlığı veriyor dostum, neden bunu yapıyor anlamadım bir türlü.


Eklenti Dosyaları
.png   err1.png (Boyut: 19,89 KB / İndirilme: 55)
.png   err2.png (Boyut: 20,17 KB / İndirilme: 52)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Tarayıcıdan Evrak Tarayarak Ilgili Tabloya Aktarma kertiller_55 1 345 03-10-2025, 15:32
Son Mesaj: dsezgin
  çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction) kaburkan 4 425 09-01-2025, 13:26
Son Mesaj: celalll
access-sql-18 [RAPOR] Kayıt Içerisindeki Miktar Alanındaki Sayı Kadar Rapora Ilgili Kaydı Rapora Kopyalama gurolk 12 935 29-07-2024, 12:01
Son Mesaj: dsezgin
  Ilgili Raporu Mail Gönderme Mtaner 6 1.490 21-05-2024, 07:09
Son Mesaj: dsezgin
  Access'in Kapasitesi ile İlgili fatihsipahi 4 3.477 02-02-2024, 21:38
Son Mesaj: adnnfrm
  Farklı Tablodan Mükerrer Olmayan Bilgi Almak bilservisci 5 531 17-12-2023, 18:04
Son Mesaj: dsezgin
  Ilgili Güne Göre Koşullu Sorgu turgay52 6 607 23-08-2023, 11:50
Son Mesaj: turgay52
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 843 21-07-2023, 10:40
Son Mesaj: onur_can

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi