Ah, to place blame on a mere little object. How sad!
Anywho - This code runs when I open a form, and it present an inputbox before the form opens, which asks for the users initials. That's all good.
I have found though that the user can click OK or Cancel without entering initials and proceed right into the form. I would rather the inputbox close and the user not be allowed into the form.
What's good is that when the user is allowed into the form they can't proceed to enter data until the initials are entered.
I might not be able to have my cake and eat it too?
Thx, bph
Private Sub Form_Current()
Me.chkForeign1 = False
Me.chkForeign2 = False
Me.cboLake_Person_Last_Updated.SetFocus

On Error GoTo NoInitialsEntered
Dim varInitials As Variant
   varInitials = InputBox("Please enter your initials.", "User Initials")
   If IsNull(varInitials) Then
   DoCmd.Close acForm, "add_frm_lake_pipeinfo", acSaveNo
   Else
   Me.cboLake_Person_Last_Updated.SetFocus
   Me.cboLake_Person_Last_Updated.Text = (varInitials)
   End If

NoInitialsEntered:
    Select Case Err.Number
        Case 2237
            MsgBox "The initials entered are not valid"

            Exit Sub
        End Select

How about...

varInitials = Nz(Trim(InputBox("Please enter your initials.", "User Initials")),"")

If varInitials = "" Or varInitials = vbCancel Then


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

I had tried something similar to that and it still let them in. It just doesn't pay atttention to the fact that nothing was entered or the cancel was clicked. Maybe some code in another part of the form is messing it up.
thx, bph

Try putting a simplier code on the form's ON OPEN event, not on the ON CURRENT event.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

I use the following and it works fine:


Beth M

In VB I use IsEmpty() to test the result:
--

Joe

Greg, Putting in the form On Open Event does the job except that I then get a "stutter" so to speak because the On Current Event fires and is looking for the initals as well. So I hit cancel, then I hit cancel again, then back to switchboard. Same when the user enters valid initials, the On Open asks, then the On Current event asks for the initials, and then the user gets into the form. I need the on current stuff to stay as is though.

Oh, when I said put it on the ON OPEN event, I thought it implied that you must take it off the ON CURRENT event. You only need to capture a person's initials once after they open the form, not ask for every record. So remove the inputbox code from the ON CURRENT.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Thanks Greg. That would be the optimal way. Unfortunately...the client wants the person prompted for initials every time they save a record and proceed to enter a new record. He also doesn't want them to be able to go back and clear their initials from the textbox on the form once they enter them.
I guess I should try to retain the initials in the textbox,(once properly entered and they match the list), and dim out the textbox with the current initials until the user is done entering data for all the records the intend to enter. The initials stay with each record.

bph

Do your users log in to a network? If so, you can use an API call to retrieve the network login. Store the network logins in a table with a field for the user initials. Then use a function in the before update event of any form that requires initials to set the initials. If you need the initials displayed, lock the textbox so users don't change each others entered/edited records.

To get the user login, I declare the API at the top of a standard module, below the option statements.

Private Declare Function GetUserNameA Lib "advapi32" (ByVal lpBuffer As String, _
  lngSize As Long) As Long

Then write a function to call the api and return a string containing the name:

Public Function fnUserName() As String

Dim strRet As String * 256

    If GetUserNameA(strRet, Len(strRet)) <> 0 Then
        fnUserName = Left$(strRet, InStr(1, strRet, vbNullChar) - 1)
    End If
End Function

Once you have the user name, you can use it in place of the initials or do a dLookup or open a recordset to retrieve the initials. If you write a function to return the user name, you can set the value of the locked bound text box to the return value of that function in the form before update event.

It's best not to depend on users to do things if you can automate the procedure yourself.



Ciao
Jürgen Welz
Edmonton AB Canada
[email protected]