[alsalamoni]

(03-02-20, 11:46 PM)محمد خيري كتب : تسلم اخي السلموني لكن كل فورم و فيه جدول باسم مختلف عن الفورم الىخر ليس كل الفورمات جدولها اسمو Table1 و id

لو رجعت لاول الموضوع لانت لم تذكر اختلاف الجدول والحقل

(03-02-20, 01:59 PM)محمد خيري كتب : السلام عليكم.اخواني استعمل هذه الفونكشن لجلب الترقيم التلقائي على مستوى الفورم

كود :

   Public Function Max_Record() As DataTable
       Dim Str As String = "Select IIF(Max(Id) IS Null,1,Max(Id)+1) From Table1"
       Dim Cmd As OleDbCommand
       Dim Dt As New DataTable
       Dt.Clear()
       Cmd = New OleDbCommand(Str, Con)
       Dim Da As New OleDbDataAdapter(Cmd)
       Da.Fill(Dt)
       Return (Dt)
   End Function

و بعد في زر اضافة جديد استعمل

كود :

Me.TextBox1.Text = Max_Record.Rows(0)(0)

كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم