Question : Subform Recordset problems

Ok ... What am I doing wrong here.  The following code produces Runtime Error 424.

strUser = NTDomainUserName
Dim f As Form
Set f = Forms!frmMaster


f.txtNTID = strUser

strSAP = InputBox("Enter your SAP User ID", "SAP ID")
strQry = "SELECT tblOrgStructure.PersonID, tblOrgStructure.EmployeeName, tblOrgStructure.OrgUnitCode, tblOrgStructure.AffiliationCode, tblOrgStructure.EntityCode, tblOrgStructure.BusinessCategoryCode, tblOrgStructure.BusinessAreaCode, tblOrgStructure.OrgLevel, tblOrgStructure.[Chief Num], tblOrgStructure.[Chief Name], tblOrgStructure.[Chief Title], tblOrgStructure.[Proposed Entity], tblOrgStructure.[Proposed BA], tblOrgStructure.UserID, tblOrgStructure.Modified, tblOrgStructure.VerDate FROM tblOrgStructure WHERE (((tblOrgStructure.[Chief Num])= strSAP ));"

Dim sf As Form
Set sf = Forms!frmMaster!sfrmModifications.Form.RecordSource = strQry

Answer : Subform Recordset problems

Ok, I've found a work around solution that I'm comfortable with.  I'll post here in case anyone else may find the information helpful.

In your form's design view, lay the subform over the tab control--don't put it in the tab control--you will have only one subform control for your whole form, not multiple of the same as I started out with. Then on the tab control's (not each page, the tab control) change event you'll configure the subform with the appropriate data.

This works for me!!
Random Solutions  
 
programming4us programming4us