Cant get rid of a filter

  • Thread starter Thread starter vb_Dumb
  • Start date Start date
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?
 
Go into the design view of the form, open the property sheet, and clear the
Filter property on the data tab.
 
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
 
Back
Top