اضافة قيم مربع نص الي مربع قائمة

[ابوصلاح]

مربع نص.rar

[husamwahab]

تفضل هذه المحاولة ارجو ان تكون طلبك

مربع نص-2.rar

[ابوصلاح]

شكرا اخي husamwahab علي سرعة الاستجابة اريد الطلب بهذا الشكل بحيث استطيع جمع المبلغ في مربع النص في الاسفل

[husamwahab]

تفضل التعديل

Root-2011.rar

[ابوصلاح]

لكن البيانات كلها تاتي في العمود الاول فقط انا عاوز كل مربع نص يكون في عمود في مربع القائمة 

[husamwahab]

جربت التعديل الخير يقوم بالمطلوب

[ابوصلاح]

هو تم التوزيع لكن على العمود الأول فقط لكن المطلوب التوزيع على الاربع اعمده في اللست بوكس

[kanory]

2 ساعات مضت, ابوصلاح said:

هو تم التوزيع لكن على العمود الأول فقط لكن المطلوب التوزيع على الاربع اعمده في اللست بوكس

مشاركة مع حبيبنا الاستاذ . حسام

استبدل الكود بهذا >>>>>>

If Me.m1.ListCount = 0 Then
 Me.m1.AddItem "م" & ";" & "الصنف" & ";" & "عدد" & ";" & "المبلغ"
 Me.m1.AddItem Me.id & ";" & Me.tex_snf & ";" & Me.tex_count & ";" & Me.tex_ammount
Else
  Me.m1.AddItem Me.id & ";" & Me.tex_snf & ";" & Me.tex_count & ";" & Me.tex_ammount
End If
  Dim i As Long, SumTotal As Long
  SumTotal = 0
  For i = 1 To (Me.m1.ListCount - 1)
  SumTotal = SumTotal + Nz(Me.m1.ItemData(i), 0)
  Next i
txtTotal = SumTotal

 

تم تعديل أكتوبر 23, 2020 بواسطه kanory