altersabfrage
15.08.2007 11:47:28
ec
und zwar wenn ich das programm starte läuft es soweit, die datumseingabe klappt auch soweit, nur dann kommt eine fehlermeldung und zwar:
Private Sub txtgebdatum_afterupdate()
Dim sdate As String
sdate = Trim$(txtgebdatum.Value)
If Len(sdate) > 0 Then
If Len(sdate) 10 Then
MsgBox " Ugültige Eingabe"
txt.gebdatum.Value = ""
Else
If Not IsDate(sdate) Then
MsgBox "Ungültige Eingabe"
txtgebdatum.Value = ""
End If
End If
End If
End Sub
Private Sub CommandButton1_click()
Dim shinweis As String, zahler As Long, ctrcontrol As TextBox
Dim alter As String
If Len(Trim$(txtgebdatum.Value)) = 0 Then
If Len(shinweis) > 0 Then shinweis = shinweis & vbCrLf
shinweis = shinweis
If ctrcontrol Is Nothing Then Set ctrcontrol = txtgebdatum
zahler = zahler + 1
End If
If zahler = 1 Then
shinweis = "Die Eingaben sind OK!" & vbCrLf & vbCrLf & " Sie sind aktuell " & _
alter(CDate(txtgebdatum.Value)) & " Jahre alt!"
End If
End Sub
ok nun die frage:
was soll mir das sagen, bzw was ist falsch?
schon mal danke für die Antwort!
bis nach der Mittagspause :)
mfg