VBA Function & Cmd Button's On-Click Event

[dmon000]

How can I get the following two functions to execute using the on-click event procudure of a command button? I need to use the values as criteria in a query. I have several different command buttons that use the same query, but need different criteria.

THANKS !!!

Function ReturnWard()
Dim MyVar1 As String
MyVar1 = "1"
ReturnWard = MyVar1
End Function

Function ReturnMeal()
Dim MyVar2 As Long
MyVar2 = 1
ReturnMeal = MyVar2
End Function

 

[SkipVought]

Hi,

Why would you use a function to return, essentially, a CONSTANT???

But more generally...

Sub Cmd_Click()
  Dim sSQL as string
  sSQL = "Select * From [TableA] " & _
         "Where [WardID]='" & ReturnWard() & "' And [MealNum]=" & ReturnMeal() & ""
End Sub

Skip,

_[red][/red]