أحرص على أن تكون التسميات للجداول والحقول باللعة الانجليزية
وأمام الحقول اجعل التسمية التوضيحية باللغة العربية
::بالتوفيق::
أذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم
وعليكم السلام ورحمة الله وبركاتة
كل عام وأنت بخير
أخي الكريم
بما أنك تريد عمل احصاءات واظهار نسب مئوية
تصوري أن كل سطر من سطور الاستمارة يجب أن يكون في جدول خاص
وجدول الادخال ياخذ القيم من الجداول المرتبطة
مثلا
أعزب =1
متزوج =2
مطلق = 3
وهكذا بالنسبة للقيم الأخرى
::بالتوفيق::
أذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم
تفضل
كما قال الاخ monm
تم تطبيق فكرة الاستاذ @ابوخليل
تتم الفلترة حسب الاختيار واذا لم تختر شيئ يتم اظهار كامل البيانات
::بالتوفيق::
إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم
k .906.2.rar
أخي الكريم
أنظر الى جدول الحالة الاجتماعية
ثم أنظر في جدول البيانات الشخصية الى الحالة الاجتماعية
بقية حقول البيانات الشخصية يجب ان تكون بنفس الطريقة
::بالتوفيق::
أذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم
إستمارة k906.1معلومات.rar
عبد اللطيف سلوم
اشكرك استاذ على تعاونك واستجابتك وجزاك الله خير الجزاء
انا مبتدئ في اكسس احاول ان اتعلم الاكسس لاني لي هواية ورغبة بالكمبيوتر .
احاول تصميم برنامج للحوالات والصرافة
الملف الذي قمت انا بتحميله هو تعلم من فيديوهات الاستاذ سيد بدران مع اني طبقت معه على الفيديو كل شيء ولم اصل لنتيجة
علماً اني ليس لي حاجة برصيد اول (فقط مدين ودائن ورصيد بعد كل حركة )
مرة اخرى شكرا لك واحترامي لشخصك الكريم
جزاك الله خير على هذا الدعاء
مراعاة لانظمة وقوانين المنتدى افتح موضوع جديد
لنرى ما يمكن عمله
::بالتوفيق::
إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم
جرب هذا الماكرو (دون حلقات تكرارية) من سطر واحد
Option Explicit
Sub del_rows()
Range("Q5:Q" & Range("Q5").CurrentRegion.Rows.Count + 6) _
.SpecialCells(4).EntireRow.Delete
End Sub
وعليكم السلام ورحمة الله وبركاتة
في مصدر عنصر التجكم للحقل استخدم هذا الكود
=" السلام عليكم " & [ضع هنا اسم الحقل] & " (" & [ضع هنا اسم الحقل] & ")"
::بالتوفيق::
إذا كنت ترى أن هذه المشاركة مفيدة فلاتنسى التقيم
تفضل
=Nz(DSum("[Firsttxtadd]";"Qry_Name";"[ID]=[nameID]and[txtdate]='04' and [Firsttxtkin]='Casual'");0)
=Nz(DSum("[Firsttxtadd]";"Qry_Name";"[ID]=[nameID]and[txtdate]='05' and [Firsttxtkin]='Casual'");0)
=Nz(DSum("[Firsttxtadd]";"Qry_Name";"[ID]=[nameID]and[txtdate]='06' and [Firsttxtkin]='Casual'");0)
"أكملل بقية الشهور بنفس الطريقة "
::بالتوفيق::
إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم
hr v - Copy - Copyk.906.rar