كل ما اجد سؤال فاظن انه سهل واجيب عليه اتفاجا اني بعيد عنه ثم اضطر لحذف مشاركتي.
هل تقصد الكود التالي:
شوف الدالة التالية:
هذه الدالة تعيد عدد صفوف جدول2
وضمن اجراء زر امر اكتب:
طيب ... في حال وجود صفوف في جدول2 ؟؟ لن يضيف شيء حتى تضيف جملة بعد else
هل تقصد الكود التالي:
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
وضمن اجراء زر امر اكتب:
PHP كود :
If rowcount() = 0 Then
TextBox5.Text = Val(TextBox1.Text) + 1
End If
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

