Search button will not search on the subform

Anonymous
2015-09-28T14:06:18+00:00

I am just learning Access but have a fair knowledge of the basics so far. I had a table with all of my info I wanted to track and I had a form with a search button that would search everything. I watched the MS videos on database design and discovered that the best design was to take my one table and create 2 linked tables according to the video. I did this so that I did not have repeated customer data since some customers have adopted more than one dog from us. My database is very small, about 2MB. I  put 9 fields in my customer Table and 10 fields into my Dogs Table. I created a split form and added a search button to the Customers part (main form) but now when I search it only searches the main part of the form and not my Dogs sub form. Can someone please enlighten me as to how to make the search button search both forms? Everything is linked and works correctly otherwise, I just can't get it to search the sub form.

Microsoft 365 and Office | Access | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments
Answer accepted by question author
ScottGem 68,840 Reputation points Volunteer Moderator
2015-09-29T16:29:34+00:00

Lets leave off the New dog name for the moment. It adds a level of complexity you don't need right now.

The Rowsource you show doesn't include the customer name. Lets go back to here:

RowSource: SELECT CustomersT.[Customer ID], DogsT.Dogs Name], Lastname & ", " & Firstname AS CustName 

FROM CustomersT INNER JOIN DogsT ON CustomersT.[Customer ID] = DogsT.[Customer IDFK];

ORDER BY [Dogs Name];

Bound Column: 1

Column Count: 3

Column Widths: 0";1.5";2"

Nothing is going to happen when you select a row in the combobox because you didn't do the last part. 

From my previous note:

In the After Update event of this combo I would use code like:

Me.Filter = "[Customer ID] = " & Me.cboSelectDog

DoCmd.runCommand acCMDApplyfilterSort

By the way its not a good idea to use spaces in object names. This will come back to haunt you.

Was this answer helpful?

0 comments No comments
Answer accepted by question author
ScottGem 68,840 Reputation points Volunteer Moderator
2015-09-28T19:45:53+00:00

This part here is in my customers table   "For the third column enter: CustName: Lastname & ", " & Firstname."  So do I have to link that table using my customer ID and Customer IDFK fields from these 2 tables?

I put the Customer IDFK in this query because it is a part of the dogs table. I also used dogs name and dogs new name fields from Dogs Table.

I tried what I said above but the drop down box just lists the ID numbers, not sure if it is customers or dogs, running short on time for now

I truly appreciate you taking the time to help me on this issue!!

You are correct, I forgot about that. Here are the instructions I posted previously:

RowSource: SELECT CustomerID, Dogname, Lastname & ", " & Firstname AS CustName 

                    INNER JOIN ON Dogs.CustomerID = Customer.CustomerID

                    FROM Dogs, Customer

                    ORDER BY Dogname;

Bound Column: 1

Column Count: 3

Column Widths: 0";1.5";2"

As I said before. When you click the ellipses next to the RowSource it should open Query Design mode. You need to add both tables and join the CustomerID PK to the CustomerID FK. Then add the CustomerID and Dogname fields. then create the third column as noted. If you then switch to SQL view it should look like the SQL statement above.

The reason why its only listing the IDs is because you didn't adjust the Column count and Columns Width properties as shown. The first 2 properties are on the data tab, the other 2 are on the Format tab.

Was this answer helpful?

0 comments No comments

61 additional answers

Sort by: Most helpful
  1. Anonymous
    2015-10-28T16:24:01+00:00

    If you're going to take a look at what I have then I do have one other issue I would like to address. I started with a table I made. I then normalized that by splitting it into 2 new tables. I would like to be able to update my old table when I input data into my new form which updates my 2 new tables. I have the 3 tables linked but it doesn't update the old table. the real reason I want to be able to do this is because I can search the original table(with my old form) by any field and it will take me to the correct record. What I am referring to, in my new form(linked to my 2 new tables), I can only search the dog table by by dogs name, but in the old table I can search by any field in what is now my dogs table. I really like being able to search by ANY field and not JUST the dogs name field.

    Was this answer helpful?

    0 comments No comments
  2. Anonymous
    2015-10-28T16:08:03+00:00

    I can create a copy then use the procedure to erase data when you tell me how to do it. I keep a couple of copies of my DB anyway. I keep one for experimentation before implementation and I keep a current backup of my live DB. yes I can put it on onedrive after you tell me how to erase it

    Function DeleteAllData()

        On Error Resume Next

        Dim tdf As TableDef

        Dim blnStatus As Boolean

        Dim intResponse As Integer

        Dim strMsg As String

        strMsg = "Caution!  You are about to delete all table data in the current database."

        strMsg = strMsg & vbCrLf & vbCrLf & "Proceed?"

        intResponse = MsgBox(strMsg, vbExclamation + vbOKCancel, "CAUTION!")

        If (intResponse = vbOK) Then

            Do

                blnStatus = False

                For Each tdf In CurrentDb.TableDefs

                    If (Left(tdf.Name, 4) <> "MSys" And Left(tdf.Name, 4) <> "~TMP") Then

                        CurrentDb.Execute "DELETE FROM " & tdf.Name

                        If (Not blnStatus) Then

                            blnStatus = (DCount("*", tdf.Name) > 0)

                        End If

                    End If

                Next

            Loop While blnStatus = True

            strMsg = "All table data has been deleted"

            MsgBox strMsg, vbInformation, "Process Complete"

        Else

            strMsg = "You canceled the delete process.  No data was deleted."

            MsgBox strMsg, vbInformation, "Delete Canceled"

        End If

    End Function

    Was this answer helpful?

    0 comments No comments
  3. Anonymous
    2015-10-28T15:43:23+00:00

    I can create a copy then use the procedure to erase data when you tell me how to do it. I keep a couple of copies of my DB anyway. I keep one for experimentation before implementation and I keep a current backup of my live DB. yes I can put it on onedrive after you tell me how to erase it

    Was this answer helpful?

    0 comments No comments