AccessTr.neT

E o zaman randevu tablosunda kayıtlı olan birisine ikinci bir randevu vermesin yazaydın ya cancağızım ) Ondan kolay ne var. Benim yaptığım daha zoru O zaman şunu yap:

1- Form2 formunu düzenleme modunda aç
2- Öğrenci yazan yerin karşısındaki "not" isimli metin kutusuna çift tıklayıp olaylardan "güncelleştirme öncesinde" olayının kodlarına ulaş.
3- Aşağıdaki yazılı bölümü bul

If Me.NotF = Dlookup ("[not]", "[tablo1]", "[not]=forms![form2]!notf") And Me.TarihiF = Dlookup ("[tarihi]", "[tablo1]", "[tarihi]=forms![form2]!tarihif") Then



MsgBox "Bu öğrenciye aynı tarihte randeu verilmiş.", vbOKOnly, "MÜKERRER KAYIT"

Bu bölümü şöyle düzelt

If Me.NotF = Dlookup ("[not]", "[tablo1]", "[not]=forms![form2]!notf") Then



MsgBox "Bu öğrenciye zaten bir randevu verilmiş. İnanmazsan aha açayım da bak !!!!", vbOKOnly, "MÜKERRER KAYIT"

Bu kadaaar.

Bu arada büyük harf küçük harf olayı için bir modül ilave ettim. Bu nedenle kodları da güncelleme sonrasında yordamına taşıdım. Önce harfler büyüğe çevriliyor, sonra kontrol ediliyor. Artık büyük ya da küçük harfle yazman farketmiyor. Bunu kullan bence.

Değerli mehmetdemiral hocam;
İlginize çok çok tşk ederim..Sayenizde sorun çözülmüştür..HERŞEY TAM İSTEDİĞİM GİBİ OLDU..
Uyarı mesajındaki esprili yaklaşımda harika)
Konu taşınabilir..

Herkese hayırlı bayramlar diliyorum
SAYGILAR..