Add New Record

[xcelpro]

Hi all-
Using VS2003

Have code set to add new record to my sql table
Record position does advance
All text boxes ReadOnly property set to False
However all text boxes showing values from previous record rather than clearing for new entries

Any ideas what I'm doing wrong?
I use very similar code in another project and it works exactly as expected

Thanks
-xl

Private Sub btnAddRec_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnAddRec.Click
    'Begin an add operation

    UnLockCustomerTextBoxes()
    UnLockBalanceInformation()
    UnLockPaymentInformation()
    UnLockInterestCharges()

    DisableNavigation()
    SetButtonsForEdit()
    bmCreditCard.AddNew()
    txtCustomerNumber.Focus()
End Sub

 

[Ruffnekk]

Unless you post the code for the functions you call, I don't think anyone will be able to help you.

Regards, Ruffnekk
---

http://codesnippets.ning.com

Do not underestimate the power of simplicity!

 

[xcelpro]

Thanks Ruffnekk
Here's the full monty

Private Sub btnAddRec_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnAddRec.Click
    'Begin an add operation

    UnLockCustomerTextBoxes()
    UnLockBalanceInformation()
    UnLockPaymentInformation()
    UnLockInterestCharges()

    DisableNavigation()
    SetButtonsForEdit()
    bmCreditCard.AddNew()
    txtCustomerNumber.Focus()
End Sub

Private Sub UnLockCustomerTextBoxes()
    'Unlock for add or delete

    txtCustomerNumber.ReadOnly = False
    txtLastName.ReadOnly = False
    txtFirstName.ReadOnly = False
    txtMI.ReadOnly = False
End Sub

Private Sub UnLockBalanceInformation()
    'Unlock for add or delete

    txtPreviousBalance.ReadOnly = False
    txtPreviousPayment.ReadOnly = False
    txtCurrentBalance.ReadOnly = False
    txtCurrentPaymentDueDate.ReadOnly = False
End Sub

Private Sub UnLockPaymentInformation()
    'Unlock for add or delete

    txtCurrentPayment.ReadOnly = False
    dtmPaymentDate.Visible = True
    txtNewBalanceAfterInterestCharges.ReadOnly = False
    txtNewBalanceAfterPayment.ReadOnly = False
End Sub

Private Sub UnLockInterestCharges()
    'Unlock for add or delete

    txtInterestChargesYTD.ReadOnly = False
    txtInterestChargeUnpaidBalance.ReadOnly = False
    txtInterestChargeLatePayment.ReadOnly = False
    txtInterestChargeYTDNew.ReadOnly = False
End Sub

Private Sub DisableNavigation()
    'Disable navigation

    btnFirstRec.Enabled = False
    btnNextRec.Enabled = False
    btnPreviousRec.Enabled = False
    btnLastRec.Enabled = False
End Sub

Private Sub SetButtonsForEdit()
    'Setup the buttons for an Add or Edit operation

    btnSaveRec.Enabled = True
    btnDeleteRec.Enabled = False
    btnEditRec.Enabled = False
End Sub

 

[ThatRickGuy]

Uhhh. What is bmCreditCard? How is it used prior to this method?

-Rick

VB.Net Forum forum796 forum855 ASP.NET Forum
I believe in killer coding ninja monkeys.