Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Tekrarlayan Kaydı Engelleme

notrino
notrino
Access Cevaplanmış Soruları
22
1936

Tekrarlayan Kaydı Engelleme

#13
notrino
Aktif Üye
notrino
Bul
Aktif Üye*
Adı Soyadı:
Yaşı: 47
Konum: İzmir
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: 19/11/2024,12:43
Yorumları: 656
Konuları: 186
Kayıt Tarihi: 18/02/2016
Teşekkür Puanı: 21
Mesleğiniz: Öğretmen
Evet haklısınız, gelen cevaba göre ben alanlarımı metin olarak revize ettim. Ondan çalışıyor Img-grin
Cevapla
#14
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:00
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
aslında söylediklerimizi uygulasaydınız alanları değiştirmeye gerek kalmazdı
aşağıdaki kodun sorunsuz çalışması gerek
SayKayit = DCount("*", "Tablo2", "harf_id=" & Me.harf_id & " and tarih=" & CLng(Me.tarih.Value) & " and sayı=" & Me.sayı.Value)
Cevapla
Thumbs Up #15
onur_can
Uzman
onur_can
www Bul
Uzman
Adı Soyadı: -....
Konum: -
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: Dün,23:52
Yorumları: 202
Konuları: 17
Kayıt Tarihi: 08/11/2008
Teşekkür Puanı: 57
Mesleğiniz: Elektronik, Otomasyon Sistem,
(02/10/2024, 12:00)berduş yazdı: aslında söylediklerimizi uygulasaydınız alanları değiştirmeye gerek kalmazdı
aşağıdaki kodun sorunsuz çalışması gerek
SayKayit = DCount("*", "Tablo2", "harf_id=" & Me.harf_id & " and tarih=" & CLng(Me.tarih.Value) & " and sayı=" & Me.sayı.Value)

Evet @berduş hocam komut çalışıyor.
Yalnız bu şekilde yine mükerrer kayıt oluşuyor. Bu da 2 tablonun yanlış ilişkilendirilmesinden kaynaklanıyor. Bunu düzeltmek için Tablo2 tablosunda bulunan harf_id alanını silip yeni bir alan oluşturulması gerekiyor. Alnın veri türü Arama sihirbazıyla oluşturulup Tablo1 deki kimlik ve HARF alanlarını kapsayacak şekilde oluşturulmalı, ayrıca Ana formdaki alt formun üst ve alta alanlarının birbirine bağlanması gerekir.
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#16
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:00
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
@onur_can hocam ben denediğimde yeni kaydı eklemiyordu
az önce yine dendim kaydı eklemiyor
kullandığım kod
    Dim veriSayisi As Integer
    If IsNull(Me.tarih.Value) Or IsNull(Me.sayı.Value) Then MsgBox "Tarih yada sayı alanı boş bırakılamaz": Exit Sub ' tarih yada sayı alanı boşsa uyarı verip yordamdan çıkar
    SayKayit = DCount("*", "Tablo2", "harf_id=" & Me.harf_id & " and tarih=" & CLng(Me.tarih.Value) & " and sayı=" & Me.sayı.Value)
    
    If SayKayit > 0 Then
        MsgBox "Bu kayıt zaten mevcut. Kayıt yapılamaz.", vbExclamation, "Uyarı"
        Me.Undo
    Else
        ' Kayıt işlemini gerçekleştirin
        DoCmd.RunCommand acCmdSaveRecord
        ' Yeni kayda geç
        DoCmd.GoToRecord , , acNewRec
    End If
Cevapla
#17
onur_can
Uzman
onur_can
www Bul
Uzman
Adı Soyadı: -....
Konum: -
Ofis Versiyonu: Ofis 2021 64 Bit
Son Oturumu: Dün,23:52
Yorumları: 202
Konuları: 17
Kayıt Tarihi: 08/11/2008
Teşekkür Puanı: 57
Mesleğiniz: Elektronik, Otomasyon Sistem,
Doğrudur Hocam, ben sn notrinonun eklemiş olduğu uygulama üzerinden denedim, Sizin kodunuzda yanlışlık yok zaten, kodunuz çalışıyor, ilk indirdiğinizde tablolarda ilişki görebildiniz mi?
Yani kod çalışıyor fakat ilişki olmadığı için harfi atamıyor
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#18
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Dün,21:00
Yorumları: 8.533
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.051
kodu ilk mesajdki dosya üzerinde denemiştim
ben ilişkilendirmede bir soru göremedim
2. tablo ile 1. tablo; tablo2.harf_id<-->tablo1.kimlik üzerinden ilişkilendirilmiş ki bence de olması gereken bu
ana form ve alt form arasında da alan ilişkilendirilmesi doğru
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task