Skip to main content

AccessTr.neT


Mükerrer Kayıt (Aynı Kayıt) Varsa Uyarsın ve Daha Önce Girilmiş Kaydı Göstersin??

Mükerrer Kayıt (Aynı Kayıt) Varsa Uyarsın ve Daha Önce Girilmiş Kaydı Göstersin??

#7
E o zaman randevu tablosunda kayıtlı olan birisine ikinci bir randevu vermesin yazaydın ya cancağızım Img-grin) Ondan kolay ne var. Benim yaptığım daha zoru Img-grin 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.
İnadına, ille de Accesstr.net...
Cevapla
#8
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.
.rar Rekberlik Araştırma Merkezi Randevu Programı.rar (Dosya Boyutu: 212,1 KB | İndirme Sayısı: 62)
İnadına, ille de Accesstr.net...
Cevapla
#9
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 harikaImg-grin)
Konu taşınabilir..

Herkese hayırlı bayramlar diliyorum
SAYGILAR..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da