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)