تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود اضافة حسب قيم بالجدول
#1
السلام عليكم.مساكم الله بالخير اخواني
هذا ملف ساعدني فيه الاخ سعود جزاه الله كل الخير وهو جدا مشكور بهذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=25023
حبيت و املي مساعدتكم باضافة لو سمحتو
بالفورم2 لما اضغط على زر add لاول مرة لما table2 فارغة يكون التاكست 5 يساوي التاكست 1 .التاكست 5 يكون first record يلي بال table1..و بعدين كل ما اجي اعمل add ينضاف واحد على firstrecord
شكرا و بارك الله فيكم


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 100.66 ك ب / التحميلات : 26)
الرد }}
تم الشكر بواسطة: سعود
#2
كل ما اجد سؤال فاظن انه سهل واجيب عليه اتفاجا اني بعيد عنه ثم اضطر لحذف مشاركتي.
هل تقصد الكود التالي:

PHP كود :
       TextBox5.Text Val(TextBox1.Text) + 

شوف الدالة التالية:
PHP كود :
 Private Function rowcount() As Integer
        Using myconnection 
As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" Application.StartupPath "\DATAMMM.accdb")
 
           Using cm As New OleDbCommand("select count(*) from Table2"myconnection)
 
               If myconnection.State ConnectionState.Closed Then
                    myconnection
.Open()
 
               End If
 
               Return cm.ExecuteScalar
                If myconnection
.State ConnectionState.Open Then
                    myconnection
.Close()
 
               End If
 
           End Using
        End Using
    End 
Function 
هذه الدالة تعيد عدد صفوف جدول2
وضمن اجراء زر امر اكتب:
PHP كود :
If rowcount() = 0 Then
            TextBox5
.Text Val(TextBox1.Text) + 1
        End 
If 
طيب ... في حال وجود صفوف في جدول2 ؟؟ لن يضيف شيء حتى تضيف جملة بعد else
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة: حافظ حافظ , elgokr , عبدالله الدوسري
#3
شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If rowcount() = 0 Then
           TextBox5.Text = Val(TextBox1.Text)
       Else
           TextBox5.Text = Val(TextBox1.Text) + 1
       End If
   End Sub
الرد }}
تم الشكر بواسطة: elgokr , سعود
#4
(21-05-18, 02:29 PM)حافظ حافظ كتب : شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If rowcount() = 0 Then
           TextBox5.Text = Val(TextBox1.Text)
       Else
           TextBox5.Text = Val(TextBox1.Text) + 1
       End If
   End Sub

بارك الله فيك وكثر من امثالك ... اسلوبك بالاهتمام بالمشاركين  يجعلهم يتسابقون لتقديم مالديهم  حال ورود سؤال.
=====* التوقيع *======
=================
الرد }}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود اضافة اسبوع على تاريخ معين Lathe1 5 343 18-06-22, 10:59 AM
آخر رد: Lathe1
  هل استطيع اضافة عدد 2 من السوتش في شبكة واحدة بسام محمدغانم 2 183 03-06-22, 04:49 PM
آخر رد: بسام محمدغانم
  كيف يمكن اضافة 100 سجل بسيريال مسلسل الى قاعدة بيانات dr.programming 3 437 11-05-22, 03:08 PM
آخر رد: dr.programming
  كيفية اضافة اكتر من عمليه في وقت واحد او إلغاءها في حالة حدوث خطأ Emam emam 6 605 26-04-22, 04:03 AM
آخر رد: ابو محمد محمد محمد
  كيف يمكن اضافة عناصر للكومبوبوكس اثناء تشغيل البرنامج عن طريق المستخدم haithammoftah 1 793 09-04-22, 02:15 AM
آخر رد: asmarsou
  ممكن طريقة اضافة باسورد عند انشاء برنامج للقنوات لكي عندما احد يريد ان يدخل الى البرن omar dz 6 1,077 20-03-22, 07:37 PM
آخر رد: omar dz
  هل يمكن اضافة بيانات اخري عند الطباعه مع داتا جريد فيو مثل الاسم التاريخ رقم الفاتور ahmedhhh2 3 629 13-03-22, 06:03 PM
آخر رد: ahmedhhh2
  هل يجب اضافة رقم اضافي لرقم الفاتورة لتجنب التكرار Rabeea Qbaha 6 2,716 25-02-22, 03:18 AM
آخر رد: Taha Okla
  [VB.NET] مشكلة لم استطع اضافة print form للفيجوال 2019 ولا 2022 bilgacim 2 775 12-02-22, 04:49 AM
آخر رد: bilgacim
  سؤال : هل يمكن اضافة فاصلة الوف علوية ( اعلى الارقام ) 00. 000'000'3 mh66 4 998 05-01-22, 12:44 AM
آخر رد: yassoo1985

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


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