I have done this hundreds of times before but this bit of code just will not work, I am sure its a simple problem but i cant see it. Please help! I am getting a value prompt box when I click OpenQuerys.
Private Sub OpenQuerys_Click()
Dim v_MONTH As String
Dim stLinkCriteria As String
Dim stDocName As String
v_MONTH = Forms![Months].MonthsCombo
stLinkCriteria = "month = & v_MONTH"
stDocName = "MonthResults"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Private Sub OpenQuerys_Click()
Dim v_MONTH As String
Dim stLinkCriteria As String
Dim stDocName As String
v_MONTH = Forms![Months].MonthsCombo
stLinkCriteria = "month = & v_MONTH"
stDocName = "MonthResults"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub