If VB Yes, make label visble, How?

  • Thread starter Thread starter Dave Elliott
  • Start date Start date
D

Dave Elliott

How can i make my label visible if the user answers yes to the print?
The label is named Label470
default is set to label470 visible is no

If vbYes = MsgBox("Do you want to print the customer's receipt?", vbQuestion
+ vbYesNo, "Print Receipt?") Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

If (IsNull(Payment) = False) And (Balance) = 0 Then
DoCmd.OpenReport "InvoiceReport", acNormal, "",
"[TimeID]=[Forms]![TimeCards]![TimeID]"
End If

If [Forms]![TimeCards]![BidDiscAmt] < DSum("Payment", "TPaymentSub",
"TimeID = [Forms]![TimeCards]!TimeID") Then
Reports!InvoiceReport!QuoteInvLabel.Caption = "Credit Invoice"
Else
Reports!InvoiceReport!QuoteInvLabel.Caption = "Invoice"
End If

End If
 
See Below

Dave Elliott said:
How can i make my label visible if the user answers yes to the print?
The label is named Label470
default is set to label470 visible is no

If vbYes = MsgBox("Do you want to print the customer's receipt?", vbQuestion
+ vbYesNo, "Print Receipt?") Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

If (IsNull(Payment) = False) And (Balance) = 0 Then
DoCmd.OpenReport "InvoiceReport", acNormal, "",
"[TimeID]=[Forms]![TimeCards]![TimeID]"
End If

If [Forms]![TimeCards]![BidDiscAmt] < DSum("Payment", "TPaymentSub",
"TimeID = [Forms]![TimeCards]!TimeID") Then
Reports!InvoiceReport!QuoteInvLabel.Caption = "Credit Invoice"
Click to expand...
Reports!InvoiceReport!QuoteInvLabel.Visible = True
Else
Reports!InvoiceReport!QuoteInvLabel.Caption = "Invoice"
Click to expand...
Reports!InvoiceReport!QuoteInvLabel.Visible = True
 
tried this and it makes the label470 visible, but does not save it, it does
not show up after closing the form
what can i do?

If IsNull(Balance) Then
Label20.Visible = False
Else
Label20.Visible = (Balance < 0)
End If
If vbYes = MsgBox("Do you want to print the customer's receipt?", vbQuestion
+ vbYesNo, "Print Receipt?") Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

If (IsNull(Payment) = False) And (Balance) = 0 Then
DoCmd.OpenReport "InvoiceReport", acNormal, "",
"[TimeID]=[Forms]![TimeCards]![TimeID]"
Forms!TimeCards!Label470.Visible = True

End If

If [Forms]![TimeCards]![BidDiscAmt] < DSum("Payment", "TPaymentSub",
"TimeID = [Forms]![TimeCards]!TimeID") Then
Reports!InvoiceReport!QuoteInvLabel.Caption = "Credit Invoice"
Forms!TimeCards!Label470.Visible = True
Else
Reports!InvoiceReport!QuoteInvLabel.Caption = "Invoice"
Forms!TimeCards!Label470.Visible = False
End If

End If
 
When you close the form, set the save argument in the DoCmd.Close argument to
acSaveYes. That will save your form with the changes.
 
Back
Top