diff options
Diffstat (limited to 'wizards/source/access2base/DoCmd.xba')
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index 2f2e0ae89e5d..b51629be9c3f 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -1139,18 +1139,6 @@ Dim sFilter As String, oForm As Object, oFormsCollection As Object Else sFilter = "(" & pvFilterName & ") And (" & pvWhereCondition & ")" End If - Set oFormsCollection = oOpenForm.DrawPage.Forms - If oFormsCollection.Count = 0 Then - Set oForm = Nothing - ElseIf oFormsCollection.hasByName("MainForm") Then - Set oForm = oFormsCollection.getByName("MainForm") - ElseIf oFormsCollection.hasByName("Form") Then - Set oForm = oFormsCollection.getByName("Form") - ElseIf oFormsCollection.hasByName(ofForm._Name) Then - Set oForm = oFormsCollection.getByName(ofForm._Name) - Else - Goto Trace_Error - End If If Not IsNull(oForm) Then If sFilter <> "" Then oForm.Filter = oDatabase._ReplaceSquareBrackets(sFilter) |