[alsalamoni]

(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)

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

انقل الداله كما هي الى موديول واحذف الدالة من اي فورم