Solved Working with Global Variables (1 Viewer)

[pooldead]

I have a variable (strQry) in Form A. I am trying to declare it globally so that I can use it in Form B. However, when I compile, I get the "Variable not defined" error on the Form B sub at the "strQry" variable.

'FORM A'
Option Explicit
Option Compare Database
Public strQry As String

Public Sub cmdPW180_Click()
    
    DoCmd.OpenForm "frm_SA-Review"
    strQry = "SELECT samAccountName, pwdLastSet, lastLogonTimestamp, swhEmployeeStatus FROM SA_Master WHERE pwdLastSet <= DateAdd('d',-180,Now()) ORDER BY samAccountName"
    Forms![frm_SA-Review]!lboxData.RowSource = strQry

End Sub

'FORM B - frm_SA-Review'
Public Sub cmdExport_Click()

    Dim fileName As String
    
    fileName = "ServiceAccount_QueryResults_" & Format(Now(), "dd-mm-yy") & ".pdf"
    DoCmd.OutputTo acOutputQuery, strQry, acFormatPDF, fileName

End Sub

 

[Isaac]

Here is a method that would work:

1. declare a global variable inside a regular Module, near the top. (I keep globals in their own module for ease). global varname as type
2. in form A's code, assign that variable a value. code varname=value
3. in form B's code, freely refer to varname

 

[theDBguy]

Hi. If you want to use global variables, you'll have to declare them in a Standard Module. As an alternative, you can try using TempVars.

Edit: Oops, too slow...

 

[pooldead]

Thank you both!

 

[Isaac]