Physical Therapy Project

Anonymous
2019-02-05T00:08:30+00:00

I am now starting a physical therapy project.

Here are my relationships so far:

So far the queries I have built are working good and giving me nice results.

My first question is basically about concatenating data.

Example 1:  I have 35 therapists. All therapists have at least one degree. About 16 therapists out of the 35 therapists have two or three degrees. What is the best way to concatenate their degrees?  By using the concatenate & in a string? My problem is that there are various amounts of degrees, so I'm not finding it easy to concatenate their degrees unlike their names - for example, FullName: [tFirst] & " " & [tLast] Or is there another way to handle this? I don't plan on creating a search by degree, but that may occur in the future.

Example 2:  The therapists and their Status. Some therapists are Per Diem (on call), some therapists are part time, and so on. Some therapists have more than one status (a few are part time and per diem). What's the best way to handle this so their status appears on one line? Would waiting until building the reports be best before handling this, and putting it in reports? I will be having a search by status, especially for the Per Diems therapists.

Example 3:  Some therapists work 1 day a week; some work 2 days; some 3; some 4; some 5; and some work 6 days a week. I have the days entered, but I won't get to building a table with therapists and their days until later. I'm assuming I will have to figure out a way similar to the above two examples to have the days show up nicely. Or should that also wait until I do reports? There will be a search for days by Therapy Type (ie, Physical Therapy, Occupational Therapy, Speech Therapy and Wound Therapy).

I hope my question is making sense. Thank you for your time and help.

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
Answer accepted by question author
Anonymous
2019-02-26T18:15:54+00:00

Hmm, just realized you need your WHERE statement to include both Visit and Clinic...

SELECT tblClinicTherapist.ctTherapistID, tlkpClinic.cName, [tFirst] & " " & [tLast] AS FullName

FROM (tlkpTherapist INNER JOIN (tlkpClinic INNER JOIN tblClinicTherapist ON tlkpClinic.cClinicID = tblClinicTherapist.ctClinicID) ON tlkpTherapist.tTherapistID = tblClinicTherapist.ctTherapistID) INNER JOIN tblClinicTherapistVisit ON tblClinicTherapist.ctClinicTherapistID = tblClinicTherapistVisit.ctvClinicTherapistID

WHERE (((tblClinicTherapistVisit.ctvVisitID)=[Forms]![frmSearch]![cboVisit]) AND ((tlkpClinic.cClinicID)=[Forms]![frmSearch]![cboClinic]))

ORDER BY tlkpTherapist.tLast;

Was this answer helpful?

2 people found this answer helpful.
0 comments

59 additional answers

Sort by: Oldest
Most helpful Newest Oldest
  1. Anonymous
    2019-02-22T01:50:03+00:00

    When you hit the "search" button nothing happens. It's very odd.

    Was this answer helpful?

    0 comments
  2. Anonymous
    2019-02-22T01:58:20+00:00

    I would make sure there is still an Event Procedure attached to the button as it sounds like it got disconnected.

    Was this answer helpful?

    0 comments
  3. Anonymous
    2019-02-22T02:34:00+00:00

    That was the first thing I checked. It's very strange. I checked it again just now, and it does still have this as an Event:

    Private Sub btnSearch_Click()

    On Error Resume Next

            Dim strWhere As String

            Dim strSQL As String

            Dim lngLen As Long

        'Number field example. Do not add the extra quotes.

        If Not IsNull(Me.cboVisit) Then

            strWhere = strWhere & "([vVisitID] = " & Me.cboVisit & ") AND "

        End If

        If Not IsNull(Me.cboTherapist) Then

            strWhere = strWhere & "([tTherapistID] = """ & Me.cboTherapist & """) AND "

        End If

        lngLen = Len(strWhere) - 5

            If lngLen <= 0 Then

                strSQL = strSQL

                DoCmd.OpenReport "rptVisitTherapist", acViewReport

                DoCmd.Maximize

            Else

                strWhere = Left$(strWhere, lngLen)

                strSQL = strSQL & " WHERE " & strWhere

                DoCmd.OpenReport "rptVisitTherapist", acViewReport, , strWhere

                DoCmd.Maximize

                Reports![rptVisitTherapist].Filter = strWhere

                Reports![rptVisitTherapist].FilterOn = True

            End If

    End Sub

    Was this answer helpful?

    0 comments
  4. Anonymous
    2019-02-22T02:38:59+00:00

    I just played with it a little more.

    The search button works if the form is not filled out, ie no choices selected, and the correct report opens up. The search button also works if Visit is selected but no Therapist is selected, and the correct report also opens up. When Therapist is selected, the button does not work. So maybe the problem is indeed what I originally thought a few posts above this, maybe related to FullName: [tFirst} & " " & [tLast] or something in the Row Source???

    Was this answer helpful?

    0 comments