Global Variables Not Recognising

[tasawer]

Hi
I need to set two global values after a successful password.
These values will determine the rights for each staff.
But I am having difficulty achieving this.

StaffType is a number to determine level of security
CurrentStaff is pointer to staff name.

Your help is appreciated

This is my module

Option Compare Database
 
Global StaffType As Long
Global CurrentStaff As Long
 
Public Sub init_Globals()
    StaffType = 0
    CurrentStaff = 0
End Sub

This is the code behind the form:
if I remove lines 5,6, 7 - all works except my variables are not set to what I want.

Private Sub EnterPassword_AfterUpdate()
 
    If Me.EnterPassword = Me.StaffPassword Then
        MsgBox "MATCH"
        CurrentStaff = Me.StaffID
        StaffType = Me.StaffTypeID
        MsgBox StaffType & " " & CurrentStaff
        DoCmd.Close acForm, "StaffPasswordCheck", acSaveNo
        DoCmd.OpenForm "Switchboard"
    Else
        MsgBox "Incorrect: Please Re-Enter"
        Me.EnterPassword.SetFocus
    End If
 
End Sub
 
Private Sub EnterPassword_Enter()
If IsNull(Me.cmbUsername) Then
    Me.cmbUsername.SetFocus
End If
End Sub
 
Private Sub Form_Open(Cancel As Integer)
Call init_Globals
End Sub

[missinglinq]

In Access VBA, global variables are not declared like this

Global StaffType As Long
Global CurrentStaff As Long

but rather like this

Public StaffType As Long
Public CurrentStaff As Long

They go in a standard module, which it sounds like you've done.

Also be aware that you cannot name the Module with the same name used for a Sub/Function within the Module.

Linq ;0)>

[tasawer]

Thanks for your reply.
I have made the changes... but the problem remains

here are the mods: (module is called Global_Decs)

Option Compare Database
 
Public StaffType As Long
Public CurrentStaff As Long
 
Sub init_Globals()
    StaffType = 0
    CurrentStaff = 0
End Sub

Code Behind the form remains the same

I've taken the code down to basics and even the code below fails.
I do not get any errors in the compile stage either.
so I'm stumped

Private Sub Form_Open(Cancel As Integer)
Call init_Globals
MsgBox StaffType & " " & CurrentStaff
End Sub

HOWEVER:
within the declarations module, When I change Stafftype value from 0 to 1 or 2and run following code, it works. :)

 Private Sub Form_Open(Cancel As Integer)
Call init_Globals
 
Select Case StaffType
    Case 1
    Me.Command23.Visible = True
 
    Case 2
    Me.Command23.Visible = False
 
    End Select
 
End Sub

[NeoPa]

I believe the word Global was superceded by Public a few versions ago. I thought it was still supported though, if not recommended.

Linq's suggestion should fix your problem.

[NeoPa]

Have you tried tracing the code as it happens (See Debugging in VBA)?
What do you see when you do that?

[tasawer]

HI,
Iworked on each variable one at a time and found that renaming StaffType to gblStaffType has solved the problem. I don't know why.

if anyone can shed light on this, it will be help to understand.

[NeoPa]

I can't say for sure, but I suspect you may have an object somewhere with the same name. Possibly a control on your form.

Certainly there's nothing that depends on the name starting with a particular character sequence.