Here is what I have:
========================
Query:
========================
SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name) Like [Enter Work Order] & "*") AND ((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1))
ORDER BY MsysObjects.Name;
This searches for the desired table.
=========================
VBA Code:
=========================
Dim NewName As String
DoCmd.SetWarnings False
NewName = [Find Previous Checklist]![Name]
Me.Report.RecordSource = NewName
DoCmd.SetWarnings True
My goal is to change the report recordsource by searching for a table and then opening that report.
I have tried different variations with no luck. When the report is launched it does not open the inputbox for data entry.
Thanks,
========================
Query:
========================
SELECT MsysObjects.Name
FROM MsysObjects
WHERE (((MsysObjects.Name) Like [Enter Work Order] & "*") AND ((Left$([Name],1))<>"~") AND ((Left$([Name],4))<>"Msys") AND ((MsysObjects.Type)=1))
ORDER BY MsysObjects.Name;
This searches for the desired table.
=========================
VBA Code:
=========================
Dim NewName As String
DoCmd.SetWarnings False
NewName = [Find Previous Checklist]![Name]
Me.Report.RecordSource = NewName
DoCmd.SetWarnings True
My goal is to change the report recordsource by searching for a table and then opening that report.
I have tried different variations with no luck. When the report is launched it does not open the inputbox for data entry.
Thanks,