Cant get rid of a filter

V

vb_Dumb

I have a form based on a query and every time it opens i have a filter
that opens with it and it wont allow me to see my records does anyone
know how to get rid of that?
 
A

Arvin Meyer [MVP]

Go into the design view of the form, open the property sheet, and clear the
Filter property on the data tab.
 
V

vb_Dumb

Go into the design view of the form, open the property sheet, and clear the
Filter property on the data tab.
--
Click to expand...
There is nothing there i dont get it here the code i have on the
form...
Option Compare Database

Private Sub Command27_Click()
MergeSingleWord
End Sub
Private Sub Command29_Click()
On Error GoTo Err_Command29_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70

Exit_Command29_Click:
Exit Sub

Err_Command29_Click:
MsgBox Err.Description
Resume Exit_Command29_Click

End Sub
Private Sub Command30_Click()
On Error GoTo Err_Command30_Click


DoCmd.GoToRecord , , acNewRec

Exit_Command30_Click:
Exit Sub

Err_Command30_Click:
MsgBox Err.Description
Resume Exit_Command30_Click

End Sub
Private Sub Command31_Click()
On Error GoTo Err_Command31_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command31_Click:
Exit Sub

Err_Command31_Click:
MsgBox Err.Description
Resume Exit_Command31_Click

End Sub
Private Sub Command32_Click()
On Error GoTo Err_Command32_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste
Append

Exit_Command32_Click:
Exit Sub

Err_Command32_Click:
MsgBox Err.Description
Resume Exit_Command32_Click

End Sub
Private Sub Command33_Click()
On Error GoTo Err_Command33_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Exit_Command33_Click:
Exit Sub

Err_Command33_Click:
MsgBox Err.Description
Resume Exit_Command33_Click

End Sub
Private Sub Command34_Click()
On Error GoTo Err_Command34_Click


Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Command34_Click:
Exit Sub

Err_Command34_Click:
MsgBox Err.Description
Resume Exit_Command34_Click

End Sub
Private Sub Command35_Click()
On Error GoTo Err_Command35_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command35_Click:
Exit Sub

Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click

End Sub


Private Sub Merge_To_Word_Click()
MergeSingleWord
End Sub







Private Sub Request_Date_AfterUpdate()

If Date >= GetBusinessDay(Me.Request_Date, 6) Then
Me.Action_Overdue = "OVERDUE"
Me.Action_Overdue.BackColor = 16711680
Else
Me.Action_Overdue = GetBusinessDay(Me.Request_Date, 5)
Me.Action_Overdue.BackColor = 16777215
End If


End Sub


Private Sub To_AfterUpdate()
If IsNull(Email) Then
MsgBox "Field is empty. Nothing copied!", vbExclamation,
"Copy"
Else
Email.SetFocus
DoCmd.RunCommand acCmdCopy
End If
End Sub
 
Top