Got it working, but it does not refresh when the data is copied(The textbox stays empty until i select it). Anyidea how i can refresh the the text fields? I tried me.Refresh but it didn't work
Code:
Private Sub Tekst800_AfterUpdate() If Left(Me.Tekst800, 2) = "/D" Then
Me.Tekst837.Value = Right(Me.Tekst800.Value, 3)
Me.Tekst829.Value = Mid(Me.Tekst800, 6, 1)
Me.Tekst823.Value = Mid(Me.Tekst800, 3, 3)
Me.Tekst800.Value = ""
Me.Tekst800.SetFocus
Else
Me.Keuzelijst783.Value = Mid(Me.Tekst800.Value, 3, 20)
Me.Tekst800.Value = ""
Me.Tekst800.SetFocus
End If
End Sub