Filtered records

  • Thread starter Thread starter vb_Dumb
  • Start date Start date
V

vb_Dumb

Every time I open this form I have to remove a filter to see my
records and I have no idea where its coming from there is nothing in
properties, form, filter is there another place that can hold a
filter? I'll put the code from the filter in here kind long but i
don't see anything about a filter maybe I am overlooking some thing or
maybe there is a way to remove the filters on the forms on open event
so any help would be great thanks in advance
Dan



Private Sub Save_Click()
On Error GoTo Err_Save_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70

Exit_Save_Click:
Exit Sub

Err_Save_Click:
MsgBox Err.Description
Resume Exit_Save_Click

End Sub


Private Sub Temp_Deviation_Click()
On Error GoTo Err_Temp_Deviation_Click

Dim stDocName As String

stDocName = "ETP DMR TO TEMP DEVIATION"
DoCmd.RunMacro stDocName

Exit_Temp_Deviation_Click:
Exit Sub

Err_Temp_Deviation_Click:
MsgBox Err.Description
Resume Exit_Temp_Deviation_Click

End Sub
Private Sub save1_Click()
On Error GoTo Err_save1_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70

Exit_save1_Click:
Exit Sub

Err_save1_Click:
MsgBox Err.Description
Resume Exit_save1_Click

End Sub
Private Sub Command119_Click()
On Error GoTo Err_Command119_Click


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

Exit_Command119_Click:
Exit Sub

Err_Command119_Click:
MsgBox Err.Description
Resume Exit_Command119_Click

End Sub
Private Sub Command120_Click()
On Error GoTo Err_Command120_Click


DoCmd.GoToRecord , , acNewRec

Exit_Command120_Click:
Exit Sub

Err_Command120_Click:
MsgBox Err.Description
Resume Exit_Command120_Click

End Sub
Private Sub Command121_Click()
On Error GoTo Err_Command121_Click

Dim stDocName As String

stDocName = "DMR ETP"
DoCmd.SendObject acReport, stDocName

Exit_Command121_Click:
Exit Sub

Err_Command121_Click:
MsgBox Err.Description
Resume Exit_Command121_Click

End Sub
Private Sub Command122_Click()
On Error GoTo Err_Command122_Click

Dim stDocName As String

stDocName = "DMR ETP"
DoCmd.OpenReport stDocName, acPreview

Exit_Command122_Click:
Exit Sub

Err_Command122_Click:
MsgBox Err.Description
Resume Exit_Command122_Click

End Sub
Private Sub Command123_Click()
On Error GoTo Err_Command123_Click

Dim stDocName As String

stDocName = "DMR ETP"
DoCmd.OpenReport stDocName, acNormal

Exit_Command123_Click:
Exit Sub

Err_Command123_Click:
MsgBox Err.Description
Resume Exit_Command123_Click

End Sub
Private Sub Command124_Click()
On Error GoTo Err_Command124_Click


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

Exit_Command124_Click:
Exit Sub

Err_Command124_Click:
MsgBox Err.Description
Resume Exit_Command124_Click

End Sub
Private Sub Command125_Click()
On Error GoTo Err_Command125_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command125_Click:
Exit Sub

Err_Command125_Click:
MsgBox Err.Description
Resume Exit_Command125_Click

End Sub
Private Sub Command126_Click()
On Error GoTo Err_Command126_Click


Screen.PreviousControl.SetFocus
DoCmd.FindNext

Exit_Command126_Click:
Exit Sub

Err_Command126_Click:
MsgBox Err.Description
Resume Exit_Command126_Click

End Sub
Private Sub Command127_Click()
On Error GoTo Err_Command127_Click

Dim stDocName As String

stDocName = "ETP DMR TO REWORK ORDER FORM"
DoCmd.RunMacro stDocName

Exit_Command127_Click:
Exit Sub

Err_Command127_Click:
MsgBox Err.Description
Resume Exit_Command127_Click

End Sub
Private Sub Command130_Click()
On Error GoTo Err_Command130_Click


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

Exit_Command130_Click:
Exit Sub

Err_Command130_Click:
MsgBox Err.Description
Resume Exit_Command130_Click

End Sub
Private Sub Command131_Click()
On Error GoTo Err_Command131_Click


DoCmd.PrintOut

Exit_Command131_Click:
Exit Sub

Err_Command131_Click:
MsgBox Err.Description
Resume Exit_Command131_Click

End Sub
Private Sub Command136_Click()
On Error GoTo Err_Command136_Click


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

Exit_Command136_Click:
Exit Sub

Err_Command136_Click:
MsgBox Err.Description
Resume Exit_Command136_Click

End Sub


Private Sub Command152_Click()
On Error GoTo Err_Command152_Click

Dim stDocName As String

stDocName = "DMR ETP"
DoCmd.SendObject acReport, stDocName

Exit_Command152_Click:
Exit Sub

Err_Command152_Click:
MsgBox Err.Description
Resume Exit_Command152_Click
End Sub
 
Have you checked the query or table that the Form is based on to ensure that
you don't have a filter set up on it?
 
Hello vb_Dumb,

Looks like you have a "SQL filter" applied.
See the post: how to remove filter created by synchronized combo on
continuous f 12/1/2008 9:15 AM PST

Have a look in the Property Filter of your form, guess you'll see a SQL
filter ?

What version of Acces are you using, never had any trouble with previous
versions, but it came up with ACCESS 2007 (bug ????)

Hoping it will help you.

fred
 
Back
Top