Form Controls

[Dranahan]

Happy New Year Everyone!

I have the following code:

Private Sub fraSecIIIa_AfterUpdate()
If fraSecIIIa = 1 Then
Me.fraSecIIIb.Visible = True
Me.lblSecIIIb.Visible = True
Me.linSecIIIb.Visible = True
ElseIf fraSecIIIa = 2 Then
Me.fraSecIIIb.Visible = True
Me.lblSecIIIb.Visible = True
Me.linSecIIIb.Visible = True
ElseIf fraSecIIIa = 2 And fraSecIIIc = 1 Then
DoCmd.OpenForm "frmComments", acNormal, , "[AdmitCriteriaID]=Forms!frmAdmitCriteria![AdmitCriteriaID]", , acDialog
ElseIf fraSecIIIa = 2 And fraSecIIIc = 2 Then
DoCmd.OpenForm "frmComments", acNormal, , "[AdmitCriteriaID]=Forms!frmAdmitCriteria![AdmitCriteriaID]", , acDialog
End If


My goal is if fraSecIIIa is changed to 2 and fraSecIIIc has been answered, I want my comments form to appear - however, if I have not answered fraSecIIIc, I do not want the comments form to appear.

Any suggestions or is there a problem in my code???

Thank you in advance for any help

 

[Matthew Snook]

Would this work?:

If fraSecIIIa = 2 And Not IsNull(fraSecIIIc) Then
DoCmd.OpenForm "frmComments", acNormal, , "[AdmitCriteriaID]=Forms!frmAdmitCriteria![AdmitCriteriaID]", , acDialog
Else
Me.fraSecIIIb.Visible = True
Me.lblSecIIIb.Visible = True
Me.linSecIIIb.Visible = True
End If

Matt

 

[SteveA]

Give this a try and see if it works:

Private Sub fraSecIIIa_AfterUpdate()

Select Case fraSecIIIa
Case 1
Me.fraSecIIIb.Visible = True
Me.lblSecIIIb.Visible = True
Me.linSecIIIb.Visible = True
Case 2
Me.fraSecIIIb.Visible = True
Me.lblSecIIIb.Visible = True
Me.linSecIIIb.Visible = True
Select Case fraSecIIIc
Case 1, 2
DoCmd.OpenForm "frmComments", acNormal, , "[AdmitCriteriaID]=Forms! frmAdmitCriteria![AdmitCriteriaID]", , acDialog
End Select
End Select

Using Select Case will provide a fair amount of control without too many nested if statements.

HTH
SteveA