OpenAugs on form load event

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

An alternative:

http://www.baldyweb.com/OpenArgs.htm

Hi. What does "does not work" mean? What are you getting with your code and what are you expecting? Can you show us what the OpenArgs look like?

Missing closing paren.

June7 said:

Missing closing paren.

Click to expand...

Good eye! Makes sense...

June7 said:

Missing closing paren.

Click to expand...

why the code runs at all? with no errors?

Because you have an error handler that is trapping errors and, apparently, preventing error messages.

What happens in the procedure GeneralErrorHandler?

Step debug.

Because you have an error handler that is trapping errors

Click to expand...

It still shouldn't run at all. I can find no error trapping or compile option setting that will allow it. Not only is it red, it just won't run for me, so it's not just a run-time error in version 2016.

Right, good point, procedure won't even run in Access 2010. So more mystery.