My Message Box Code Is Not Doing What I want It to Do Visual Basic

Question

Hi Good People
I have Written Code To Show A message box "Saying The Address Already Exists" If the Addresses are already in my Database But if the Address is not in My Database then It gets Saved To my Database. (All works Ok so Far)
The Problem I have is, I want to put an If statement inside another if statement.. Because On the Message box I also have A message Saying "Or are you Updating This Address" with yes and No Buttons. And If I chose No Button then Nothing should
happen But If I chose the yes button then three text boxes are enabled so I can make changes to the record if needed. ie change of price or change of Address.
When I change any Details on the Form and click save Nothing is Updated either in the datagridview or on the form. I must be missing code somewhere. Here is all the code i have ......
Public Class frm_AirportFares
Dim AirportFares As New AirportDataContext
Private Sub AirportFaresBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) _
Handles AirportFaresBindingNavigatorSaveItem.Click
Try
Dim Airport = From AirportFares In AirportFares.AirportFares _
Where AirportFares.PickupAddress = Me.tb_PickupAddress.Text _
AndAlso AirportFares.DropAddress = Me.tb_DropAddress.Text
If Not Airport.Count = 0 Then
MsgBox("The Address " & tb_PickupAddress.Text & " To " & tb_DropAddress.Text & " Already Exists" & vbCrLf & _
vbCrLf & "Or are you Updating this record", MsgBoxStyle.YesNo)
Dim res As MsgBoxResult
If res = MsgBoxResult.No Then
'Nothing Happens
MsgBox("Your Record Has NOT Been Altered")
Else
If res = MsgBoxResult.Yes Then
'Here I want to save any alteration made
Me.Validate()
Me.AirportFaresBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.BookingsDataSet)
Me.AirportFaresDataGridView.Update()
MsgBox("Fare Has Been Saved Successfully")
End If
End If
End If
Catch ex As Exception
End Try
End Sub
second Picture with Message box
Can anyone tell me what i have done wrong please
Kind Regards
Gary
Gary Simpson

Answer 1

You did not assign a value to the message box. You needed to do:
res = MsgBox(etc.)
However, it is preferred to use the MessageBox.Show() method rather than the legacy MsgBox() function.  Notice the difference in the output of ans with each of these boxes.
Here is some sample code using both:
    Private Sub btnMsg_Click(sender As System.Object, e As System.EventArgs) Handles btnMsg.Click
        Dim ans As Integer      'can NOT declare as DialogResult
        ans = MsgBox("Did you pass the test?", MsgBoxStyle.YesNo, "Yes or No")
        If ans = DialogResult.Yes Then  'same as:  If ans = 6
            MsgBox("OK", , ans.ToString)
        Else                '7 is same as No
            MsgBox("Failed", , ans.ToString)
        End If
    End Sub
    Private Sub btnMessage_Click(sender As System.Object, e As System.EventArgs) Handles btnMessage.Click
        Dim ans As DialogResult     'can also Dim ans As Integer
        ans = MessageBox.Show("Did you pass the test?", "Yes or No", MessageBoxButtons.YesNo)
        If ans = DialogResult.Yes Then  'same as:  If ans = 6
            MessageBox.Show("OK", ans.ToString)
        Else
            MessageBox.Show("Failed", ans.ToString)
        End If
    End Sub
Solitaire