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
'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