In the following segment of code within a General Module, I can't get the Requery to take effect. What's wrong?
Here's the filter:
Code:
snip
Dim dteGAPuse As Date
On Error GoTo Handle2474
lngID = Forms("frmLibrary").Form.WorksID 'Get record ID from our host (not a parent per se') form
If Screen.ActiveControl.Name = "tbGAPuse" Then 'Error 2474 if we're not on a control
dteGAPuse = Nz(DLookup("GAPuse", "QLibrary", "WorksID = " & lngID))
If dteGAPuse = 0 Then Exit Function
Forms("frmLibrary").Form.Filter = "GAPuse = " & "#" & dteGAPuse & "#"
MsgBox Forms("frmLibrary").Form.Filter
Forms("frmLibrary").Form.Requery
Exit Function
End If
Skip2474:
ReDim strURL(30)
snip