do while command button property is false
I cannot find a property for a command button on a UserForm so that I can use
as a trigger to stop or continue execution of the following code:
rSalesPerson.Value = " " & frmCreditReceipts.listNames.Text
rReceipt.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
rAmount.Offset(counter, 0).Value = _
frmCreditReceipts.txtReceipt.Text
If frmCreditReceipts.listPayType.Text = "cheque" Then
rCheck.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "transfer"
Then
rTransfer.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listNames.Text = "efectivo" Then
rCash.Text = frmCreditReceipts.txtAmount.Value
ElseIf frmCreditReceipts.listPayType.Text = "nulo" Then
rNulified.Text = "NULO"
End If
frmCreditReceipts.txtReceipt.Value = ""
frmCreditReceipts.txtAmount.Value = ""
frmCreditReceipts.txtAmount.SetFocus
counter = counter + 1
I need the COUNTER to use as part of the Offset() property to enter the
value of textboxes in a Worksheet.
Thank you in advance for any ideas.
|