Arkadaşlar tekrardan merhaba.
Tablolardaki bir alanımın giriş maskesini ilk örneğin ilk iki rakamını 10 ile 20 arasında ondan sonra gelen harfi ise z ve f ile sınırlamak istiyorum.Bunu giriş maskesine nasıl yazabilirim.Şimdiden teşekkürler...
Giriş Maskesini Parçalı Şekilde Kontrol Ettirmek
İlk 2 alanı rakam olsun sonraki harf olsun deseniz kolaydı (99L yazmanız yeterliydi)
Söylediğinizi yapmak için kod ile kontrol yapmak gerekir diye düşünüyorum
veya yanyana 3 denetim koyun güncellenince birleştirin
1. denetim
Giriş maskesi : 99
Geçerlilik koşulu >=10 And <=20
AfterUpdate me.denetim3=me.denetim1&me.denetim2
2. denetim
Giriş maskesi : L
Geçerlilik koşulu Z Or F
AfterUpdate me.denetim3=me.denetim1&me.denetim2
3. denetim ise sizin asıl denetiminiz
Kolay gelsin
Söylediğinizi yapmak için kod ile kontrol yapmak gerekir diye düşünüyorum
veya yanyana 3 denetim koyun güncellenince birleştirin
1. denetim
Giriş maskesi : 99
Geçerlilik koşulu >=10 And <=20
AfterUpdate me.denetim3=me.denetim1&me.denetim2
2. denetim
Giriş maskesi : L
Geçerlilik koşulu Z Or F
AfterUpdate me.denetim3=me.denetim1&me.denetim2
3. denetim ise sizin asıl denetiminiz
Kolay gelsin
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 02/06/2009, 06:49, Düzenleyen: okileturc.
Teşekkürler.
Hocam bunların hepsini geçerlilik kuralına tek kural olarak nasıl yazabilirim?
Giriş maskesiyle yapılırmı uğraşmak lazım ama, benim tavsiyem giriş maskelerini tablolar üzerinde kullanmayın. İlla giriş maskesi kullanacaksanız formlardaki kontrollerle yapın bunları. Çünkü tablo üzerinde giriş maskesi eğer aynı veritabanına birden fazla kullanıcı bağlıysa performans sorunlarına yol açar.
Son Düzenleme: 02/06/2009, 13:31, Düzenleyen: mesudi.
Private Sub Metin0_AfterUpdate()
Select Case Left(Me.Metin0, 2)
Case 10 To 20
Select Case Right(Me.Metin0, 1)
Case "Z"
Case "F"
Case Else
MsgBox "SON SIRADAKİ HARF Z YADA F OLABİBİLİR"
Me.Metin0.SetFocus
End Select
Case Else
MsgBox "İLK İKİ HANEDEKİ RAKAM 10 İLE 20 ARASINDA OLABİLİR"
Me.Metin0.SetFocus
End Select
End Sub
Select Case Left(Me.Metin0, 2)
Case 10 To 20
Select Case Right(Me.Metin0, 1)
Case "Z"
Case "F"
Case Else
MsgBox "SON SIRADAKİ HARF Z YADA F OLABİBİLİR"
Me.Metin0.SetFocus
End Select
Case Else
MsgBox "İLK İKİ HANEDEKİ RAKAM 10 İLE 20 ARASINDA OLABİLİR"
Me.Metin0.SetFocus
End Select
End Sub
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Konuyu Okuyanlar: 1 Ziyaretçi