[حافظ حافظ]

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

[سعود]

كل ما اجد سؤال فاظن انه سهل واجيب عليه اتفاجا اني بعيد عنه ثم اضطر لحذف مشاركتي.
هل تقصد الكود التالي:

PHP كود :

       TextBox5.Text = Val(TextBox1.Text) + 1 


---

شوف الدالة التالية:

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

[حافظ حافظ]

شكرا اخ سعود تم حل المشكلة و بارك الله فيك.استخدمت هكذا

كود :

   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

[سعود]

(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

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