كيف اجعل النماذج بقائمة منسدلة وكذلك الاستعلامات

هذه طريقة واذا وجدت طريقة اخرى فليتفضل الاخوان بوضعها

http://mypage.ayna.com/fahadamk/77777.zip

طريقة أخرى

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

 Private Sub RunFrm(ByVal p_mode As String)
Debug.Print Me![zz].Value
Select Case p_mode
Case "preview"
    DoCmd.OpenForm Me![zz].Value, acNormal
End Select
End Sub

ثم تستدعي الإجراء كالتالي:

 RunFrm "preview"

تضع أمر الإستدعاء على مربع التحرير والسرد في حدث "عند التغيير "أو على زر أمر

لاحظ أن اسم مربع التحرير والسرد هنا ZZ استبدله باسم مربع التحرير الموجود لديك 0

بعد الإنتها إذا أتبعت نفس عندها كلما أخترت من مربع التحرير سوف يفتح النموذج الذي أخترته أو التقرير مباشرة ولم أجرب الجداول ولإستعلامات 0

ملاحظة هامة يجب أن تتطابق التسميات النماذج في مربع التحرير لأسماء الجداول والتقارير0

السلام عليكم

الاخ / مصلح

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

الأخ / fahadam

هل قمت بادخال اسماء التقارير و الاستعلامات يدويا فى مثالك ؟

خالص شكرى و تقديرى للجميع

اخــــــــBengaـــــوكم (f)

أنظر الرابط التالي ففيه تجد إستعلام يعرض كلما هو موجود في قاعدة البيانات دون تدخل منك فعندما تضيف جدول أو نموذج يعرض في القائمة المنسدلة تلقائي0

http://arabteam.nicmatic.com/vb/showthread...p?threadid=9297

أخي الفاضل

لا عليك خلك معي خطوة خطوة ولو تطبع هذه الإجابة على الطابعه ثم تطبقها بدءا من أول شيء 0

1_ افتح النموذج الذي عليه مربع التحرير والسرد الذي يحتوي على النماذج و00000 في وضع التصميم0

2_ اذهب لمربع موجود في زاوية النموذج العلوية اليسرى 0

3_ أنقر بزر الفأرة الأيمن وأختر من القائمة السريعة " خصائص "

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

5_ إذهب إلى أعلى شيء في تلك الصفحة تجد عبارة Option Compare Database

وتحتها خط0

6_ تحت الخط مباشرة قم بإلصاق الكود بعد نسخه واستبد حرفي ZZ باسم مربع التحرير الديك0

7_ عد لوضع تصميم النموذج وأنقر على مربع التحرير والسرد وأختر خصائص ثم حدث ثم " عند التغيير " وبين السطرين أي مكان ظهور المؤشر مباشرة أكتب "RunFrm "preview"

8_ أغلق الموحدة النمطيه ثم النموذج وأحفظ التغيرات0

9_ أفتح النموذج وجرب الطريقة وأخبرني إذا لم تعمل بالشكل الصحيح فسوف أقوم بعمل لك مثال ووضع له رابط ولكن أرجو أن تحاول أكثر من مرة ليس متعبني عمل مثال لأن الموضوع بسيط ولكن أريد أن تشارك لأن الفكرة سترصخ في ذاكرتك إذا قمت بعملها خطوة بخطة0

أرجو لك التوفيق

لقد جربت الكود وتبعت الخطوات خطوة خطوة ونجحت نجاحاً باهراً

ولكن أنت نسيت أن تخبرني في أي حث أضع الكود في خصائص النموذج ، وعموما وضعته في حث ( في الحالي ) ونجحت وبدأت أعرض النماذج

زلكنه رفض أن يعرض التقارير فكيف أجعل مربع التحرير والسرد بعرض التقارير . ولك جزيل الشكر والتقرير أولاً ووسطاً وآخراً.

الأخ/المفتاح

إليك المثال التالي

http://mypage.ayna.com/mrsalnet/test.zip

جربه وأخبرني هل هذا ما تريد أم لا علماً بأنني جربت الكود السابق ووجدته لا يعمل إلى مع النماذج وربما قد يعمل لو تم التعديل عليه غير أنني أكتفيت بالموجود بالمثال وأي إستفسار حاضرين0

أخي مصلح :

مشكور على المثال الجميل .

وحقيقة أجد فكرة إدخال أسماء وأنواع الكائنات في جدول أفضل من جعلها تظهر في استعلام ، لأنه في الغالب لا يرغب المصمم أن تظهر كل الكائنات للمستخدم .

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

لدي سؤال لو تكرمت .

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

وشاكرين لكم سلفاً حسن تعاونكم . وشكراً

الأخ المفتاح حاضر ما دام ذلك يفيدك

أتبع الأتي:

__________

الطريقة الأولى:

__________

أعرض النموذج في وضع التصميم ثم إذهب للوحدة النمطية

استبدل السطر:

 DoCmd.OpenReport Me![cbo1].Value, acViewPreview

الواقع بعد :

 ElseIf cbo1.Column(1) = 2 Then

بالسطر التالي:

 DoCmd.OpenReport Me![cbo1].Value, acViewNormal, "", "", acNormal

أنقر على مربع التحرير بزر الفأرة الأيمن ثم خصائص ثم خاصية " عند التغيير تجد في الوحدة النمطية مكتوب كلمة Call strt امسحها ثم ضع زر أمر على النموذج وفي حدث عند النقر في الوحدة النمطيه ضع الأمر Call strt

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

__________

الطريقة الثانية:

__________

أما إذا أردة مشاهدة التقرير ثم طباعته فلا تغير أي شيء ما عليك سوى أن تضع زر أمر على النموذج وأجعل عنوانه " طباعة تقرير " ومن خصائصه خاصية عند النقر أكتب الكود التالي:

    If cbo1.Column(1) = 2 Then
        DoCmd.OpenReport Me![cbo1].Value, acViewNormal, "", "", acNormal
        End If

أخبرنا عما يتم معك

شكراً على هذا الجهد الرائع

للأسف لم تنجح الفكرة وهذا من قصور فهمي ، لقد حاولت فلم أستطع حتى أنني جربت في المثال الذي أعطيتني مسبقاً وكل ماجربت يؤشر الخطأ في الوحدة النمطية على نفس السطر المستبدل وعلى الكلمة ( .OpenReport ) هذا في المثال الاول

أما في المثال الثاني كذلك يؤشر الخطأ على الكمة ( .OpenReport )

معلمي الفاضل :

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

وأكرر شكري ثم أكرر شكري وتقديري

الأخ/مفتاح

أشكرك جزيل الشكر على الإطراء وهذا من لطفك وأرجو أن نتحاور بطريقة مباشرة دون ألقاب ( استاذي معلمي _تلميذيك) فالمسألة كلها تعاون وتبادل خبرات ولم أرقى لدرجة استاذ وإنما أنا متعلم مثلك وأنا واثق بأن لديك معلومات في الأكسيس قد لا أعرفها أنا فأرجو أن لا تزعل مني0

بالنسبة للرسالة التي تظهر لديك لا اعرف سببها فالمثال على جهازي يعمل بالشكل الصحيح 0

عموماً سوف أحاول في وضع رابط لمثال بما تريد ولكن مشكلتي في موقع أين لا يقبل تحميل أي ملف وكذلك مسح أي ملف تم تحميله مسبقاً لا أعرف ما المشكلة وربما أنهم ألغو إشتراكي لديهم لا أعرف بالتحديد ولكن تابع هذا الموضوع وسوف أضع المثال حين ما استطيع التحميل على موقع أين0

لك فائق إحترامي

ضع أميلك هنا وسوف أرسل لك المثال

ولك ماتريد وفي المثل ( رب أخٍ لك لم تلده أمك )

وأشكرك على هذا التجاوب .

الأميل : zzzsaaa@hotmail.com

إذا مافي ثقلة ممكن ترسل لي نسخة جزاكم الله خيرا

وعنواني مدون أسفل

الأخوة/ المفتاح و محسن محمد

لقد أرسلت لكما المثال على بريديكما أرجو الإفادة هل وصلكما أم لاء

شكراً هذا التواصل

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

وأكرر شكري

الموقع هو :

http://freemail.databynet.com/

يا أخ المفتاح فتح الله عليك

أرسلت لك المثال على بريدك مباشرة ولا علاقة له بأين

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

الأخ/محسن

العفو لا شكر بين الأخوة

شباب ماهو الكود الخاص في اظهار جميع النماذج حيث ان الموجود غير موضح والامثله لاتنفتح الان

وشكرا

شباب لقد ظللت باحثا عن الطريقة حتى وجدتها فان اردتموها استطيع شرحها

وشكرا

السلام عليكم

الأخ / بوب عابد

بالطبع نحب ان نعرف الجديد ..

فما هى الطريقة ؟ ما شرحها ؟ ;)

شكرا لك مقدما

تقبل تحيات

أخـــــــــBengaــــوك (f)

المعذرة لتاخير الرد عموما هي سهله مره وهي:

اذهب الي الادوات في القائمة ثم الى خيارات

ومنها اختر عرض ستجد اول مربع عرض اختر system object

سوف تظهر لك جداول النظام اذهب واعمل استعلام بذلك واختر جدول

MSysObjects

واحتر Type

-32768

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

فقط