[MS_AccessPros] Subform is not refreshing

 

I have a main form called frmTenantListingDashboard and on it  I have a combo box called cmbChooseCommunity. Source for the combo box is:

SELECT tlkpCommunity.CommunityID, tlkpCommunity.CommunityName FROM tlkpCommunity UNION SELECT 0,"All" FROM tlkpCommunity ORDER BY CommunityName;

Also on this form I have a subform called sfrmTenantList which is defined as a continuous form with the following record source:

SELECT B4602200.NAME, tblUnit.UnitCode, tblUnit.BedroomCount, tblUnit.CurrentStatus, tblUnit.UnitStatus, tblUnit.ClassificationType, tblUnit.UnitHousingType, tlkpCommunity.CommunityName, B4602200.BSSI_Tenant_Lease_Status, B4602200.CUSTNMBR, B4602200.BSSI_Lease_Execution_Dat AS Move_In_Date, Trim([ADDRESS1]) & ", " & Trim([CITY]) & ", " & Trim([STATE]) & " " & Trim([Zip]) AS TenantAddress, tblUnit.UnitID, tblUnit.CommunityID
FROM ((B4602200 INNER JOIN tblUnit ON B4602200.LOCNCODE = tblUnit.UnitCode) INNER JOIN tlkpCommunity ON tblUnit.CommunityID = tlkpCommunity.CommunityID) INNER JOIN RM00101 ON B4602200.CUSTNMBR = RM00101.CUSTNMBR
WHERE (((tblUnit.CurrentStatus)="CRHA Use") AND ((tblUnit.UnitStatus)<>"Vacant") AND ((tblUnit.ClassificationType)="Rental") AND ((B4602200.BSSI_Tenant_Lease_Status)=2))
ORDER BY tblUnit.UnitCode, B4602200.BSSI_Lease_Execution_Dat, RM00101.CUSTNMBR;

Now in the AfterUpdate event of cmbChooseCommunity I have the following code:

If IsNull(Me.cmbChooseCommunity) Then
    ' If the combo is Null, use the whole table as the RecordSource.
    Me.RecordSource = "q_TenantListing"
Else
    strSql = "SELECT DISTINCTROW q_TenantListing.* FROM q_TenantListing " & _
        "WHERE q_TenantListing.CommunityID = " & Me.cmbChooseCommunity & ";"
    Me.RecordSource = strSql
End If

Now I debug this and ran the strSQL and the generated command does return data but it does not refresh the subform with the returned data. Any ideas?

Thank you ,

Art Lorenzini

Sioux Falls, SD

__._,_.___

---

Posted by: dbalorenzini@yahoo.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___