this works Me.FirstName = Left(FirstName, InStr(FirstName, Chr(32)) - 1)
This does not Me.Surname = Right(Surname, InStr(Surname, Chr(32)) -1
So cant figure it out any idea's
Thanks Bob
Code
--------------------------------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo HandleError
If Not IsNull(Me.OpenArgs) Then
' If form's OpenArgs property has a value, assign the contents
' of OpenArgs to the CompanyName field. OpenArgs will contain
' a Customers name if this form is opened using the OpenForm
' method with an OpenArgs argument CustomerID_NotInList event
' procedure.
Me.FirstName = Me.OpenArgs
Me.Surname = Me.OpenArgs
Me.FirstName = Left(FirstName, InStr(FirstName, Chr(32)) - 1)
Me.Surname = Right(Surname, InStr(Surname, Chr(32)) -1
End If
Exit Sub
HandleError:
If Error <> 0 Then
Resume Next
Else
GeneralErrorHandler Err.Number, Err.Description, "modBusinessLogic", _
"Form_Load"
Resume Next
End If
Exit Sub
End Sub
This does not Me.Surname = Right(Surname, InStr(Surname, Chr(32)) -1
So cant figure it out any idea's
Thanks Bob
Code
--------------------------------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo HandleError
If Not IsNull(Me.OpenArgs) Then
' If form's OpenArgs property has a value, assign the contents
' of OpenArgs to the CompanyName field. OpenArgs will contain
' a Customers name if this form is opened using the OpenForm
' method with an OpenArgs argument CustomerID_NotInList event
' procedure.
Me.FirstName = Me.OpenArgs
Me.Surname = Me.OpenArgs
Me.FirstName = Left(FirstName, InStr(FirstName, Chr(32)) - 1)
Me.Surname = Right(Surname, InStr(Surname, Chr(32)) -1
End If
Exit Sub
HandleError:
If Error <> 0 Then
Resume Next
Else
GeneralErrorHandler Err.Number, Err.Description, "modBusinessLogic", _
"Form_Load"
Resume Next
End If
Exit Sub
End Sub