المساعدة في عمل كود

[أبو سلمى]

الاخوه الكرام / أعزكم الله

برجاء المساعدة في عمل كود أو وحدة نمطية يقوم بعمل الاتي :

اذا كان النموذج 1 (الرئيسي ) مفتوح قم بغلقه (وهو النموذج الاساسي بالتالي سيتم غلق البرنامج كاملا )

والا

قم بفتح النموذج1 (الرئيسي)

قم بغلق النموذج 2 

وغلق النموذج 3 

وجزاكم الله خيرا 

 

[أبو سلمى]

اين المساعدة الاخوه الكرام 

[ابو جودي]

انا مش قادر افهم على فكره حضرتك تقصد إيه 

اممممممممم

وعلى فكره روح على موضوع حضرتك بتاع الترقيم التلقائى
انا ارفقت لحضرتك المثال للترقيم بإصداراتاكسس 2000        &         2002-2003          &             2007-2013

[rudwan]

اسنخ الكود التالي في وحدة نمطية جديدة Module

Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormName).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function

الآن اكتب في النموذج أو المكان الذي ترغب تنفيذ الكود فيه شيئا مثل هذا

If fIsLoaded("frmBasic") = True Then
DoCmd.Close acForm, "frmBasic"
End if

طبعا مع استبدال كلمة  "frmBasic"   باسم النموذج لديك

و يمكنك الآن التحكم بتسمية النماذج الأخرى التي تريد غلقها أو فتحها

علما أن كود فتح نموذج آخر هو

DoCmd.OpenForm "frmMain" 

[أبو سلمى]

أخي واستاذي الكريم / Rudwan

جزاكم الله على اهتمامكم بموضوعي ولكن لم أفلح في تحقيق طلبي فقد أكون لم أفهم قصدك بالضبط فلو أمكن توضح لي أكثر 

أنا قمت بعمل وحدة نمطية كما فعلت 

ثم في النموذج الذي اريد غلقه وليكن 1 قمت في حدث غلق بوضع الكود الثاني (مع تغيير اسم النموذج frmBasic الى نموذج1) 

If fIsLoaded("frmBasic") = True Then
DoCmd.Close acForm, "frmBasic"
End if

وفي النموذج الرئيسي في حدث عند التحميل وضعت الكود الثالث 

هذا ما فهمته برجاء الايضاح أكثر ولكم الشكر 

[rudwan]

ثم في النموذج الذي اريد غلقه وليكن 1 قمت في حدث غلق بوضع الكود الثاني (مع تغيير اسم النموذج frmBasic الى نموذج1) 

 

 

النموذج الذي تريد غلقه لا يحتاج أن تضع فيه كود في حدث الاغلاق , بل يكفي اغلاقه اغلاقا عاديا دون اي كود

 الكود المذكور أعلاه يساعدك في اغلاق النموذج المطلوب و أنت واقف في نموذج آخر

حيث يختبر اولا هل النموذج رقم 1 مفتوح ؟ اذا كان كذلك يقوم بغلقه

قم بتوضيح  الحدث الذي تريد غلق البرنامج عنده

في اي نقطة أو في نموذج تريد أن تقوم بغلق النموذج المطلوب ؟

[أبو سلمى]

جزاكم الله خيرا وزادكم علما ونفع بكم المسلمين