Invalid Use of Me Keyword (1 Viewer)

#the above gives me "Invalid use of Me keyword" after I debug the code in the highlighted part. How can I get this fixed?

FYI I moved your thread out of the introductions forum. "Me" is only valid in the code behind a form or report, as it is a shortcut to refer to that object. Sounds like this code is in a standard module, where "Me" can't be used.

Welcome to the site by the way.

Oh, and generally you'd need the full form reference instead of "Me" in a standard module:

http://theaccessweb.com/forms/frm0031.htm

As the code includes 3 command buttons, I'm fairly confident its in a form rather than a standard module.
The SQL appears OK so I think there's a different explanation

Try dimming sSELECT, sWHERE, sORDERBY as String then set the string expressions for each

I tried the code in a sample database and it works fine. Have you got a list box called "lstUsers" on the Form?

Or try defining the constant to have a specific type, as for example


I did that for one of the strings... you can do the same for the other two.

However, there is another test you could perform. Move the entire sub that you highlighted in red to be below / after the Sub_cmdCurrent_Click routine. See if it now calls out the "Current" routine. If so, then you can't use constants in that context and will have to separately DIM and assign values to your strings. And I kind of agree with Colin that there can be issues in using constants like that. I've seen it before but don't at the moment recall the details.

I understand you are trying to minimize your work to avoid repeatedly typing the strings. But first, cut/paste works in the editor so you could type once and cut/paste once. Second, if it is more widespread use than just a couple of references, you could declare the strings in your module's declaration area and then, in the Form_Open routine, assign the values ONCE in that routine. Then they are just like constants except that they are shared variables.

Hell Guys,
I get this reply when I open the App "Variable not defined". Where I have the (Form1 in the code <Set oForm = Form1> being Highlighted.
Actually I am trying to build an automatic backup in access. I have the entire code pasted below
I need help.

>> Function RunSub()
Dim sFile As String, oForm As Form
Set oForm = Form1
oForm.Visible = False
End Function

Sub BackUp()
Dim sFile As String, oDB As DOA.Database
sFile = CurrentProject.Path & "" \ "" & Format(Date, "m-d-yy") & ".accdb"
If Dir(sFile) <> "" Then Kill sFile
Set oDB = DBEngine.Workspaces(0).CreateDatabase(sFile, dbLangGeneral)
oDB.Close

Dim oTD As TableDef
For Each oTD In CurrentDb.TableDefs
If Left(oTD.Name, 4) <> "MSys" Then
DoCmd.TransferDatabase acExport, "Microsoft Access", sFile, acTable, oTD.Name
End If
Next oTD
MsgBox "Backup of tables is stored in the folder" & vbCr & "under the file name" & Right(sFile, Len(sFile) - InStrRev(sFile, ""))

End Sub

Why not simply

Forms!Form1.Visible = False

Do as pbaldy said or use this

EDIT
Dim.... oDB As DAO.Database