[محمد اسماعيل]

وحقل الترقيم التلقائي id لكل جدول ولا مرة واحدة لاول جدول

---

حاولات بالكود دة ولكن يعطي خطا بحقل المفتاح اول لاين

كود :

Me.Label2.Text = Me.DataSet1.Tables("tb1").Compute("Max(ID_mail)", "ID_mail >= 0") + "1"

       Dim con As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\web_database.accdb;Jet OLEDB:Database Password=12345")
       Dim cmd As New OleDbCommand("insert into tb1 (ID_mail,clien_mail,model_mail) values(@ID_mail,@clien_mail,@model_mail,)", con)
       cmd.Parameters.AddWithValue("@ID_mail", Label2.Text)
       cmd.Parameters.AddWithValue("@clien_mail", TextBox2.Text)
       cmd.Parameters.AddWithValue("@model_mail", TextBox3.Text)
     

       cmd = New OleDbCommand("insert into tb2 (ID_acce,probl_acce,main_acce,typ_acce) values(@ID_acce,@probl_acce,@main_acce,@typ_acce)", con)
       cmd.Parameters.AddWithValue("@ID_acce", Label2.Text)
       cmd.Parameters.AddWithValue("@probl_acce", TextBox4.Text)
       cmd.Parameters.AddWithValue("@main_acce", TextBox5.Text)
       cmd.Parameters.AddWithValue("@typ_acce", TextBox6.Text)
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()