تحديث مربع تحرير وسرد داخل نموذج فرعي Combo Box

[bassum]

السلام عليكم ورحمة الله

شرح بسيط للبرنامج .. أنشأت جدولين الأول يحتوي على الإدارات والثاني أسماء الموظفين طبعاً ربطت الجدولين رأس بأطراف ثم أنشأت لكل جدول نموذج

وضعت النموذج الثاني داخل الأول بطريقة السحب والإفلات . وأنشأت على كل نموذج مربع تحرير وسرد ( غير منظم ) لتختار الإدارة ولتختار الموظف

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

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

تنهض الأمم بالعلم والمعرفة وأنتم كرماء وأنا أستاهل - أعوذ بالله من كلمة أنا

[امير عاطف]

ضع عند حدث بعد التحديث After Apdate لمربع التحرير والسرد الموجود على النموذج الأساسي

[اسم النموذج الفرعي].[اسم مربع التحرير والسرد بالنموذج الفرعي].Requery

[bassum]

ألله يسلمك ويحشرك مع الصالحين ويقيك عذاب القبر وظلمته هذا اولاً

وجربت الكود ولكن مانفع

الكود كتبته بهذا الشكل

[List65].[frmEmployees].Requery

حيث frmEmployees هو النموذج الفرعي و List65 هو مربع التحرير والسرد على النموذج الفرعي والكود بالكامل هو

Private Sub Combo48_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[number] = " & Str(Nz(Me![Combo48], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    [List65].[frmEmployees].Requery
End Sub

[امير عاطف]

forms![mainform]![frmEmployees]![List65].Requery

حيث mainform هو اسم النموذج الرئيسي الكود بالكامل يصبح هكذا ..

Private Sub Combo48_AfterUpdate()
   ' Find the record that matches the control.
   Dim rs As Object

   Set rs = Me.Recordset.Clone
   rs.FindFirst "[number] = " & Str(Nz(Me![Combo48], 0))
   If Not rs.EOF Then Me.Bookmark = rs.Bookmark
forms![mainform]![frmEmployees]![List65].Requery
End Sub

تم تعديل أبريل 13, 2004 بواسطه امير عاطف

[bassum]

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