Skip to main content

AccessTr.neT


Geçerlilik Kuralı

Geçerlilik Kuralı

Çözüldü #2
Kod:
Dim DUR As String
Dim stLinkCriteria As String
DUR = Me.[Protokol No].Value
stLinkCriteria = "[Protokol No]=" & "'" & DUR & "'"
If DCount("[Protokol No]", "HASTA", stLinkCriteria) > 0 Then

MsgBox "DİKKAT DAHA ÖNCE *** " _
& DUR & " ***Protokol No DAHA ÖNCE GİRİLMİŞ." _
& vbCr & vbCr & " FARKLI PROTOKOL NO GİRİNİZ.....", vbInformation _
, "*********MÜKERRER KAYIT***********"
Me.Undo

End If




Bu kodu Protokol no i imli metin kutusunun "güncelleştirme öncesine " gir olacaktır
.rar Er&bay kullanıcı a-celoyce cevap.rar (Dosya Boyutu: 688,11 KB | İndirme Sayısı: 20)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 00:27
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 00:43
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 00:48
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 00:52
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 01:04
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 01:06
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 01:10
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 01:16
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 01:20
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 01:25
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 01:29
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 01:46
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 01:53
Cvp: Geçerlilik Kuralı - Yazar: C*e*l*o*y*c*e - 02/03/2009, 01:55
Cvp: Geçerlilik Kuralı - Yazar: mehmetdemiral - 02/03/2009, 02:01
Cvp: Geçerlilik Kuralı - Yazar: lokosit40 - 02/03/2009, 02:24
Task