Search Form runtime error 2448

D

dorney1

I am attempting to make a filter by form search for a issues/comment database
that I created. I copied a form and VB template, switching out the names for
what are being used in my database, but keep receiving a runtime error. It
seems common from what I've read looking for answers, but everything that
I've found suggested I've tried and does not seem to be the problem. The
debug error is found at Me.Browse_All_Issues.Form.Filter = strWhere. Someone
please help!


Private Sub Search_Click()
Const cInvalidDateError As String = "You have entered an invalid date."
Dim strWhere As String
Dim strError As String

strWhere = "1=1"

' If Assigned To
If Not IsNull(Me.AssignedTo) Then
'Create Predicate
strWhere = strWhere & " AND " & "Comment Information Query.[Assigned
To] = " & Me.AssignedTo & ""
End If

' If Opened By
If Not IsNull(Me.OpenedBy) Then
'Add the predicate
strWhere = strWhere & " AND " & "Comment Information Query.[Opened By]
= " & Me.OpenedBy & ""
End If

' If Status
If Nz(Me.Status) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.Status =
'" & Me.Status & "'"
End If

' If Category
If Nz(Me.Category) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.CategoryID
= '" & Me.Category & "'"
End If

' If Priority
If Nz(Me.Priority) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.Priority =
'" & Me.Priority & "'"
End If

' If Department
If Nz(Me.Department) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.
DepartmentID = '" & Me.Department & "'"
End If

' If Opened Date From
If IsDate(Me.OpenedDateFrom) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Opened
Date] >= " & GetDateFilter(Me.OpenedDateFrom)
ElseIf Nz(Me.OpenedDateFrom) <> "" Then
strError = cInvalidDateError
End If

' If Opened Date To
If IsDate(Me.OpenedDateTo) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Opened
Date] <= " & GetDateFilter(Me.OpenedDateTo)
ElseIf Nz(Me.OpenedDateTo) <> "" Then
strError = cInvalidDateError
End If

' If Due Date From
If IsDate(Me.DueDateFrom) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Due Date]
= " & GetDateFilter(Me.DueDateFrom)
Click to expand...
ElseIf Nz(Me.DueDateFrom) <> "" Then
strError = cInvalidDateError
End If

' If Due Date To
If IsDate(Me.DueDateTo) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Due Date]
<= " & GetDateFilter(Me.DueDateTo)
ElseIf Nz(Me.DueDateTo) <> "" Then
strError = cInvalidDateError
End If

' If Title
If Nz(Me.ID) <> "" Then
' Add it to the predicate - match on leading characters
strWhere = strWhere & " AND " & "Comment Information Query.ID Like
'*" & Me.ID & "*'"
End If

If strError <> "" Then
MsgBox strError
Else
'DoCmd.OpenForm "Browse All Issues", acFormDS, strWhere, acFormEdit,
acWindowNormal
If Not Me.FormFooter.Visible Then
Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
End If

Me.Browse_All_Issues.Form.Filter = strWhere
Me.Browse_All_Issues.Form.FilterOn = True
End If
End Sub
 
D

Duane Hookom

I seems that you have spaces in a query name but haven't wrapped the name in
[]s.
Have you tried a simple line of code prior to your error generating line
like:
Debug.Print "strWhere: " & strWhere

--
Duane Hookom
MS Access MVP

dorney1 said:
I am attempting to make a filter by form search for a issues/comment
database
that I created. I copied a form and VB template, switching out the names
for
what are being used in my database, but keep receiving a runtime error.
It
seems common from what I've read looking for answers, but everything that
I've found suggested I've tried and does not seem to be the problem. The
debug error is found at Me.Browse_All_Issues.Form.Filter = strWhere.
Someone
please help!


Private Sub Search_Click()
Const cInvalidDateError As String = "You have entered an invalid date."
Dim strWhere As String
Dim strError As String

strWhere = "1=1"

' If Assigned To
If Not IsNull(Me.AssignedTo) Then
'Create Predicate
strWhere = strWhere & " AND " & "Comment Information
Query.[Assigned
To] = " & Me.AssignedTo & ""
End If

' If Opened By
If Not IsNull(Me.OpenedBy) Then
'Add the predicate
strWhere = strWhere & " AND " & "Comment Information Query.[Opened
By]
= " & Me.OpenedBy & ""
End If

' If Status
If Nz(Me.Status) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.Status =
'" & Me.Status & "'"
End If

' If Category
If Nz(Me.Category) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information
Query.CategoryID
= '" & Me.Category & "'"
End If

' If Priority
If Nz(Me.Priority) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.Priority
=
'" & Me.Priority & "'"
End If

' If Department
If Nz(Me.Department) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "Comment Information Query.
DepartmentID = '" & Me.Department & "'"
End If

' If Opened Date From
If IsDate(Me.OpenedDateFrom) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Opened
Date] >= " & GetDateFilter(Me.OpenedDateFrom)
ElseIf Nz(Me.OpenedDateFrom) <> "" Then
strError = cInvalidDateError
End If

' If Opened Date To
If IsDate(Me.OpenedDateTo) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Opened
Date] <= " & GetDateFilter(Me.OpenedDateTo)
ElseIf Nz(Me.OpenedDateTo) <> "" Then
strError = cInvalidDateError
End If

' If Due Date From
If IsDate(Me.DueDateFrom) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Due
Date]
= " & GetDateFilter(Me.DueDateFrom)
Click to expand...
ElseIf Nz(Me.DueDateFrom) <> "" Then
strError = cInvalidDateError
End If

' If Due Date To
If IsDate(Me.DueDateTo) Then
' Add it to the predicate - exact
strWhere = strWhere & " AND " & "Comment Information Query.[Due
Date]
<= " & GetDateFilter(Me.DueDateTo)
ElseIf Nz(Me.DueDateTo) <> "" Then
strError = cInvalidDateError
End If

' If Title
If Nz(Me.ID) <> "" Then
' Add it to the predicate - match on leading characters
strWhere = strWhere & " AND " & "Comment Information Query.ID Like
'*" & Me.ID & "*'"
End If

If strError <> "" Then
MsgBox strError
Else
'DoCmd.OpenForm "Browse All Issues", acFormDS, strWhere,
acFormEdit,
acWindowNormal
If Not Me.FormFooter.Visible Then
Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
End If

Me.Browse_All_Issues.Form.Filter = strWhere
Me.Browse_All_Issues.Form.FilterOn = True
End If
End Sub
Click to expand...
 

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

Error when Filtering on Unbound Form with Subform 7
Problem with Runtime Error 2448 4
runtime error 3075 2
Search Code 2
Capture filtered records only on report 4
StrWhere error runtime 2448 5
Date Filter in VBA 1
Urgent help needed! I have attached the code so, you can help me. thanks 1

Top