Need some help on the variable scope

[blueraincoat]

Hi All,
I have a swith board with many command buttons to open the other forms to enter data.
And I want the add this function to the switch board. When I enter the RepairID, and click on certain button, it will automatically find the relevant form and open. The code is like this:

Private Sub cmdInitialCheck_Click()
Dim strPartNumber As String
Dim strATA As String
Dim strFormName As String
 
strPartNumber = DLookup("PartNumber", "tblRepairID", "[RepairID]='" & Me.RepairID.Value & "'")
 
strATA = DLookup("ATA", "tblATA", "[PartNumber]='" & strPartNumber & "'")
strFormName = "frm" & strATA & "InitialCheck"
 
DoCmd.OpenForm strFormName
 
End Sub

Here is my question, how can I make the strPartNumber and strATA can be used on all the button of the form? So that I dont need to type it again and again in the code of other command buttons. I think I'm just lazy...
I searched and found maybe the private variable is what I need, but I failed to get it work.
Thanks in advanced...

[June7]

Did you try declaring those variables in the header section of the module?

[blueraincoat]

Option Compare Database
Option Explicit
Private mstrPartNumber As String
Private mstrATA As String
mstrPartNumber = DLookup("PartNumber", "tblRepairID", "[RepairID]='" & Me.RepairID.Value & "'")
mstrATA = DLookup("ATA", "tblATA", "[PartNumber]='" & mstrPartNumber & "'")
 

Private Sub cmdInitialCheck_Click()
    
    Dim strFormName As String
    
    
    strFormName = "frm" & mstrATA & "InitialCheck"
    Debug.Print strFormName
    DoCmd.OpenForm strFormName
    
End Sub

Tried this but failed...

[blueraincoat]

I found what's wrong...
I should put the following code in the click event

mstrPartNumber = DLookup("PartNumber", "tblRepairID", "[RepairID]='" & Me.RepairID.Value & "'")
mstrATA = DLookup("ATA", "tblATA", "[PartNumber]='" & mstrPartNumber & "'")

This seems like a silly thread...
And it did not save much work actually - -