[Halim2008]

السلام عليكم ورحمة الله 
الرجاء المساعده فى حل مشكلة الكود 

PHP كود :

Imports System.Data.OleDb
Module Connection_Load

    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Halim\Nore Chem\Nore Chem\bin\Debug\Data\Norechem.ACCDB")
    Public UsersDT As New DataTable
    Public UsersDA As New OleDbDataAdapter
    Public mynewIDUsers As Integer
    ' Load All Columns Of ! Table in Access 2007-2010-2013-2016
    Public Sub Load_Users()
        UsersDT.Clear()
        UsersDA = New OleDbDataAdapter("select * from Users", con)
        UsersDA.Fill(UsersDT)
        End Sub
        ' Dim code generation for access 2007-2010-2013-2016 by << InDirect Connectior>>
    Public Sub code_Users()
        Dim dt As New DataTable
        Dim da As OleDbDataAdapter("SELECT MAX(UserID) FROM Users", con)
        (da.Fill(dt
        If IsDBNull(dt(0)(0)) = True Then
            mynewIDUsers = 1
        Else
           (mynewIDUsers = dt(0)(0
        End If
    End Sub

End Module 


[wale90]

هذا التصحيح للجزء code_Users

كود :

Public Sub code_Users()
   Dim cm As New OleDbCommand("SELECT MAX(UserID) FROM Users", con)
   If con.State <> ConnectionState.Open Then con.Open()
   Dim ret = cm.ExecuteScalar
   con.Close()
   If ret.GetType Is GetType(System.DBNull) Then ret = 1
   mynewIDUsers = ret
End Sub