Trying to morph code from a different function. I'm trying to hide some controls based on the results of query field [RetLocationID]. I don't get an error, but it doesn't work either. The controls are always hidden. What am I dong wrong?
Code:
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
'THIS CODE FOR [GiftMsg] WORKS AS EXPECTED
If [GiftMsg] = "00" Then
Me!GiftMsgBox.Visible = False
Else
Me!GiftMsgBox.Visible = True
End If
'THIS CODE DOES NOT WORK
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim varReturnID As String
Dim varPackListQuery As String
Dim varReportName As String
varPackListQuery = "qry_PackingList"
varReportName = "Packing List"
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT Distinct [RetLocationID] FROM " & varPackListQuery, dbOpenSnapshot)
varReturnID = rs("RetLocationID")
If varReturnID = "SM" Or varReturnID = "SN" Or varReturnID = "SV" Then
Me!BarCodeMsg.Visible = True
Me!BarCode.Visible = True
Me!BarCodeReceiptID.Visible = True
Me!StoreAssociate.Visible = True
Me!StoreAssocInst.Visible = True
Else
Me!BarCodeMsg.Visible = False
Me!BarCode.Visible = False
Me!BarCodeReceiptID.Visible = False
Me!StoreAssociate.Visible = False
Me!StoreAssocInst.Visible = False
End If
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
thanks!