لدي مشكلة مع vba

[اأبو مصطفى]

السلام عليكم

في البداية ارحب بهذا المنتدى الاكثر من رائع والمتخصص في اوفس والذي قل نظيره في الانترنيت ادعو لكم بالتوفيق والنجاح في عملكم في جزء الاقسام الفرعية الذي موجود في المنتدى وتحت بند الوحدات النمطية وبعدما قرأت مجموعة من دروس vba انتم مشكورين جدا على هذه الدروس ولكن لدي ملاحظة في الملف المرفق الذي رفعته الان اليكم والذي بعنوان recordsetlesson  هذا البرنامج يتحدث عن قاعدة بيانات الموظفين كل موظف في قسم معين ويرأسه رئيس قسم ونفذت البرنامج ظهر مربع حوار يسأل عن رقم الموظف فاذا اعطيته رقم معين يعطي مربع حوار عدد الموظفين ويقرر ان الرقم الذي اعطيته عائد لموظف مسؤول فيقول مربع الحوار ان الموظف الفلاني مسؤول عن ثلاثة او اربعة او غير مسؤول

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

 

RecordsetLesson.rar

[ابو ياسر]

Private Sub example1_Click()
Dim rstEmployees As DAO.Recordset
Set rstEmployees = Me.Form.RecordsetClone
id = InputBox("ÃÏÎá ÑÞã ÇáãæÙÝ")
C = 0
MsgBox "ÚÏÏ ÇáãæÙÝíä " & rstEmployees.RecordCount
rstEmployees.MoveFirst
Do While Not rstEmployees.EOF
If rstEmployees!EmpHead = id Then C = C + 1
rstEmployees.MoveNext
Loop
If C = 0 Then
 MsgBox "ÇáãæÙÝ ÕÇÍÈ ÇáÑÞã " & id & "áíÓ ãÓÆæáÇ Úä ÃÍÏ"
Else
 MsgBox " åÐÇ ÇáãæÙÝ ãÓÄæáÇð Úä " & C
End If
rstEmployees.Close
End Sub

1- الكود يتعامل مع مجموعة السجلات في النموذج ولا يتعامل معها عبر الجداول

2- الكود في الرسالة الاولى يعد السجلات الموجودة ككل

3- الكود في الرسالة الثانية يعد الأسماء الموجودة في حقل  المسؤول حسب الرقم المدخل لان حقل المسؤول في الاصل رقم وليس نص

[اأبو مصطفى]

السلام عليكم الاخ ابو ياسر

اشكر اهتمامك بموضوعي لكني لم افهم النقطة الثانية والثالثة من رسالتك لي

ارجو توضيح ذلك حيث انني اعطي رقم المسؤول فيعطيني اما المسؤول يكون مسؤول عن ثلاث موظفين او اثنين او لا يكون مسؤول كيف يكون ذلك ارجو التوضيح مع الشكر الجزيل

[اأبو مصطفى]

السلام عليكم عزيزي واخي ابو ياسر

عملت قاعدة بيانات كما في الملف المرفق ( قاعدة بيانات الموظفين واسمائهم واسماء المسؤول ) وعملت نموذج وضعت فيه زر هو نفس المثال السابق وعند الضغط على الزر يظهر مربع حوار يسأل عن ادخال رقم الموظف وعند ادخال رقم الموظف مثلا 1 او 2 فانه يظهر مربع حوار يخبرنا ان المسؤول ليس لديه موظف مسؤول عنه مع العلم انني قد جعلت الحقل emphead رقم ووضعت رقم واحد على القيدين في سجل الموظفين هل من المفروض ان الـ  الحلقة التكرارية تدور على كل سجلات جدول الموظفين وتجمع ويكون المجموع اثنان ويكون للموظف المسؤول موظفين اثنان مسؤول عنهم ارجو المساعدة مع الشكر الجزيل

Database7.rar

[اأبو مصطفى]

السلام عليكم اخي العزيز ابو ياسر

اين الرد انني انتظر الرد منك  ارجوالمساعدة مع الشكر الجزيل

[ابو ياسر]

قم بتحويل المرفق الى الاصدار 2003 حيث لا يمكنني فتحه الان

وعلى كل حال

سبق قلت لك انه يعد حقل المسؤل في ( النموذج )

يعني كل موظف امامه المسؤل عنه فنحن نعد حقل المسئول  " كم تكرر من مرة " في حقل النموذج

ارجو ان تكون المعلومة وصلت

[اأبو مصطفى]

السلام عليكم اخي وعزيزي ابو ياسر

هذا هو الملف المرفق 2003 ارجو المساعدة مع الشكر الجزيل

 

Database7.rar

[اأبو مصطفى]

السلام عليكم اخي العزيز ابو ياسر

اين الرد الملف المرفق هو اصدار 2003 ارجو المساعدة مع الشكر الجزيل

[ابو ياسر]

قلنا ان الكود يتعامل مع الحقول و السجلات داخل النموذج ، ونموذجك المرفق لا يوجد فيه حقول  ، وعلى كل حال سأقوم بتعديل الكود حتى  يتعامل  مع الجداول مباشرة  فانتظرني ..

[ابو ياسر]

 اخوي تفضل تم التعديل 

واعتذر عن التأخير بسبب المشاغل

Database8.rar

[اأبو مصطفى]

السلام عليكم اخي العزيز ابو ياسر

اشكرك كثيرا على البرنامج المرفق داعيا ً من الله لك بالموفقية والنجاح مع الشكر الجزيل