D
Dutchy
Hi,
Hope somebody can help me with this problem
Private Sub lidnummer_AfterUpdate()
Dim tussenstap As String
On Error GoTo einde
If Left(Me!combo6, 11) = "DE VOORZORG " Then
tussenstap = Right(Me!lidnummer, 6)
If Right(tussenstap, 2) < 10 Then
Me!geboortedatum = Left(tussenstap, 2) & "/" & Mid(tussenstap, 3, 2) &
"/20" & Right(tussenstap, 2)
Else
Me!geboortedatum = Left(tussenstap, 2) & "/" & Mid(tussenstap, 3, 2) &
"/19" & Right(tussenstap, 2)
End If
End If
I can not get the value of Right(Me!lidnummer, 6) into the string variable
"tussenstap"
When I run the code and put a stop to check the values Me!lidnummer has a
value but tussenstap is empty ("")
How is this possible??
Thanks for your kind help
JP
Hope somebody can help me with this problem
Private Sub lidnummer_AfterUpdate()
Dim tussenstap As String
On Error GoTo einde
If Left(Me!combo6, 11) = "DE VOORZORG " Then
tussenstap = Right(Me!lidnummer, 6)
If Right(tussenstap, 2) < 10 Then
Me!geboortedatum = Left(tussenstap, 2) & "/" & Mid(tussenstap, 3, 2) &
"/20" & Right(tussenstap, 2)
Else
Me!geboortedatum = Left(tussenstap, 2) & "/" & Mid(tussenstap, 3, 2) &
"/19" & Right(tussenstap, 2)
End If
End If
I can not get the value of Right(Me!lidnummer, 6) into the string variable
"tussenstap"
When I run the code and put a stop to check the values Me!lidnummer has a
value but tussenstap is empty ("")
How is this possible??
Thanks for your kind help
JP