MS Access 1st App - MainForm.vb

'------------------------------------------------------------------------------------------
'           Notice of My Copyright and Intellectual Property Rights
'
' Any intellectual property contained within the program by Joseph L. Bolen remains the
' intellectual property of the Joseph L. Bolen. This means that no person may distribute,
' publish or provide such intellectual property to any other person or entity for any
' reason, commercial or otherwise, without the express written permission of Joseph L. Bolen.
'
'                 Copyright © 2015. All rights reserved.
'        All trademarks remain the property of their respective owners.
'-------------------------------------------------------------------------------------------
' Program Name:   MS Access 1st App
'
' Author:         Joseph L. Bolen
' Date Created:   July 2015
'
' Description:    MS Access 1st App
'
'                 Documentation is at:
'                   App's Visual Basic .NET code is at http://pastebin.com/Y2v7WEKB
'                   Video tutorial at YouTube: http://www.youtube.com/user/bolenpresents
'
'-------------------------------------------------------------------------------------------
Public Class MainForm

    Private Sub CustomersBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) _
        Handles CustomersBindingNavigatorSaveItem.Click

        Me.Validate()
        Me.CustomersBindingSource.EndEdit()
        Me.OrdersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SampleDBDataSet)

    End Sub

    Private Sub MainForm_Load(sender As Object, e As EventArgs) _
        Handles MyBase.Load

        OrdersDataGridView.ColumnHeadersDefaultCellStyle.Font = New Font(OrdersDataGridView.Font, FontStyle.Bold)

        'TODO: This line of code loads data into the 'SampleDBDataSet.Customers' table. You can move, or remove it, as needed.
        Me.CustomersTableAdapter.Fill(Me.SampleDBDataSet.Customers)
        'TODO: This line of code loads data into the 'SampleDBDataSet.Orders' table. You can move, or remove it, as needed.
        Me.OrdersTableAdapter.Fill(Me.SampleDBDataSet.Orders)
    End Sub

    Private Sub OrdersBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) _
        Handles OrdersBindingSource.AddingNew

        Me.CustomersBindingSource.EndEdit()
    End Sub
End Class