VBA Global Variables

OK.  Should I create two functions?   One to retrieve the value, and another to set the value?   And place both functions in my module?

This makes alot more sense than any help files I have read previously.

"Z"

First make sure these are in in a module under module tab (it apears they are):

Public gCurrent_Marshal As String
Public gCurrent_Marshal_ID As String
Public Const gChapter_Name As String = "ULTRA National"
Public Const gChapter_ID As String = "00"

----------
To set them, you just use:

gCurrent_Marshal =Me!txtMarshal     'for exampe, in a event.

-----
to read them to anter them in to a text box, say txtMarshal, reverse the order (once again in an event):

Me!txtMarshal= gCurrent_Marshal

This way, you don't have make functions.

Mike

But, to use it in aquery as criteria, you must use function calls.  Under field [Marshal], for example, you would enter following line in the criteria cell"

IIF(fnMarshal()="",[Marshal],fnMarshal())

Where, in astandard module, under module tab, you will have:

Pumbic function fnMarshal()As String
If Nz(gCurrent_Marshal,"")="" Then
  fnMarshal=""
Else
  fnMarshal=gCurrent_Marshal
End If

End Function

Mike

Thank you Mike, but I had tried that earlier, and they wouldn't read the data outside of the same module.   I could get them to work on one form, but they wouldn't hold the data going to another form.

The functions are surprisingly easy to program, and I am testing the last of them now.   The only thing I have to do is include a redraw command when I change the data using a function, because it won't update on the display of a form automatically.   Almost got this licked.

"Z"

Re:>Thank you Mike, but I had tried that earlier, and they wouldn't read the data outside of the same module.

That is why you need to have them in standard amodule (under the module tab) not in a class-module (a form's code window).  Make sure  txtMarshal remains unbound.

Mike

Well, to make this easy, none of this information is going to be in a query.

When I had the declarations as above placed into a module, with NO functions, I used exactly the code as you described.  And it would not read or set the variables.

The initial setting of the variables is done by my Main Menu, using Form_Open.  Then the Menu itself showed these variables.   When I tried the global variable = Value, it didn't error on me, (I don't have Option Explicit Set), but it didn't put a value in either.

Now with the functions, the variable set and read works perfectly.  Almost.   If I change the variable I can't get the text boxes showing the value to change.   I tried

    DoCmd.RepaintObject acDefault

Which should force repainting the current screen.   But it's doesn't seem to do so.

If I can get these displays to refresh, I'm good to go!

"Z"

Hi Zaehlas

I use a Module called mod_GeneralDeclarations


   ' --- Global Constants (Messages) ------------------------------------
  Global gMsgText As String       'Text in MsgBox() and InputBox() functions
  Global gMsgType As Integer      'Type in MsgBox() and InputBox() functions
  Global gMsgTitle As String      'Title for MsgBox() and InputBox() function
  Global gStatusText As String    'Status bar text used in Application.Echo method


I use this mainly for error reporting lke this:

Private Sub SomeSub()

On Error Goto ReportError

Your code here

ExitProcedure:
   On Error Resume Next
   Exit Sub

ReportError:
    Select Case err.Number
        Case 2501
        Case 2501
        Case 3420   'Object No longer Valid
        Case 0
        Case Else
            gMsgTitle = "Error in mod_frm_Main.SomeSub"
            gMsgType = vbOKOnly + vbCritical
            gMsgText = "Error " & CStr(err.Number) & ":" & vbCrLf & err.Description
            DoCmd.Hourglass False: Application.Echo True: Beep
            MsgBox gMsgText, gMsgType, gMsgTitle
    End Select
    setCreditLimit = False
    Resume ExitProcedure

End Sub

Alan Warren

OK, I will make the question more specific to my needs:

Why is it that when I declare a global variable in the top of one of my modules, like:

     Global quitPrompt As String

and then assign it in one of my onclick form events:  

     quitPrompt = "False"

and then close the form, in the unload section when I return the variable:

     msgbox quitPrompt

I get a null value?

oops sorry posted in the wrong question

i experienced the same problem, when i tried to declare a public variable on the declaration section(s) of my form, when i tried to use the variable after i close the form, the value became null so  what i did was, i created a module (in the module section just below the macro section) of my project and after that i am able to retain the values of my variables.

hope this helps.