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