اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

قام بنشر

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

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

قام بنشر

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

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

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

[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

تم تعديل بواسطه امير عاطف
قام بنشر

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information