Skip to main content

AccessTr.neT


Tekrarlayan Kaydı Engelleme

Tekrarlayan Kaydı Engelleme

#11
Anladım. Neyse, durumu ChatGPT'ye tanımladım sağolsun çözdü benim için. Kodu aşağıda veriyorum, başka bu konuda arayışı olanlara da çözüm olabilri. Teşekkürler.

Kod:
Private Sub Komut4_Click()
    
    Dim veriSayisi As Integer
    Dim kontrolVerisi1 As String
    Dim kontrolVerisi2 As String
    Dim kontrolVerisi3 As String

    ' Kontrol edilecek verileri al
    kontrolVerisi1 = Me.HARF1 ' 1. alan
    kontrolVerisi2 = Me.HARF2 ' 2. alan
    kontrolVerisi3 = Me.HARF3 ' 3. alan
    
    ' Tablo adı ve kontrol edilecek alan adlarını değiştirin
    veriSayisi = DCount("*", "Tablo1", "HARF1='" & kontrolVerisi1 & "' AND HARF2='" & kontrolVerisi2 & "' AND HARF3='" & kontrolVerisi3 & "'")
    
    ' Eğer tablo da bu veri sayısı 0'dan fazla ise uyarı ver
    If veriSayisi > 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

End Sub

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Tekrarlayan Kaydı Engelleme - Yazar: notrino - 01/10/2024, 19:45
RE: Tekrarlayan Kaydı Engelleme - Yazar: atoykan - 01/10/2024, 20:32
RE: Tekrarlayan Kaydı Engelleme - Yazar: notrino - 01/10/2024, 21:00
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 01/10/2024, 21:38
RE: Tekrarlayan Kaydı Engelleme - Yazar: atoykan - 02/10/2024, 00:00
RE: Tekrarlayan Kaydı Engelleme - Yazar: notrino - 02/10/2024, 09:36
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 10:47
RE: Tekrarlayan Kaydı Engelleme - Yazar: notrino - 02/10/2024, 11:27
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 11:29
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 11:37
RE: Tekrarlayan Kaydı Engelleme - Yazar: notrino - 02/10/2024, 11:43
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 11:48
RE: Tekrarlayan Kaydı Engelleme - Yazar: notrino - 02/10/2024, 11:56
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 12:00
RE: Tekrarlayan Kaydı Engelleme - Yazar: onur_can - 02/10/2024, 12:56
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 13:36
RE: Tekrarlayan Kaydı Engelleme - Yazar: onur_can - 02/10/2024, 14:09
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 14:16
RE: Tekrarlayan Kaydı Engelleme - Yazar: onur_can - 02/10/2024, 14:50
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 15:06
RE: Tekrarlayan Kaydı Engelleme - Yazar: onur_can - 02/10/2024, 15:12
RE: Tekrarlayan Kaydı Engelleme - Yazar: berduş - 02/10/2024, 15:21
RE: Tekrarlayan Kaydı Engelleme - Yazar: notrino - 02/10/2024, 19:56