[ تمت الإجابة ]التحكم عن طريق الكود للامر احضار الى المقدمة وارسال الى الخلف

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

مرحباً اخي ابو عدنان

ماذا عن خاصية Visible ( مرئي )

هل تؤدي الغرض ..

db1.rar

بارك الله بك اخي يوسف الغالي على سرعة تجاوبك معي '''

لا تفي بالغرض لاني اريد من هذا الكود اخفاء عددة تسميات ومربعات نصوص بالجملة :wink:

ومشكور مرة ثانية ونحن بالانتظار

بارك الله في اخي الغالي ابو عدنان

ما اعلمه هو بانه لا يمكن التحكم بهذه العملية لأنها تتم في وقت التصميم

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

بالتوفيق

يوسف احمد كتب:

بارك الله في اخي الغالي ابو عدنان

ما اعلمه هو بانه لا يمكن التحكم بهذه العملية لأنها تتم في وقت التصميم

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

بالتوفيق

مليون تحية من القلب الى مشرفنا يوسف احمد ،،،،

بارك الله بك وبجهودك وجزاك الله كل خير ومين ادك يا عم هذه الايام مباركة والاجر مضاعف ان شاء الله،،،،

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

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

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

اخوك ابو عدنان

تفضل اخي الكريم

كود الإرسال للخلف

Private Sub CmdBack_Click()
DoCmd.OpenForm "FORM", acDesign
Forms("Form").Controls("Label1").InSelection = True
DoCmd.RunCommand acCmdSendToBack
DoCmd.OpenForm "FORM", acNormal
End Sub

كود احضار الى المقدمة

Private Sub CmdFront_Click()
DoCmd.OpenForm "FORM", acDesign
Forms("Form").Controls("Label1").InSelection = True
DoCmd.RunCommand acCmdBringToFront
DoCmd.OpenForm "FORM", acNormal
End Sub

إضافة :

في كلا الكودين يتم التالي

1. عند الضغط على زر الأمر يتم وضع النموذج في وضع التصميم

2. يتم اختيار الكنترول المطلوب وهو هنا حقل التسمية Label1 يمكن اختيار اي كنترول نريد سواء مربع نص او زر أمر او نموذج فرعي او اي شيء نريده في النموذج بواسطة الخاصية InSelection

3. يتم ارسال الكنترول المختار الى الخلف او الى الأمام بناء على الكود سواء acCmdSendToBack او acCmdBringToFront

4. يتم اعادة النموذج الى وضع العرض العادي

كل ذلك يتم بسرعه بدون ان تشعر ان هذه العملية تمت لكل هذه الأوامر الداخلية .

zaSendBack_Front.rar

بارك الله فيك اختنا ومعلتنا زهرة وجزاك الله خير الجزاء

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

فدائماً تأتينا بدروس جديدة .. حفظك الله ورعاك .. ما شاء الله ولا قوة الا بالله

اخي ابو عدنان

حضرت زهرة وعندما تحضر يرتعش الاكسس خوفاً منها.

يعني كنا اثنين وزهرة جاءت وصفّرت العدّاد .

كل الشكر والتقدير لك اختنا الفاضلة وزهرة منتدانا الغالي

وفيك بارك الله اخي يوسف

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

يوسف احمد كتب:

اخي ابو عدنان

حضرت زهرة وعندما تحضر يرتعش الاكسس خوفاً منها.

يعني كنا اثنين وزهرة جاءت وصفّرت العدّاد .

:haha: :haha: :haha:

بصراحة اخت زهرة عمل رائع

ولكن لا اظنه سيعمل مع accde او mde لانه لا يوجد وضع تصميم في هذه الحالة هل يوجد حل

shawar كتب:

بصراحة اخت زهرة عمل رائع

ولكن لا اظنه سيعمل مع accde او mde لانه لا يوجد وضع تصميم في هذه الحالة هل يوجد حل

اخي الفاضل ماجد

يمكن الدخول على وضع التصميم لأي قاعدة بيانات بصيغة MDE

راجع هذا الرابط

/index.php?showtopic=145116

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

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

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

وكما فهمت من شرح الاخ "Moh Samer ali" ان لديه مربعات نص كثيرة ولا يود اظهارها جميعها دفعة واحدة ولذلك قام بتقسيمها الى قسمين.

moh samer ali كتب:

بارك الله بك اخي يوسف الغالي على سرعة تجاوبك معي '''

لا تفي بالغرض لاني اريد من هذا الكود اخفاء عددة تسميات ومربعات نصوص بالجملة :wink:

ومشكور مرة ثانية ونحن بالانتظار

فاذا كانت جميع هذه المربعات تنتمي الى سجل واحد فان ذلك يتطلب ان تجعل المربعات التي تحمل الخاصية مطلوب " اي التي لايمكن ابقائها فارغة" هذه المربعات يجب ابقائها في المقدمة. ليتم ملؤها قبل نقلها للخلف.

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

انا في هذه الحالة استخدم طريقة اخرى اذا سمحتم لي

وهي اخفاء المربعات كما اشار اخي الاستاذ يوسف احمد.

ولكن حتى اتجنب كتابة كود الاخفاء والاظهار مرات عديدة

me![textbox1].visible=true
me![textbox2].visible=false

فاني اتبع الطريقة التالية:

1- للمربعات التي تود ابقائها في المقدمة عين العلامة "Tag" الى "Frnt"

2- المربعات التي تود ابقائها بالخلف عين العلامة "Tag" الى "Bck"

3-استخدم الكود التالي لاخفاء جميع المربعات المعلمة واظهار الاخرى

Private sub command click()
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.Tag = "frnt" Then
ctrl.Visible = False
ctrl.tag="Bck"
ElseIf ctrl.Tag = "Bck" Then
ctrl.Visible = True
ctrl.tag="frnt"
End If
end sub

والسلام عليكم

ناصر المصاروة

بسم الله الرحمن الرحيم

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

صدقا انا لم اكن اتصور ان هذا الموضوع معقد لهذه الدرجة واعتقدت ان المضوع ممكن له كود والسلام

بس بصراحة الفكرة حلوة والكود جميل ويدل ما شاء الله على خوف هذا الكسس منك :D

ولكن حصل الذي كان خائف منه اخي شاور بارك الله به والكود لا يعمل مع mde وتظهر الرسالة التالية

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

DoCmd.SetWarnings True = False

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

--------------------------------------------------------------

بارك الله بك اخي يوسف واخي شاور على مشاركتك وتفاعلكم،،،

----------------------------------------------------------------

اخي الكريم ناصر المصاروة المحترم

بارك الله بك على هذه المشاركة وجزاك الله كل خير ,,,

Naser Al Masarwa كتب:

فاذا كانت جميع هذه المربعات تنتمي الى سجل واحد فان ذلك يتطلب ان تجعل المربعات التي تحمل الخاصية مطلوب " اي التي لايمكن ابقائها فارغة" هذه المربعات يجب ابقائها في المقدمة. ليتم ملؤها قبل نقلها للخلف.

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

فاني اتبع الطريقة التالية:

1- للمربعات التي تود ابقائها في المقدمة عين العلامة "Tag" الى "Frnt"

2- المربعات التي تود ابقائها بالخلف عين العلامة "Tag" الى "Bck"

3-استخدم الكود التالي لاخفاء جميع المربعات المعلمة واظهار الاخرى

اخي ناصر الفكرة ان شاء الله لها كثير من الحلول ونحن نطمع ونجتهد ونبحث دائما عن اجمل الحلول بوجودكم معنا ومشاركتكم لنا في افكارنا بارك الله بكم جميعا .

بالنسبة لحقل مطلوب او غير مطلوب لا يوجد هناك مشكلة فتمت التجربة على هذا الموضوع وكما ذكرته تماما وكانت النتيجة انه لا يحفظ السجل فقط وهذا كل ما في الامر بدون اي رسائل تنبيه وممكن حل ادخال البيانات على الحقول بالسؤال بالكود قبل تنفيذ امر ارسال الى الخلف وللعلم فقط ليس هناك ادخال سجلات جديدة في مثالي فقط كنت اريد التعديل ضمن النموذج ، فليس هناك مشكلة بمطلوب او غير مطلوب ،والمشكلة الحقيقية بكود الاخت ام عهود هو القاعدة mde فقط.

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

لكم جميعا تحياتي وتقديري واحترامي وجزاكم الله كل خير

اخوكم ابو عدنان

moh samer ali كتب:

اخي الكريم ناصر المصاروة المحترم

بارك الله بك على هذه المشاركة وجزاك الله كل خير ,,,

اخي ناصر الفكرة ان شاء الله لها كثير من الحلول ونحن نطمع ونجتهد ونبحث دائما عن اجمل الحلول بوجودكم معنا ومشاركتكم لنا في افكارنا بارك الله بكم جميعا .

بالنسبة لحقل مطلوب او غير مطلوب لا يوجد هناك مشكلة فتمت التجربة على هذا الموضوع وكما ذكرته تماما وكانت النتيجة انه لا يحفظ السجل فقط وهذا كل ما في الامر بدون اي رسائل تنبيه وممكن حل ادخال البيانات على الحقول بالسؤال بالكود قبل تنفيذ امر ارسال الى الخلف وللعلم فقط ليس هناك ادخال سجلات جديدة في مثالي فقط كنت اريد التعديل ضمن النموذج ، فليس هناك مشكلة بمطلوب او غير مطلوب ،والمشكلة الحقيقية بكود الاخت ام عهود هو القاعدة mde فقط.

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

لكم جميعا تحياتي وتقديري واحترامي وجزاكم الله كل خير

اخوكم ابو عدنان

اخي الكريم كل عام وانتم بخير وتقبل الله منا ومنكم صالح الاعمال

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

وعلى الاغلب فالنماذج تكون منتمية الى جداول وبالتالي فان هناك ادخال وتعديل بيانات.

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

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

db7.rar

ناصر المصاروة

السلام عليكم اخي ناصر

اخي العزيز بيقولوا الحلو ما بيخبي حالو وهذا الكلام حلو وعسل وما شاء الله الفكرة حلوة للاظهار والاخفاء بالنسبة للحقول.

بارك الله بك وشكرا على مجهودك الطيب والشكر موصول للاخت المعلمة ام عهود ولجميع الاخوان الذين شاركوا معنا والله يديم التواصل والمحبة بيننا جميعا .

وانتهز هذه الفرصة المباركة لاقول لجميع اخوتي المشرفين والعضاء انني احبكم جميعا بالله وكل عام وانتم بألف خير مع تمنياتي لكم بالتوفيق بمزيد من العطاء وتفبلوا احترامي وتقديري ,,

اخوكم ابو عدنان

اخي العزيز اشكرك على هذا الكلام الحلو والحلو ما يصدر الا عن الحلو ولكني والحمد لله صائم ولذا ساحتفظ به للفطور

لا تنسانا من دعوة صالحة

ناصر المصاروة

shawar كتب:

بصراحة اخت زهرة عمل رائع

ولكن لا اظنه سيعمل مع accde او mde لانه لا يوجد وضع تصميم في هذه الحالة هل يوجد حل

moh samer ali كتب:

ولكن حصل الذي كان خائف منه اخي شاور بارك الله به والكود لا يعمل مع mde وتظهر الرسالة التالية

اخي ماجد

اخي عدنان

كما اخبرتكم انه يمكن الوصول الى الكائنات في قواعد البيانات بصيغة MDE والتعديل في اي شيء نريد

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

ولكننا سوف نتحايل على القاعدة MDE بوضع ماكرو لأنها تقبل اساسا ان نقوم بإنشاء ماكرو جديد ومن ثم نقوم بإجراء بعض الأوامر وهي :

1. عند الضغط على زر الأمر نستدعي الماكرو الذي سنضع به الأوامر .

2. في الماكرو نضع هذه الأوامر متسلسلة تحت بعض

*. SendKeys

ونضع له "%{F11}"

وهذا يعني الضعط على المفتاحين ALT + F11 وهي خاصة بفتح محرر الفيجول بيسك VBE

ثم

*. RunCommand

ونضع له VisualBasicEditor

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

ثم

*. OpenForm

ونضع له اسم النموذج وهو FORM

وهذا يعني اننا نريد فتح النموذج المطلوب

ثم

*. SendKeys

ونضع له "%RM"

وهذا يعني اختيار المفاتيح ALT + أمر Run + امر Desin Mode في محرر الفيجول بيسك لكي يتم فتح النموذج في وضع التصميم

الان النموذج ظاهر أمامك في وضع التصميم

بإمكانك اختيار اي كائن من النموذج وارساله للخلف او الى الأمام ثم الضغط على المفتاحين Ctrl+S لحفظ ما قمت بعمله في النموذج

الآن اعرض النموذج في الوضع العادي وسترى النتيجة انه يمكن الدخول على التصميم في الـ MDE والتعديل والحفظ

وهذا مثال

وضعت لكم الماكرو في بدء التشغيل فبمجرد فتح القاعدة MDE سيتم فتح النموذج في وضع التصميم

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

هذه القاعدة بصيغة MDE

SendBF.rar

موضوع رائع يسجل كتحفه فنيه لقسم الاكسس

والاجمل بان الاخت زهره لا تستسلم ابدا - انا احب فيها صفة متابعة مواضيعها بقدر المستطاع

جاك من يكسر راسك يا اكسس

اسأل الله القدير بان يديم عليك السعادة في حياتك الخاصة بقدر ما يسعد اعضائك بانجاز مواضيعهم

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

ابو عبدالله

بسم الله الرحمن الرحيم

جاك من يكسر راسك يا اكسس،،،،، بارك الله بك اخي ابو عبدالله :D

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

جزاك الله كل خير وبارك الله بك وان شاء الله من الفائزين بالفردوس الأعلى ان شاء الله وكل عام وانت والجميع بألف خير.

اخوكم ابو عدنان