كيف احسب عدد الاصناف داخل مربع قائمة

أختي الكريمة أتمنى أن تضعي مثال لكي يتم التعديل عليه أسهل لك

أو أحد الأساتذة في المنتدى ممكن أن يرفق لك مثال أخر

لقد أرفقت لك مثال لكي تسفيد منه

تم إنشاء جدول مثل ماطلبت وتم إنشاء إستعلام لكي يحسب عدد الأصناف وتم إنشاء قائمة لكي تظهر لك المجاميع لكل صنف

إن شاء الله تستفيدي منه ..

شكراً ...

السلام عليكم

aaa.rar

اخي الكريم

شكرا لمساعدتك ولكن ليس هذا ما اقصده

اريد احتساب عدد مرات إضافة كل صنف داخل مربع القائمة

المثال المرفق سوف يوضح المطلوب

اختك سكر

aaa.rar

السلام عليكم

أختي الكريمة

أتنمى أن يكون هذا طلبك ...

وإذا لم يكن هو المطلوب أترك الأجابة إلى أحد الأعضاء في المنتدى ...

...

السلام عليكم .

aaa.rar

لا ياخي ليس هذا ما اريده

قصدت ان يكون الترقيم في نفس مربع القائمة بحيث تعمل مثل الترقيم التلقائي لكل صنف

شكرا على مساعدتك واتمنى من البقية مساعدتي

قد يكون الحل هنا :

Private Sub a_DblClick(Cancel As Integer)
  Dim aRst As Recordset
  Dim bRst As Recordset
  Dim fld As Field
  Dim MaxNoo As Long
  Dim CntNoo As Long

  On Error Resume Next

  Set aRst = CurrentDb.OpenRecordset(Me.a.RowSource, dbOpenSnapshot)
  Set bRst = CurrentDb.OpenRecordset(Me.b.RowSource, dbOpenDynaset)

  With aRst
	.FindFirst "noo = " & Me.a
	MaxNoo = Nz(DMax("[noo]", Me.b.RowSource, "[name]='" & Me.a.Column(1) & "'"), 0)
	CntNoo = Nz(DCount("[noo]", Me.b.RowSource, "[name]='" & Me.a.Column(1) & "'"), 0)
	bRst.AddNew
	  For Each fld In .Fields
		bRst.Fields(fld.name) = fld.Value
	  Next fld
	  bRst!noo = IIf(MaxNoo > CntNoo, MaxNoo, CntNoo) + 1
	bRst.Update
  End With

  aRst.Close
  bRst.Close

  Me.b.Requery
End Sub

aaa_2.rar

نعم يا اخي الكريم هذا ما ابحث عنه بالضبط

الف الف شكر

اختك سكر