Filtered records

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
 
J

JWeaver

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?
 
F

fred75

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

drop down list: how to open on cursor 2
Error "Object variable or With block variable not set" 2
Run time error 6
Variable not defined 1
I'd like my delete warning back. I don't know where it went. 15
why do I get an error 1
Jet Engine Error Message 2
Stamping a field in a table from a form 7

Top