[VBA] 3 alana göre mükerrer kayıt

Taruz · 02-02-2012, 14:43

Telefon1 e girilen diğer telefon alanlarında var mı diye kontrol edilecek mi?

aydın3838 · 02-02-2012, 16:04

evet 3 alana göre

Taruz · 02-02-2012, 16:14

Bu defa anlaşabildiğimizi umuyorum.. Wink

Visual Basic
Dim msg        As String
If Nz(Me.Telefon1, "") <> "" Then
    If DCount("*", "CariKart", "Telefon1= '" & Me.Telefon1 & "' ") > 0 Then _
       msg = "Telefon1"
    If DCount("*", "CariKart", "Telefon2= '" & Me.Telefon1 & "' ") > 0 Then _
       msg = msg & ", Telefon2"
    If DCount("*", "CariKart", "Telefon3= '" & Me.Telefon1 & "' ") > 0 Then _
       msg = msg & ", Telefon3 "
    MsgBox "aynı numaradan daha önceki kayıtlar içindeki " & msg & " alanında da var.."
    Cancel = -1
 
End If

Taruz · 02-02-2012, 16:34

Üstteki mesajımdan sonra aklıma geldi; tabloya kayıt etmeden, metin kutularının değerlerine göre kotrol etmekse amacınız böyle de olur..:

Visual Basic
Dim msg        As String
    If Nz(Me.Telefon3, "") <> "" Then
        If Telefon1 = Telefon3 Or Telefon2 = Telefon3 Then
            MsgBox "aynı numaradan bir tane girilebilir"
            Undo
        End If
    End If

aydın3838 · 02-02-2012, 18:44

hocam çok teşekkürler

schaft · 10-12-2017, 19:46

Sayın üstatlar bir el atarsanız sevinirim. Kademe otomasyon programı oluşturdum.Arızalar evrakla geliyor ve programa kayıt ediliyor.Mükerrer kayıt edilmesi engellemek istiyorum.Aynı tarihli evrakla aynı plaka oldugunda ikaz verip kayıt etmesin ve yazılanları silsin istiyorum. Mesajlarınızı okuyarak kodu yazdım ama hata veriyor sanırım eksik imleç var tarih bölümde ama bir türlü yapamadım.Yardımlarınız için şimdiden teşekkürler.

Private Sub Komut672_Click()
Dim SD1, SD2, C As String

Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String

SD1 = Me.Evrak_Tarihi.Value
SD2 = Me.Plaka.Value

stLinkCriteria1 = "[Evrak Tarihi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Plaka]=" & "'" & SD2 & "'"

If DCount("*", "Arıza Kayıtları", " Evrak Tarihi='" & Me.Evrak_Tarihi & "'and Plaka='" & Me.Plaka & "'") > 0 Then
C = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " * Tarihli * " _
& SD2 & " * Plakalı*" _
& SD3 & " KAYIT DAHA ÖNCEDEN GİRİLMİŞ." _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If C = vbNo Then Undo: Exit Sub

If C = vbYes Then
cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo

ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"

End If
End If
End If
End Sub

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma	osman06	8	474	23-11-2025, 11:33 Son Mesaj: dsezgin
	[TABLO] Liste Kutusu-çoklu Seçim özellikli Alana Excelden Verileri Yapıştırma	mkoblayek	18	1.097	18-02-2025, 08:49 Son Mesaj: mkoblayek
	çoklu Kullanıcılarda Mükerrer Evrak Numarası (transaction)	kaburkan	4	427	09-01-2025, 13:26 Son Mesaj: celalll
	[SORGU] Tabloda Geçen Iki Alanda Ortak Kelime Var Ise Istenilen Alana Işaret Koymak	sevincili	5	452	20-09-2024, 01:09 Son Mesaj: dsezgin
	[FORM] Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form üzerinde Gösterilmesi	M_Kemal_Askeri	1	380	13-05-2024, 05:10 Son Mesaj: dsezgin
	Farklı Tablodan Mükerrer Olmayan Bilgi Almak	bilservisci	5	535	17-12-2023, 18:04 Son Mesaj: dsezgin
	[FORM] Metin Kutusundaki Değere Göre Altforma Kayıt Eklensin Yada Eklenmesin	ŞabanTR	4	587	17-12-2023, 17:40 Son Mesaj: ŞabanTR
	Raporda Büyüyebilir Alana Göre Dikey çizginin Yüksekliğinin Değişmesi	adnnfrm	1	366	13-11-2023, 17:18 Son Mesaj: BeyTor

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL