[2005] Delete warning with bindingnavigator problem

[nlo999]

Delete warning with bindingnavigator

When i press the delete button it comes up with prompt do i want to delete but if i click no it deletes anyway here is my code

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
 
''Delete current record after confirming.
'Dim deleteDialogResult As DialogResult
'Dim test As New System.ComponentModel.CancelEventArgs
'With Me
 
' If .BindingNavigatorDeleteItem.Text = "&Delete" Then
' deleteDialogResult = MessageBox.Show("Delete this record?", "Confirm Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
' If deleteDialogResult = Windows.Forms.DialogResult.No Then
' 
' MessageBox.Show("No Deletion Screen will close", "No Deletion", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' 'Me.Close()
' e.EventsArgs.RejectChanges()
 
' End If
' End If
'End With
end sub

[Hack]

Why is everything commented out?

[nlo999]

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
 
        'Delete current record after confirming.
        Dim deleteDialogResult As DialogResult
        'Dim test As New System.ComponentModel.CancelEventArgs
        With Me
 
            If .BindingNavigatorDeleteItem.Text = "&Delete" Then
                deleteDialogResult = MessageBox.Show("Delete this record?", "Confirm Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If deleteDialogResult = Windows.Forms.DialogResult.No Then
 
                    MessageBox.Show("No Deletion Screen will close", "No Deletion", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    'Me.Close()
 
                End If
            End If
        End With
    End Sub

sorry about that i am working right tryin to figure it out

[Hack]

I added [highlight=vb.net]your code goes in here[/highlight] tags to your post. When posting code, if you use these, it will be much easier to read.

I don't see any code doing any deleting. Just asking the question. Did that get removed somehow?

[nlo999]

well it generates itself from when i added the database to the form it gave me the bindingnavigation tools add delete and save when i click add it just add it on its own when i click delete it deletes i just put the prompt in askin if you want to delete or not and im tryin to cancel keep it from deleting

[onlyGirl]

have you tried stepping through your code to see what is going on?

[nlo999]

i tried stepping through it i need like a code to stop the process

[onlyGirl]

so at which line does it get stuck on?

[nlo999]

it really not getting stuck on no line it just going through the process it pops up the message box click yes or no i click no it stills delete the only way it doesnt delete it is if i have me.close but i dont want it to close the form

[BrailleSchool]

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, _
                                             ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click
    If Me.BindingNavigatorDeleteItem.Text = "&Delete" Then
        If MessageBox.Show("Delete this record?", _
                           "Confirm Delete", _
                           MessageBoxButtons.YesNo, _
                           MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
            'if no, do something
        Else
            'If yes, do something else
        End If
    End If
End Sub