declaring global variables

[majel]

I just read an older post that described declaring global variables. I tried this but I'm getting an error and the text stays red.
What am I doing wrong? This code is behind a form.
Thanks.

Option Compare Database

Global theDate As String

Function DetermineDate()
thedate = InputBox("Enter Volume Date YYYYMM")
mymonth = Right(thedate, 2)
appdate = MonthName(mymonth)
appyear = Left(thedate, 4)
End Function

Private Sub Command10_Click()
DoCmd.OpenReport "Report - Table7", acViewPreview
End Sub

[nico5038]

First you need to move the code into a Module, else it's scope will be limited to the form/report it's placed behind.

Option Compare Database
Option Explicit

Public theDate As String

Function GetDate() as String
GetDate = theDate
End Function

The above code in a module will allow you to use theDate even in a query like:

select * from tblX where VolumeDate = GetDate

You can use your from your code:
thedate = InputBox("Enter Volume Date YYYYMM: ")

This will fill the string and the GetDate() function will return the filled value.

Finally I wouls use Tools/Options to check the option that variables need to be defined. This will give the "Option Explicit" and warn you when using a not declared variable.

Getting the idea ?

Nic;o)

[PEB]

You can't declare Global variables in From or report module!

Only in the part MODULES you create a module and you define your global variable!!!!

Also don't do the mistake to have the same name as global variable and as sub or function name as Nico suggested.. It' wonna't work!

If your declaration is placed at place your code seems correct!