Member Avatar for tcsikany
tcsikany 0 Newbie Poster

I am having trouble getting this to work in a subform

My Form is called frmFacilities
My Subform is called QAMain subform

The first combo box in the QAMain subform is RiskLevel
Its Row Source is: SELECT tblRiskLevel.RiskLevel, tblRiskLevel.Description FROM tblRiskLevel ORDER BY tblRiskLevel.RiskLevel;
Its Event is: Private Sub RiskLevel_AfterUpdate() On Error Resume Next cboFunctionalArea.Requery End Sub


The second combo box in the QAMain subform is FunctionalArea
Its Row Source is: SELECT tblFunctionalArea.FunctionalArea, tblFunctionalArea.RiskLevel FROM tblFunctionalArea WHERE (((tblFunctionalArea.RiskLevel)=Forms![frmQAMain subform]!RiskLevel)) ORDER BY tblFunctionalArea.FunctionalArea;
Its Event is: Private Sub FunctionalArea_AfterUpdate() On Error Resume Next cboFunctionalArea.Requery End Sub

When I try to enter data into the form, It lets me choose the RiskLevel. But, then when I try to enter the data for FunctionalArea I get a blank drop down.

Any suggestions?

  • 1 Contributor
  • 0 Replies
  • 73 Views
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.