Global Variables (setting and using)

kstevens

Ok, the first thing i found out is that i should be using 'Public' instead of 'Global", so i did that. Here is what i tried to do (yes i have read as much as i could before i posted...... i promise). I set my variables in a module (not a class module) like this

Expand|Select|Wrap|Line Numbers

Public ShippingType as Integer

Then i set a value to it with buttons on a popup form like this

Expand|Select|Wrap|Line Numbers

 
Private Sub customer_Click()

DoCmd.OpenForm "frmshipping", acNormal, , , acFormAdd

ShippingType = 1

DoCmd.Close acForm, "frmshiptype"

End Sub
 
Private Sub transfer_Click()

DoCmd.OpenForm "frmshipping", acNormal, , , acFormAdd

ShippingType = 2

DoCmd.Close acForm, "frmshiptype"

End Sub
 
Private Sub vendor_Click()

DoCmd.OpenForm "frmshipping", acNormal, , , acFormAdd

ShippingType = 3

DoCmd.Close acForm, "frmshiptype"

End Sub

Then on the form "frmshipping" i placed in the OnCurrent Event

Expand|Select|Wrap|Line Numbers

 
If ShippingType = 1 then

blah blah blah

end if
 
if ShippingType = 2 then 

blah blah blah

end if
 
if ShippingType = 3 then

blah blah blah

end if

Then when it wasnt working properly i added this before the if/thens

Expand|Select|Wrap|Line Numbers

msgbox (ShippingType)

Then ( i will say it this way on purpose) when i open the form the second time using Transfer (ShippingType should be equal to 2), after opening it the first time with Customer (ShippingType = 1) then i get a 1 in the msgbox. Every time i do it it gives me the value from the press before. Beleive it or not, while trying to cheat i decided to do this

Expand|Select|Wrap|Line Numbers

 ShippingType = 1

ShippingType = 1

Just to see if delcaring it twice would work...... Well it didnt. Can someone please give me the tip i need to move on. I thought i had global variables figured out because this method actually worked somewhere else (summing numbers from some queries) but it doesnt seem to work here. Any help is appreciated.

Also, when a global variable is used.... is it the same for all users, or are different users able to set different values to it at the same time.

KStevens

kstevens

Nevermind, i cuaght it when reading my post.

I changed

Expand|Select|Wrap|Line Numbers

 Private Sub customer_Click() 

DoCmd.OpenForm "frmshipping", acNormal, , , acFormAdd 

ShippingType = 1 

DoCmd.Close acForm, "frmshiptype" 

End Sub

to this

Expand|Select|Wrap|Line Numbers

 Private Sub customer_Click() 

ShippingType = 1

DoCmd.OpenForm "frmshipping", acNormal, , , acFormAdd 

DoCmd.Close acForm, "frmshiptype" 

End Sub

I cant beleive I missed that.....

Stewart Ross Inverness

Hi. Well done for catching the error in the sequence of opening the form before you had set the variable concerned.

Something you may consider in the future - as it would do away with the need to use a global variable to pass a value to a form - is to use the OpenArgs string parameter of the OpenForm method to pass the value instead. This can be tested in the form's On Open event to see what its value is, and do whatever is necessary for the form accordingly. The extract from MS Help below for the OpenArgs method (the one that retrieves the value passed) clarifies how it's done:

Quote:

Originally Posted by MS Help

Example
The following example uses the OpenArgs property to open the Employees form to a specific employee record and demonstrates how the OpenForm method sets the OpenArgs property. You can run this procedure as appropriate— for example, when the AfterUpdate event occurs for a custom dialog box used to enter new information about an employee.

Expand|Select|Wrap|Line Numbers

 Sub OpenToCallahan()

    DoCmd.OpenForm "Employees", acNormal, , , acReadOnly, _

     , "Callahan"

End Sub
 
Sub Form_Open(Cancel As Integer)

    Dim strEmployeeName As String

    ' If OpenArgs property contains employee name, find

    ' corresponding employee record and display it on form. For

    ' example,if the OpenArgs property contains "Callahan",

    ' move to first "Callahan" record.

    strEmployeeName = Forms!Employees.OpenArgs

    If Len(strEmployeeName) > 0 Then

        DoCmd.GoToControl "LastName"

        DoCmd.FindRecord strEmployeeName, , True, , True, , True

    End If

End Sub

-Stewart

Global Variables (setting and using)

re: Global Variables (setting and using)

re: Global Variables (setting and using)

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about