تقييم الموضوع :
  • 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)
كيف اضع الدالة في موديل بشكل عام لاستعملها في اي فورم بدلا من كتابة الدالة في كل فورم بارك الله فيكم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة الترقيم التلقائي محمد خيري 4 509 21-09-20, 11:58 AM
آخر رد: Thht
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 200 10-08-20, 03:38 PM
آخر رد: ismaeel
  الترقيم التلقائي في الكريستال ريبورت عمور2016 3 295 22-07-20, 08:51 PM
آخر رد: عمور2016
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 302 27-05-20, 11:49 PM
آخر رد: momani33
  [VB.NET] كود بديل لتسلسل التلقائي محمد اسماعيل 4 1,062 09-01-20, 03:00 PM
آخر رد: asdfar1977
  الاكمال التلقائي على حقل اسم الصنف بالداتا كريد فيو Ghassanff 7 805 01-01-20, 04:56 PM
آخر رد: asemshahen5
  الاكمال التلقائي بجزء من الكلمه aftfm 4 971 31-12-19, 09:39 AM
آخر رد: mmali127
Lightbulb المطلوب اعادة الترقم التلقائي من رقم واحد في كل بداية سنة جديدة ابو رضوان 1 613 04-09-19, 04:29 PM
آخر رد: asemshahen5
  [سؤال] الترقيم التلقائي mr_hso 8 1,017 31-03-19, 10:50 AM
آخر رد: mr_hso
  حول طريقة تسجيل الدخول التلقائي naderalkeng54 13 2,245 20-10-18, 01:15 PM
آخر رد: Mohamed Magdy

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


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