+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: önceki kayıtlara göre yeni kayıt açma (/konu-onceki-kayitlara-gore-yeni-kayit-acma.html)
önceki kayıtlara göre yeni kayıt açma - kanlitoprak - 02/07/2013
Formlardan” per_liste” formunun alt formundakı “sportest alt formu” nda girilen kayıtlarda yeni kayıt eklerken daha önce girilen kayıtları kontrol ederek DURUMU kısmında “katıldı” haricinde herhangibir kıstas girildiyse (katıldı haricindeki kıstaslarda şınav-mekik-barfiks-koşu alanlarını kullanıcı boş olarak kendısı gırecek ) mesajla uyararak o kayda gelip boş olan yerleri girmeye zorlamak ve yueni kayıt yaptırmamak istiyorum.yardımlarınızı bekliyorum
özetle DURUMU metin kutusunun güncelleştirme sonrasındaki olay yordamına formda daha öceden katıldı haricindeki diğer kıstas yazıldıysa yeni kayıt açmayacak bu kaydı girmeye zorlayacak
Cvp: önceki kayıtlara göre yeni kayıt açma - kanlitoprak - 03/07/2013
kendi soruma kendim cevap vereyim barii
If Dlookup ("spor_ıd", "sportest", "DURUMU='İZİNDE' ") Or Dlookup ("spor_ıd", "sportest", "DURUMU='HASTANEDE' ") Or Dlookup ("spor_ıd", "sportest", "DURUMU='GÖREVLİ' ") Or Dlookup ("spor_ıd", "sportest", "DURUMU='RAPORLU' ") Then
MsgBox "PERSONELİN GİRİLMEYEN TESTİ BULUNMAKTADIR YAPTIGINIZ KAYIT SİLİNECEKTİR YİNEDE KAYIT YAPMAK İSTİYORSANIZ KAYITLAR SİLİNDİKTEN SONRA DURUMU KISMINI DEĞİŞTİRMEDEN KAYIT YAPABİLİRSİNİZ!", vbCritical, "TEST UYARI"
Me.sınav = ""
Me.mekik = ""
Me.barfiks = ""
Me.trh = ""
Me.kosu = ""
Me.testler = ""
Exit Sub
Else
End If