"KART NO" GİRİLDİĞİ ZAMAN "KART SERİ NO" HÜCRESİNDEKİ KAYIT İLE AYNI KAYIT VAR İSE BANA UYARIDA BULUNMASINI İSTİYORUM.
UĞRAŞDIM FAKAT BİR TÜRLÜ YAPAMADIM, YARDIMLARINIZ İÇİN ÇOK TEŞEKKÜR EDERİM. SEVGİ VE SAYGILARIMLA.
Önce aşağıdaki konuyu incele.
Yapılmaması gereken ölümcül hatalar
Alıntı: 1. Hiç bir tablonun adında türkçe karakter geçmemeli.
2. Tablo isimleri büyük harf olarak yazılmalı.
3. Tablo isimlerinde bir standart belirlenmeli. Örneğin tablo ismi T_ ile başlar...
4. Alan isimlerinde türkçe karakter geçmemeli.
5. Alan isimleri büyük harf yazılacak.
6. Alan isimlerinde iki kelime ( örneğin ADI SOYADI) kullanmanız gerekiyorsa,bunlar bitişik yazılacak, alan isimlerinde araya boşluk koyulmamalı.
7. Alan boyutları gerektiği kadar olacak. Örneğin Adı alanı metin 200 olmamalı
8. Indexlemelere,anahtar alanlara mutlaka dikkat edilmeli.
9. Hesaplanabilir hiç bir alan tablolara alan olarak eklenmemeli.
10. Alan Özellikleri "Metin Kutusu" olarak kalmalı, "Liste Kutusu" veya "Açılan Kutu" yapılmamalı.
11. Tablo alan özelliklerinde giriş maskesi eklenmemeli.
Daha sonra
Site Kurallarını incele.
6-) Konu başlığını veya mesajı tümü büyük harfle yazmak yasaktır.
Son olarak ta telefon Kayıt formundaki Kartno metin kutusunun günceleştirme sonrasında olayına aşağıdaki kodu yaz.
If Me.KART_NO = Dlookup ("[KART NO]", "TELEFON KAYIT", "[KART NO]=" & "'" & Me.KART_NO & "'") Then
MsgBox ("kartno daha önce girilmiş")
KART_NO.SetFocus
End If
Uyarı veriyor fakat kaydı engellemiyor, uğraşınız için çok teşekkür ederim. Birde "KART SERİ NO:" hücresine göre yapmaya çalıştım, yapamadım.
(23/03/2014, 18:25)arif1971 yazdı: ART NO" GİRİLDİĞİ ZAMAN "KART SERİ NO" HÜCRESİNDEKİ KAYIT İLE AYNI KAYIT VAR İSE BANA UYARIDA BULUNMASINI İSTİYORUM.
UĞRAŞDIM FAKAT BİR TÜRLÜ YAPAMADIM, YARDIMLARINIZ İÇİN ÇOK TEŞEKKÜR EDERİM. SEVGİ VE SAYGILARIMLA.
Sorunuzda "kaydı engellesin" diye bir ibare göremedim.
KART_NO.SetFocus
kodunun hemen üstüne
KART_NO=""
kodu eklerseniz yazdığınız mükerrer kartno verisi silinir, yeniden doğrusunu yazarsınız. Başka türlü kod eklersek daha önce girdiğiniz tüm veriler silinir. Bu şekilde sadece Kart no alanını temizliyoruz.
Kodun tamamı aşağıdaki gibi olmalı
If Me.KART_NO = Dlookup ("[KART NO]", "TELEFON KAYIT", "[KART NO]=" & "'" & Me.KART_NO & "'") Then
MsgBox ("kartno daha önce girilmiş")
KART_NO = ""
KART_NO.SetFocus
End If
End Sub
Evet şimdi oldu, çok teşekkür ederim. Fakat bir sorun daha var
Kayıt esansında uyarıda bulunmasını ve düzeltilmesini istemesini istiyorum....çok olmadım umarım...