Mükerrer Kayıt Ile Ilgili Bir Soru - Yazdırılabilir Sürüm

Mükerrer Kayıt Ile Ilgili Bir Soru - Yazdırılabilir Sürüm

+- Access SQL (https://www.access-sql.com)
+-- Forum: ACCESS SORULARI VE ÖRNEK UYGULAMALARI (https://www.access-sql.com/Forum-ACCESS-SORULARI-VE-ORNEK-UYGULAMALARI)
+--- Forum: ACCESS SORULARI (https://www.access-sql.com/Forum-ACCESS-SORULARI)
+--- Konu: Mükerrer Kayıt Ile Ilgili Bir Soru (/Konu-Mukerrer-Kayit-Ile-Ilgili-Bir-Soru)

Sayfalar: 1 2

Mükerrer kayıt ile ilgili bir soru - programmer67 - 26-04-2023

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.

RE: Mükerrer Kayıt Ile Ilgili Bir Soru - feraz - 26-04-2023

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.

RE: Mükerrer Kayıt Ile Ilgili Bir Soru - programmer67 - 27-04-2023

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.

RE: Mükerrer Kayıt Ile Ilgili Bir Soru - feraz - 27-04-2023

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.

RE: Mükerrer Kayıt Ile Ilgili Bir Soru - feraz - 27-04-2023

Visual Basic
Public Function kasa2()
Dim tarih As Date
Dim aciklama As String
'DoCmd.SetWarnings False
tarih = Forms!CizgiUstu!tarih
veliadi = Forms!CizgiUstu!txt_veli_adi.Value
 
With Forms!CizgiUstu!
    If DLookup("tarih", "tbl_kasa", "tarih ='" & tarih & "'") > 0 Then
        'If DLookup("ogrenci_id", "ogrencitakip", "kayit_turu ='" & Me.ak_ogrencitipi & "' ") Then
        MsgBox " & veliadi & adlý müþteriye daha önce Peþinat girilmiþtir.", vbCritical
    Else
        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.')")
    End If
    '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 & "')")
End With
DoCmd.SetWarnings True
End Function

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

RE: Mükerrer Kayıt Ile Ilgili Bir Soru - programmer67 - 28-04-2023

Mükerrer kaydı denemek istediğimde Veri türü uyuşmazlığı veriyor dostum, neden bunu yapıyor anlamadım bir türlü.