تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة لم استطع اضافة print form للفيجوال 2019 ولا 2022 bilgacim 0 91 10-01-22, 10:24 PM
آخر رد: bilgacim
  سؤال : هل يمكن اضافة فاصلة الوف علوية ( اعلى الارقام ) 00. 000'000'3 mh66 4 466 05-01-22, 12:44 AM
آخر رد: yassoo1985
  كيفية اضافة عملية بحث على web browser للملفات داخل البرنامج haithammoftah 3 245 29-12-21, 01:07 AM
آخر رد: سعود
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 234 28-11-21, 12:52 PM
آخر رد: سعود
  [سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox alims 10 555 24-11-21, 02:01 PM
آخر رد: alims
  ممكن شرح اضافة مشغل mpv بداخل الفورم masport tv 6 533 19-11-21, 03:34 AM
آخر رد: معاند الحظ
  كيفية اضافة المكتبة Aspose atefkhalf2004 6 418 16-11-21, 04:04 AM
آخر رد: ابو روضة
  اضافة ادوات لفيجوال بيسك خالد20 4 468 09-11-21, 09:49 PM
آخر رد: خالد20
  اضافة اداة التاريخ والوقت الى داتا جريد فيو خالد20 4 566 30-09-21, 10:52 PM
آخر رد: خالد20
Question [سؤال] listview اضافة عمود مخفى alims 2 372 29-09-21, 07:11 AM
آخر رد: ماشي

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


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