I am using an append query (Query1)to add the name of the current
logged on user to a table using

Expr1: fGetFullNameOfLoggedUser()

I then have a text box on a form that displays the information
contained in the table.
All works fine if I run the query, whilst it is in design mode, and
adds the name as many times as i click on the red ! mark.
In my form I have under the On open an event procedure as shown below

Private Sub Form_Open(Cancel As Integer)

If fGetFullNameOfLoggedUser = "b******y paul" Then
Command50.Visible = True
Command51.Visible = True
End If



DoCmd.OpenQuery "Query1"

DoCmd.OpenForm "frm_shutdown", , , , , acHidden

End Sub

The problem is that the text box remains empty so the name of the
current user does not show, i know the query works from what i said
earleir, can anyone see where this newbie is messing up ?

Thanks in advance