M
Mehran52
When I try to search for anything I received this error,
Anybody knows what should i do?
I receive this error on Browse_All_Actions
If strError <> "" Then
MsgBox strError
Else
'DoCmd.OpenForm "Browse Actions", acFormDS, , strWhere, acFormEdit,
acWindowNormal
If Not Me.FormFooter.Visible Then
Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
End If
Me.Browse_All_Actions.Form.Filter = strWhere
Me.Browse_All_Actions.Form.FilterOn = True
End If
End Sub
Anybody knows what should i do?
I receive this error on Browse_All_Actions
If strError <> "" Then
MsgBox strError
Else
'DoCmd.OpenForm "Browse Actions", acFormDS, , strWhere, acFormEdit,
acWindowNormal
If Not Me.FormFooter.Visible Then
Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
End If
Me.Browse_All_Actions.Form.Filter = strWhere
Me.Browse_All_Actions.Form.FilterOn = True
End If
End Sub