if(eğer) fonksiyonu

[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

burada 16-18 yaş arası ise uyarı versin değilse de sorun yok diye mesaj versin istiyorum ama hatalı uyarı alıyorum.
sorun nerede acaba

kolay gelsin

 

[beab05]

Ben de &#351;a&#351;&#305;rd&#305;m ben bu soruya cevap verdim, cevab&#305;m nerde diye Neden ayn&#305; konuyu 2 kez a&#231;t&#305;n&#305;z?

http://excel.web.tr/showthread.php?t=54882

 

[karaayhan]

say&#305;n beab05 a&#231;t&#305;&#287;&#305;m konuyu g&#246;remiyorum sorular k&#305;sm&#305;nda yine cevab&#305;n&#305;z&#305; forumda konuya g&#246;re arama yaparak bulabildim
eskiden en son konu en &#252;ste g&#246;r&#252;nt&#252;lenirdi
sorun nerede anlayamad&#305;m

te&#351;ekk&#252;rler

 

[karaayhan]

pardon otomatik giri&#351; te kullan&#305;c&#305; ad&#305; ve parola girilmedi&#287;indenmi&#351;