Module use?

[gmccammon]

I'm attempting to create a login form to an access database. See code below. Login form has a ListBox (List10) and a text box (Text12). for users and passwords. List box created from KTCEMployees table and KTCEmployee is the index (hidden)

Private Sub Login_Click()
On Error GoTo Err_Login_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "KTC Order Form"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Login_Click:
    Exit Sub
 
Err_Login_Click:
    MsgBox Err.Description
    Resume Exit_Login_Click
 
End Sub
 
Private Sub List10_AfterUpdate()
'After selecting user name set focus to password field
    Login.Text12.SetFocus
End Sub
 
Private Sub Login1_Click()
'Check to see if data is entered into the password box
    If IsNull(Login.Text12) Or Login.Text12 = "" Then
        MsgBox "You Must Enter a password.", vbOKOnly, "Required Data"
        Login.Text12.SetFocus
        Exit Sub
    End If
 
'Check value of password in KTC Employees table to see if this
' matches value chosen in list box
 
    If Login.Text12.Value = DLookup("Password", "KTCEmployees", _
                                    "[KTCEmployee]" & Login.List10.Value) Then
        KTCEmployee = Login.List10.Value
 
        'Close login form and open Form menu
 
        DoCmd.Close acForm, "Login", acSaveNo
        DoCmd.OpenForm "FormMenu"
 
    Else
        MsgBox "Password Invalid.  Please try Again", vbOKOnly, "Invalid Entry!"
        Login.Text12.SetFocus
 
    End If
 
End Sub
 

I am supposed to create a module to declare variable such as:
Public KTCEmployee As Long

but I don't know how to do this and do you have to link it to the form?

[NeoPa]

In Project window of VBA window, go to Modules in your Project and right-click.
Select Insert Module.
If you add the code

Public KTCEmployee As Long

then it will be visible across your project, including in Queries and Reports.