Is my code wrong? How?

[GD]

I want areas of my form to appear (or not) based on 2 check boxes.
chkPaybackDenied works fine, but chkPaybackApproved makes them neither appear
or disappear when checked. Can someone help?

Private Sub chkPaybackApproved_AfterUpdate()
cboApprBy.Visible = chkPaybackApproved
txtApprDate.Visible = chkPaybackApproved
lblPaybackReason.Visible = chkPaybackApproved
cboPaybackReason.Visible = chkPaybackApproved
boxPendingPayback.Visible = chkPaybackApproved
txtPaybackAmount.Visible = chkPaybackApproved
txtCreditAmtDeducted.Visible = chkPaybackApproved
txtInvoiceAmtPaid.Visible = chkPaybackApproved
txtNetPaymentToVendor.Visible = chkPaybackApproved
txtAmtBilledToBranch.Visible = chkPaybackApproved
txtBillingOnlyTicket#.Visible = chkPaybackApproved
txtSupervisor.Visible = chkPaybackApproved
txtApprDate2.Visible = chkPaybackApproved
chkOverLimit.Visible = chkPaybackApproved
boxReadyforPayback.Visible = chkPaybackApproved
lblReadyForPaybackEntry.Visible = chkPaybackApproved
chkReadyForPaybackEntry.Visible = chkPaybackApproved
txtPaybackEnteredBy.Visible = chkPaybackApproved
txtEntryDate2.Visible = chkPaybackApproved

End Sub

Private Sub chkPaybackDenied_AfterUpdate()
cboDeniedBy.Visible = chkPaybackDenied
txtDeniedDate.Visible = chkPaybackDenied
cboErrorCode.Visible = chkPaybackDenied
lblDeniedNote.Visible = chkPaybackDenied
lblDeniedNote2.Visible = chkPaybackDenied

End Sub

Private Sub Form_Current()
cboApprBy.Visible = chkPaybackApproved
txtApprDate.Visible = chkPaybackApproved
lblPaybackReason.Visible = chkPaybackApproved
cboPaybackReason.Visible = chkPaybackApproved
boxPendingPayback.Visible = chkPaybackApproved
txtPaybackAmount.Visible = chkPaybackApproved
txtCreditAmtDeducted.Visible = chkPaybackApproved
txtInvoiceAmtPaid.Visible = chkPaybackApproved
txtNetPaymentToVendor.Visible = chkPaybackApproved
txtAmtBilledToBranch.Visible = chkPaybackApproved
txtBillingOnlyTicket#.Visible = chkPaybackApproved
txtSupervisor.Visible = chkPaybackApproved
txtApprDate2.Visible = chkPaybackApproved
chkOverLimit.Visible = chkPaybackApproved
boxReadyforPayback.Visible = chkPaybackApproved
lblReadyForPaybackEntry.Visible = chkPaybackApproved
chkReadyForPaybackEntry.Visible = chkPaybackApproved
txtPaybackEnteredBy.Visible = chkPaybackApproved
txtEntryDate2.Visible = chkPaybackApproved

cboDeniedBy.Visible = chkPaybackDenied
txtDeniedDate.Visible = chkPaybackDenied
cboErrorCode.Visible = chkPaybackDenied
lblDeniedNote.Visible = chkPaybackDenied
lblDeniedNote2.Visible = chkPaybackDenied

(others)

End Sub

 

[Dennis]

If the value of the checkbox is NULL, I don't think you'll get the results
you're expecting. You might try checking to see if it's NULL. That may well
not be the answer, but it's one thing to look at.