منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم.مساكم الله بالخير اخواني
هذا ملف ساعدني فيه الاخ سعود جزاه الله كل الخير وهو جدا مشكور بهذا الموضوع
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

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