Bone, has helped me out a lot. What I'm trying to accomplished is to allow a user to enter an keyrec, distro number or trailer number and search exact comments related to that specific value. I downloaded a template as premsis to help me. The problem is I receive a "You can't assigne a value to this object" error. The main form is called "Browse All Issues FADC". The exact code is listed below. Attached is the database. If someone has another database example or directions I could use it.
Private Sub Search_Click()
Dim strWhere As String
Dim strError As String
strWhere = "1=1"
' If Distro Number By
If Not IsNull(Me.Distro_Number) Then
'Add the predicate
strWhere = strWhere & " AND " & "FADC Mangers Comments.Distro Number = " & Me.Distro_Number & ""
' If Keyrec
If Nz(Me.Keyrec) <> "" Then
'Add it to the predicate - exact match
strWhere = strWhere & " AND " & "FADC Mangers Comments.Keyrec = '" & Me.Keyrec & "'"
' If Comment
If Nz(Me.Comment) <> "" Then
' Add it to the predicate - match on leading characters
strWhere = strWhere & " AND " & "FADC Mangers Comments.Comment Like '*" & Me.Comment & "*'"
If strError <> "" Then
'DoCmd.OpenForm "Browse All Issues FADC", acFormDS, , strWhere, acFormEdit, acWindowNormal
If Not Me.FormFooter.Visible Then
Me.FormFooter.Visible = True
DoCmd.MoveSize Height:=Me.WindowHeight + Me.FormFooter.Height
Me.Browse_All_Issues_FADC.Form.Filter = strWhere
Me.Browse_All_Issues_FADC.Form.FilterOn = True