I am trying to create a form based on the tab control. I have 12 tabs, each with various controls and I am trying to filter these tabs using a combo box. For example "When I click on the combo box and select " A person" I want the tabs to be filled with the associative information.
I have tried this set of codes thus far:
Private Sub cboProjectName_AfterUpdate()
Dim SQL As String
SQL = "SELECT tblProjectFramework.ProjectID, tblProjectFramework.ProjectName, tblProjectFramework.ProjectManager, tblProjectFramework.ProjectSponsor, " _
& "tblProjectFramework.BusinessAnalyst, tblProjectFramework.ProjectSummary, tblProjectFramework.CurrentState, tblProjectFramework.MissionStatement, " _
& "tblProjectFramework.FutureState, tblProjectFramework.ProjectDate, tblProjectFramework.ProjectFilePath, tblProjectFramework.A1, tblProjectFramework.DO, " _
& "tblProjectFramework.DA, tblProjectFramework.DAS, tblProjectFramework.Requisition, tblProjectFramework.PurchaseOrder, tblProjectFramework.ProjectDocInfo," _
& "tblProjectFramework.ProjectStatus, tblProjectFramework.FinancingSource, tblProjectFramework.FinancingCost FROM tblProjectFramework;"
Me.Form.ActiveControl.RecordSource
Me.Form.Requery
End Sub
Private Sub cboProjectName_GotFocus()
Me.cboProjectName.RowSource = "select ProjectName from qryProjectFramework"
End Sub