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