Is my code wrong? How?

  • Thread starter Thread starter GD
  • Start date Start date
G

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
 
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.
 
Back
Top