if (eğer) formülü

[karaayhan]

Private Sub DoğumTarihi_AfterUpdate()
'doğum tarihi 16-18 arası ise uyarı versin
Dim dog As Date
Dim yaş As String
dog = Date
yaş = DateDiff("yyyy", [DoğumTarihi], [dog])
If ([yaş] = 16 Or 17 Or 18) Then
MsgBox "Damat Adayı; " & [yaş] & " Yaşında Yasal Temsilciye İhtiyaç Var", vbCritical, "DİKKAT"
If (yaş < 16) Then
MsgBox "Damat Adayı; " & [yaş] & " Yaşında " & Chr(10) & " Bu Yaşta Evlilik Olmaz" & Chr(10) & " Biraz Büyüsün de Gelsin!!!", vbCritical, "DİKKAT"
If (yaş > 18) Then
MsgBox "Damat Adayı; " & [yaş] & " Yaşında " & Chr(10) & " Bu Yaşta Evlenmesinde Sakınca YOKTUR", vbCritical, "DEVAMMM"
End If
End If
End If
End Sub


bu kodlar hata veriyor yani 3 yaşında diyor ve arkasından büyüsünde gelsin diyor 35 yaşında olsa bile yasal temsilciye ihtiyaç var diyor
kodlarda hata nerede acaba yani 16-18 arasını between kullanarak mı almalıyım
ki bu nasıl olacak..?


teşekkürler kolay gelsin

 

[beab05]

Merhaba;

Dim dog As Date
Dim yaş As String
dog = Date
yaş = DateDiff("yyyy", [doğumtarihi], [dog])
If ([yaş] = 16 Or yaş = 17 Or yaş = 18) Then
MsgBox "Damat Adayı; " & [yaş] & " Yaşında Yasal Temsilciye İhtiyaç Var", vbCritical, "DİKKAT"

ElseIf (ya&#351; < 16) Then
MsgBox "Damat Aday&#305;; " & [ya&#351;] & " Ya&#351;&#305;nda " & Chr(10) & " Bu Ya&#351;ta Evlilik Olmaz" & Chr(10) & " Biraz B&#252;y&#252;s&#252;n de Gelsin!!!", vbCritical, "D&#304;KKAT"

ElseIf (ya&#351; > 18) Then
MsgBox "Damat Aday&#305;; " & [ya&#351;] & " Ya&#351;&#305;nda " & Chr(10) & " Bu Ya&#351;ta Evlenmesinde Sak&#305;nca YOKTUR", vbCritical, "DEVAMMM"
End If