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
#6
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
