Hi Art,
The method that I would use is VBA in the after update of the combo box:
Dim strSQL as String
Dim strWhere as String
Select Case Me.cmbChooseCommunity
Case 0
Me.sfrmTenantList.Form.RecordSource = "qryTenantListing"
case Else
Me.sfrmTenantList.Form.RecordSource = "SELECT * FROM qryTenantListing WHERE CommunityID = " & Me.cmbChooseCommunity
End Select
This assumes CommunityID is numeric and you don't have a link master/child set up.
Regards,
Duane Hookom
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, February 26, 2018 1:46 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Converting to Access SQL
Sent: Monday, February 26, 2018 1:46 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Converting to Access SQL
Yes there was a entry Link Master/Child properties. Master = cmbChooseCommunity and Child = CommunityID. I removed the link an the All started to work but nothing else did. Here is the record source for cmbChooseComunity:
SELECT tlkpCommunity.CommunityID, tlkpCommunity.CommunityName FROM tlkpCommunity UNION SELECT 0,"All" FROM tlkpCommunity ORDER BY CommunityName;
So since I removed the Master Link I am going to have to write a query for each community and put in my case statement?
With Warm Regards,
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265 Ext. 130
Fax (605)964-1070
"Valar Dohaeris"
From: "Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>
To: "MS_Access_Professionals@yahoogroups.com" <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, February 26, 2018 1:17 PM
Subject: Re: [MS_AccessPros] Converting to Access SQL
Hi Art,
Are there any fields/expressions in the Link Master/Child properties of the subform?
I don't see any reference in the RecordSource to the cmbChooseCommunity control.
Regards,
Duane
From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Art Lorenzini dbalorenzini@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Monday, February 26, 2018 12:27 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Converting to Access SQL
Sent: Monday, February 26, 2018 12:27 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Converting to Access SQL
I am having an issue with my cmbChooseCommunity which is supposed to filter sfrmTenantList; The subform using a working version qryTenantListing you see below:
Private Sub cmbChooseCommunity_AfterUpdate()
Select Case Me.cmbChooseCommunity
Case 0
Forms![frmTenantListingDashboard]![sfrmTenantList].Form.RecordSource = "qryTenantListing"
Forms![frmTenantListingDashboard]![sfrmTenantList].Form.Requery
End Select
End Sub
Working version of qryTenantListing:
SELECT B4602200.NAME, tblUnit.UnitCode, tblUnit.BedroomCount, tblUnit.CurrentStatus, tblProject.[Project Number], 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 INNER JOIN tblProject ON tblUnit.ProjectID = tblProject.ProjectID) 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 ((B4602200.BSSI_Tenant_Lease_Status)=2))
ORDER BY tblUnit.UnitCode;
FROM ((B4602200 INNER JOIN (tblUnit INNER JOIN tblProject ON tblUnit.ProjectID = tblProject.ProjectID) 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 ((B4602200.BSSI_Tenant_Lease_Status)=2))
ORDER BY tblUnit.UnitCode;
When I Change my Combo box to the "All" item, it runs the code but the subform remains empty. But if I run the query it runs fine...
If I select another community is the list, it filters the subform fine.
With Warm Regards,
Arthur D. Lorenzini
IT System Manager
Cheyenne River Housing Authority
Wk.(605)964-4265 Ext. 130
Fax (605)964-1070
"Valar Dohaeris"
From: "wrmosca wrmosca@comcast.net [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>
To: "dbalorenzini@yahoo.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>
Sent: Sunday, February 25, 2018 11:48 AM
Subject: Re: [MS_AccessPros] Converting to Access SQL
Art- your company is paying this consultant. Make him convert it...or look up case blocks in T-SQL and Iff statements in Access. You'll find you can convert it yourself.
Grow your skills!
Regards,
Bill Mosca
------ Original message------
From: dbalorenzini@yahoo.com [MS_Access_Professionals]
Date: Sun, Feb 25, 2018 8:36 AM
Cc:
Subject:[MS_AccessPros] Converting to Access SQL
We have a technician from a vendor we work with that was supposed to aide in a creation of a report. I sent him my version of the code and he sent back this?
SELECT
case when B4602200.BSSI_Tenant_Lease_Status = 2
then B4602200.NAME
else 'Vacant'
end as 'Name'
,case when B4602200.BSSI_Tenant_Lease_Status = 2
then B4602200.CUSTNMBR
else 'Vacant'
end as 'Customer Number'
,case when B4602200.BSSI_Tenant_Lease_Status = 2
then 'Active Lease'
else 'No Active Lease'
end as 'Lease Status'
,case when B4602200.BSSI_Tenant_Lease_Status = 2
then B4602200.BSSI_Lease_Execution_Dat
else 'Vacant'
end as 'Move In Date'
,tblUnit.UnitCode
,tblUnit.BedroomCount
,tblUnit.CurrentStatus
,tblProject.[Project Number]
,tblUnit.UnitStatus
,tblUnit.ClassificationType
,tblUnit.UnitHousingType
,tlkpCommunity.CommunityName
,Trim([ADDRESS1]) & ", " & Trim([CITY]) & ", " & Trim([STATE]) & " " & Trim([Zip]) AS TenantAddress
,tblUnit.UnitID
,tblUnit.CommunityID
FROM ((B4602200 INNER JOIN (tblUnit INNER JOIN tblProject ON tblUnit.ProjectID = tblProject.ProjectID)
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'
ORDER BY tblUnit.UnitCode
I am hoping you could help me decipher it. I need help on the case statements. I believe he is writing T-SQL against a SQL Server but I did tell him we were working with an access backend.
Thank you
Art Lorenzini
Sioux Falls, sd
__._,_.___
Posted by: Duane Hookom <duanehookom@hotmail.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (6) |
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.
.
__,_._,___
Tidak ada komentar:
Posting Komentar