مشكلة بطريقة IsLoaded

[Amr Ashraf]

السلام عليكم 

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

If CurrentProject.AllForms(Trans_top).IsLoaded = True Then
Forms![Trans_top]![Text98] = Me.Orient
DoCmd.Close
Else
Forms![FrmAmr]![Field] = Me.Orient
DoCmd.Close
End If

ماهو سبب الخطأ فى هذا الكود لا يعمل بالطريقة التى اريدها ... جزاكم الله خير

 

[Shivan Rekany]

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

DoCmd.Close

كلوس اي ... هذه سيتم اغلاق النافذة اللي في المقدمة لذلك يجب ان تكتب اسم النموذج اللي تريد ان تغلقه
ثانيا اذا هناك مشكلة اخرى فيه ستتم وصول الى نتيجة بعد ارفاق نسخة مصغرة من القاعدة

[Amr Ashraf]

4 دقائق مضت, Shivan Rekany said:

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

DoCmd.Close

كلوس اي ... هذه سيتم اغلاق النافذة اللي في المقدمة لذلك يجب ان تكتب اسم النموذج اللي تريد ان تغلقه
ثانيا اذا هناك مشكلة اخرى فيه ستتم وصول الى نتيجة بعد ارفاق نسخة مصغرة من القاعدة

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

كنت مستعجل ولذلك ما جهزت مرفق ... تفضل المرفق ومازالت المشكلة قائمة بعد ازالة السطر المشار اليه 

بالنسبة للمرفق اضغط ضغطتين فى الحقل الفارغ ثم اضغط ضغطتين على نتيجة البحث ليتم كتابتها فى الحقل الفارغ فى النموذج FrmAmr أو FrmMoh على حسب النموذج المفتوح منهما 

 

 

 

 

2.rar

[ابو ياسين المشولي]

اخي اظن هذا ما تقصده قرب الكود

If CurrentProject.AllForms(Trans_top).IsLoaded = True Then
'Forms![FrmMoh]![Field] = Me.Orient
DoCmd.OpenForm "FrmMoh", , , "Field=" & Me.Orient

DoCmd.Close
Else
DoCmd.OpenForm "FrmAmr", , , "Field=" & Me.Orient

'Forms![FrmAmr]![Field] = Me.Orient
DoCmd.Close
End If
 

[Amr Ashraf]

الان, ابو ياسين المشولي said:

اخي اظن هذا ما تقصده قرب الكود

If CurrentProject.AllForms(Trans_top).IsLoaded = True Then
'Forms![FrmMoh]![Field] = Me.Orient
DoCmd.OpenForm "FrmMoh", , , "Field=" & Me.Orient

DoCmd.Close
Else
DoCmd.OpenForm "FrmAmr", , , "Field=" & Me.Orient

'Forms![FrmAmr]![Field] = Me.Orient
DoCmd.Close
End If
 

لا اخى ليس المطلوب طريقتى طريقة استدعاء كلمة بدلا من كتابتها يدويا وذلك  اثناء فتح النموذج المطلوب كتابة الكلمة فيه لأن نموذج البحث اساسا يتم فتحه من داخل النموذج الاساسى وليس هو الذى يتحكم فى فتح النموذج الاساسى 

يعنى باختصار طريقتك تفلتر النموذج عند فتحه طريقتى اثناء فتح النموذج تكتب كلمة من نموذج البحث الفرعى

شكرا على متابعتك

 

 

[Shivan Rekany]

1 ساعه مضت, Amr Ashraf said:

If CurrentProject.AllForms(Trans_top).IsLoaded = True Then

القی نژرتا الێ اسم النموذج !! ليس لدينا اي نموذج بهذا الاسم
اتفضل اليك هذا الكود
 

Private Sub Orient_DblClick(Cancel As Integer)
    If CurrentProject.AllForms("FrmMoh").IsLoaded = True Then
        Form_FrmMoh.mytxt.Value = Me.Orient
        DoCmd.Close acForm, "search orient", acSavePrompt
    Else
        Form_FrmAmr.mytxt.Value = Me.Orient
        DoCmd.Close acForm, "search orient", acSavePrompt
    End If
End Sub

 

2.rar

[jjafferr]

السلام عليكم

 

ومشاركة مع اخي شفان ، وبالنظر الى الموضوع من زاوية اعلى ،

نستطيع ان نرسل اسم النموذج الذي فتح نموذج البحث ، عن طريق المتغير OpenArgs ، هكذا

Private Sub Field_DblClick(Cancel As Integer)

    DoCmd.OpenForm "Search Orient", , , , , , "FrmAmr"
End Sub


او للنموذج الثاني

Private Sub Field_DblClick(Cancel As Integer)
DoCmd.OpenForm "Search Orient", , , , , , "FrmMoh"
End Sub

.

ثم من نموذج البحث ، نرجع المعلومة هكذا:

Private Sub Orient_DblClick(Cancel As Integer)

    Forms(Me.Parent.OpenArgs)!Field = Me.Client
    DoCmd.Close
    
End Sub

 

جعفر

[Amr Ashraf]

16 دقائق مضت, Shivan Rekany said:

القی نژرتا الێ اسم النموذج !! ليس لدينا اي نموذج بهذا الاسم

اسف خطأ منى والطريقة تعمل بكفاءة استاذ شيفان جزاك الله خير 

10 دقائق مضت, jjafferr said:

مشاركة مع اخي شفان ، وبالنظر الى الموضوع من زاوية اعلى

سلمت يداك استاذنا الفاضل على المعلومة تقبل تحياتى 

[Shivan Rekany]

16 دقائق مضت, jjafferr said:

ومشاركة مع اخي شفان ، وبالنظر الى الموضوع من زاوية اعلى ،

نستطيع ان نرسل اسم النموذج الذي فتح نموذج البحث ، عن طريق المتغير OpenArgs

شكرا لك فرحّنا مشاركتك معنا ... شكرا لك مجددا