Excel form button adding message box yes or no option

[davidwh000]

Hi Everyone

I have a couple of buttons which cause changes to a form and I would like to add a message box to them to allow for the information to be changed or to be rejected. A simple yes no box with yes completing the process and no leaving the data unchanged. I have posted code below for the 2 buttons affected and for one which is working OK but simply exits the program if accepted.

This one is unmodified and does not have the message function

Private Sub cmdReset_Click()
Dim txt
    For Each txt In Frame2.Controls
        If TypeOf txt Is MSForms.TextBox Then
            txt.Text = ""
        End If
    Next txt
    TxtSearch.Text = ""
    
    Dim i
    For i = 0 To Me.lstDisplay.ListCount - 1
    If Me.lstDisplay.Selected(i) Then Me.lstDisplay.Selected(i) = False
    Next i

End Sub

This one has an experimental message option which does not work.

Private Sub cmdUpdate_Click()
Dim Answer
Answer = MsgBox("Confirm if you want to update the record?", vbYesNo + vbQuestion, "Update Record")
If Answer = vbYes Then
Cells(updateRow, 1) = TxtAccount.Text
Cells(updateRow, 2) = TxtWebsite.Text
Cells(updateRow, 3) = TxtCategory.Text
Cells(updateRow, 4) = TxtOwner.Text
Cells(updateRow, 5) = TxtLogin.Text
Cells(updateRow, 6) = TxtAccdetail.Text
Cells(updateRow, 7) = TxtPassword.Text
Cells(updateRow, 8) = TxtPin.Text
Cells(updateRow, 9) = TxtEmail.Text
Cells(updateRow, 10) = TxtMemword.Text
Cells(updateRow, 11) = TxtExtra.Text
Cells(updateRow, 12) = TxtNotes.Text
End If

End Sub

This is the Exit one which works OK

Private Sub cmdExit_Click()
iExit = MsgBox("Confirm if you want to exit", vbQuestion + vbYesNo, "Data Entry Form")
If iExit = vbYes Then
Unload Me
End If
End Sub

Would appreciate any help please.
David

 

[Fluff]

In what way doesn't it work?

 

[davidwh000]

In what way doesn't it work?

The message box does not display.

 

[Fluff]

Do you have a command button called cmdUpdate?
Check that it's not been misspelt.

 

[davidwh000]

Do you have a command button called cmdUpdate?
Check that it's not been misspelt.

Yes, I have the command and the update works OK, it is just the message box that oes ot ccome up at all so the confirmation acion does not take place.
Thanks for looking at this.

 

[Fluff]

If you comment out this part of the update code

Cells(updateRow, 3) = TxtCategory.Text
Cells(updateRow, 4) = TxtOwner.Text
Cells(updateRow, 5) = TxtLogin.Text
Cells(updateRow, 6) = TxtAccdetail.Text
Cells(updateRow, 7) = TxtPassword.Text
Cells(updateRow, 8) = TxtPin.Text
Cells(updateRow, 9) = TxtEmail.Text
Cells(updateRow, 10) = TxtMemword.Text
Cells(updateRow, 11) = TxtExtra.Text
Cells(updateRow, 12) = TxtNotes.Text

and then run the code, does it just update columns A & B?

 

[davidwh000]

If you comment out this part of the update code

Cells(updateRow, 3) = TxtCategory.Text
Cells(updateRow, 4) = TxtOwner.Text
Cells(updateRow, 5) = TxtLogin.Text
Cells(updateRow, 6) = TxtAccdetail.Text
Cells(updateRow, 7) = TxtPassword.Text
Cells(updateRow, 8) = TxtPin.Text
Cells(updateRow, 9) = TxtEmail.Text
Cells(updateRow, 10) = TxtMemword.Text
Cells(updateRow, 11) = TxtExtra.Text
Cells(updateRow, 12) = TxtNotes.Text

and then run the code, does it just update columns A & B?

Yes, but in the actual file the update works OK, updating all 12 columns. Is there anywhere that I can post the sample spreadsheet as I am really close to it all working but still have a few small problems. I think I have solved the message box issue.

 

[Fluff]

If you have got the msgbox working, but now have other questions, then you will need to start a new thread.

 

[davidwh000]

OK, thank you.

 

[Fluff]

You're welcome.