منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم.اخواني استعمل هذه الفونكشن لجلب الترقيم التلقائي على مستوى الفورم

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

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

الاستعمال :

بارك الله فيك استاذ asemshahen و جزاك خير يا رب.اشتغل الامر بنجاح باي فورم .الهي لا يحرمنا منك

الله يسلمك من كل ردي .

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

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

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

تسلم اخي السلموني لكن كل فورم و فيه جدول باسم مختلف عن الفورم الىخر ليس كل الفورمات جدولها اسمو Table1 و id

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

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