[وادي العوضي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
طلبي مشروح داخل النموذج للبرنامج المرفق مع وافر التحايا

[sendbad100]

السلام عليكم

هل هذا هو المطلوب

PHP كود :

Me.Text22.Text = rs3.RecordCount 


تضيفة للكود التالي

PHP كود :

Private Sub Command16_Click()

Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Sum(Crdnum)AS SumCrdnum From tbl1 Where Crdnum=" & Val(Text22))
Me.Text22.Text = rs3.RecordCount
rs3.Close
Set rs3 = Nothing
End Sub 


[وادي العوضي]

الله عليك استاذي الفاضل sendbad100 نعم هذا هو المطلوب تماما
جزاك الله خيرا وبارك الله فيك وجعل الله جل وعلا اعمالك في ميزان حسناتك يارب يارب

---

استاذي الفاضل هناك خطا في الكود لان عند تطبيق الكود على قوائم عدد ثلاثة يعطيني فقط رقم 1 والمفروض يعطيني عدد القوائم 3
وهذا البرنامج في المرفقات بعد وضع الكود فيه

[وادي العوضي]

اساتذتي الافاضل
بالنسبة الى عدد القوائم هو اظهار اعلى رقم موجود في الحقل وفي برنامجي هذا اعلى رقم هو 3 في حقل رقم الهوية
اذن كيف الطريقة الى ذلك وما هو الكود او الدالة التي تظهر اعلى رقم موجود في حقل رقم الهوية الذي اعتبرته عدد القوائم

[sendbad100]

السلام عليكم

PHP كود :

Max (اسم الحقل) 


PHP كود :

Max ( رقم_الهوية) 


---

PHP كود :

SELECT Max([Crdnum]) AS عدد_القوائم FROM tbl1 


[وادي العوضي]

استاذي الفاضل جزاك الله خيرا لم تنجح معي كل المحاولات كل الاكواد كتبتها ولم تنجح الطريقة
عندي في قاعدة بيانات في حقل Crdnum الذي اسمه رقم الهوية 3 قوائم كيف اعرض اعلى رقم في مربع النص التابع الى زر امر عدد القوائم
وهذا الكود الاخير الذي كتبته لي ادخلته في زر الامر ولم تنجح الطريقة يظهر رقم 1 والمفروض ان يظهر رقم 3 لانه اعلى رقم مع وافر التحايا

[asemshahen5]

SELECT Count(Crdnum)AS CountCrdnum From tbl1

[وادي العوضي]

استاذي الفاضل والله تعبتك معي كثيرا لكن لم تفلح كل المحاولات
اذا امكن التعديل على المرفق الذي ارفقته سابقا احتمال لم اعرف كيف او اين اضع الكود وشكرا لك مرة ثانية لجهودك ومساعدتك لي مع وافر التحايا

[وادي العوضي]

اساتذتي الافاضل هل يوجد حل او التعديل على البرنامج المرفق

[asemshahen5]

PHP كود :

Private Sub Command16_Click()

Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Count(Crdnum)AS CountCrdnum From tbl1 ") ''Where Crdnum="" & Val(Text22.Text))
Me.Text22.Text = rs3!CountCrdnum
rs3.Close
Set rs3 = Nothing
End Sub 


هذا الكود مبدئيا الا اذا كان هناك معيار معين للبحث .

مثل :

PHP كود :

Private Sub Command16_Click()

Dim rs3 As Recordset
Set rs3 = db.OpenRecordset("SELECT Count(Crdnum)AS CountCrdnum From tbl1 Where Crdnum=" & Val(Text20.Text))
Me.Text22.Text = rs3!CountCrdnum
rs3.Close
Set rs3 = Nothing
End Sub