منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

برضه مش شغال

ضع المثال ليتم التعديل عليه

ده نسخة من البرنامج 
Imports System.Data.OleDb
Module Module1
    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
    Public usersdt As New DataTable
    Public usersda As OleDbDataAdapter
    Public mynewidusers As Integer
    'load all colummns of 'table in access 2007
    Public Sub load_users()
        usersdt.Clear()
        usersda = New OleDbDataAdapter("select*from users", con)
        usersda.Fill(usersdt)
    End Sub
    ' Dim code generation for access 2007 by<<indirect connection>>
    Public Sub code_users()
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)

        da.Fill(dt)
        If IsDBNull(dt(0)(0)) = True Then
            mynewidusers = 1
        Else
            mynewidusers = dt(0)(0) + 1

        End If

وده فى الحدث load 
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.UsersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SsDataSet)

    End Sub


    Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.UsersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SsDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GroupBox3.Visible = False
        load_users()
        'data source of 'table
        DataGridView1.DataSource = usersdt
        code_users()
        userid.Text = mynewidusers

---

ده نسخة من البرنامج 
Imports System.Data.OleDb
Module Module1
    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
    Public usersdt As New DataTable
    Public usersda As OleDbDataAdapter
    Public mynewidusers As Integer
    'load all colummns of 'table in access 2007
    Public Sub load_users()
        usersdt.Clear()
        usersda = New OleDbDataAdapter("select*from users", con)
        usersda.Fill(usersdt)
    End Sub
    ' Dim code generation for access 2007 by<<indirect connection>>
    Public Sub code_users()
        Dim dt As New DataTable
        Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)

        da.Fill(dt)
        If IsDBNull(dt(0)(0)) = True Then
            mynewidusers = 1
        Else
            mynewidusers = dt(0)(0) + 1

        End If

وده فى الحدث load 
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.UsersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SsDataSet)

    End Sub


    Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.UsersBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.SsDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        GroupBox3.Visible = False
        load_users()
        'data source of 'table
        DataGridView1.DataSource = usersdt
        code_users()
        userid.Text = mynewidusers

شكرااااااااااااااااااا نجح الكود اشكركم جدااااااااااااااااااااااااا جزاكم الله كل الخير وجعله فى ميزان حسناتكم