تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جعل الرتقيم التلقائي بموديل
#1
السلام عليكم.اخواني استعمل هذه الفونكشن لجلب الترقيم التلقائي على مستوى الفورم

كود :
   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)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم
الرد }}}
تم الشكر بواسطة: egypt 2020 , tryold
#2
PHP كود :
   Public Function Max_Record(IDColumnName As StringTableName As String) As DataTable
        Dim Str 
As String "Select IIF(Max(" IDColumnName ") IS Null,1,Max(" IDColumnName ")+1)As ID From " TableName
        Dim Cmd 
As OleDb.OleDbCommand
        Dim Dt 
As New DataTable
        Dt
.Clear()
 
       Cmd = New OleDb.OleDbCommand(Strcon)
 
       Dim Da As New OleDb.OleDbDataAdapter(Cmd)
 
       Da.Fill(Dt)
 
       Return (Dt)
 
   End Function 

الاستعمال :

PHP كود :
TextBox1.Text Max_Record("id""Table1").Rows(0)("ID").ToString 
الرد }}}
#3
بارك الله فيك استاذ asemshahen و جزاك خير يا رب.اشتغل الامر بنجاح باي فورم .الهي لا يحرمنا منك
الرد }}}
تم الشكر بواسطة: alshandodi , asemshahen5
#4
الله يسلمك من كل ردي .
الرد }}}
تم الشكر بواسطة:
#5
(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)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم

انقل الداله كما هي الى موديول واحذف الدالة من اي فورم
الرد }}}
تم الشكر بواسطة: asemshahen5 , محمد خيري , محمد خيري
#6
تسلم اخي السلموني لكن كل فورم و فيه جدول باسم مختلف عن الفورم الىخر ليس كل الفورمات جدولها اسمو Table1 و id
الرد }}}
تم الشكر بواسطة: asemshahen5
#7
(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)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم