هل يمكن استدعاء input box متعدد الادخال

[أبو عبدالله الحلوانى]

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

هل من طريقة لانشاء input box   متعدد الادخال - لحاجتى لاستدعائه من داخل كود

بدون الاضرار لانشاء فورم ومكابدة معانة الربط بينه وبن الفورم الرئيس  وتكرار فتحه واغلاقه بكل مرة  

 

[محمد سلامة]

18 دقائق مضت, أبو عبدالله الحلوانى said:

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

هل من طريقة لانشاء input box   متعدد الادخال - لحاجتى لاستدعائه من داخل كود

بدون الاضرار لانشاء فورم ومكابدة معانة الربط بينه وبن الفورم الرئيس  وتكرار فتحه واغلاقه بكل مرة  

 

ممكن توضح اكثر استاذ عبدالله 

[أبو عبدالله الحلوانى]

أولا  - جزاك الله خيرا أستاذ محمد على الاهتمام

ثانيا - كما تعلم حضرتك أن ال inputbox  وسيلة لطلب ادخال بيان من المستخدم  والكائن الموجود ب vba  والذى يتم استدعائة ب 

InputBox("Prombt","Title","Default",Xpos,ypos)

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

ولعل الصورة تقرب المقصود

 

[يوسف أحمد]

السلام عليكم اخواني الاعزاء

 

هذا مثال قمت بعمله يفي بالغرض ان شاء الله

 

بالتوفيق للجميع

Input Box.rar

[أبو عبدالله الحلوانى]

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

أولا-  أتقدم بالشكر لكل من شارك بالموضوع أو حتى مر به وجزاكم الله خيرا

وأخص بالشكر ذلك الجندى الخفى الذى منحنى مفتاح الحل برسالة على الخاص أ/ محمد عصام @ابا جودى 

وقد أرسل الى هذا الرابط وقال لعله يفيدك

http://www.databasejournal.com/features/msaccess/article.php/3848121/Extending-the-InputBox-function-for-MS-Access-Forms.htm

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

وان كنت وددت لو كان هنالك حلا  أكثر احترافية باستخدام api لمزيد من الفائدة 

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

وقد اسعدنى جدا مرور أستاذنا  @يوسف أحمد

MultiInputBox.rar

[ابوخليل]

شكرا لكم  احبابي  عمل جميل ورائع واكواد نادرة

ولكن ايضا العمل ضمن نموذج كما تفضل به ايضا استاذنا ابو احمد

أما لو تم عمل دالة خاصة مثل : inputbox  تشتمل على قيمتين ، فهو بيت القصيد

[ابو جودي]

13 ساعات مضت, أبو عبدالله الحلوانى said:

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

أولا-  أتقدم بالشكر لكل من شارك بالموضوع أو حتى مر به وجزاكم الله خيرا

وأخص بالشكر ذلك الجندى الخفى الذى منحنى مفتاح الحل برسالة على الخاص أ/ محمد عصام @ابا جودى 

وقد أرسل الى هذا الرابط وقال لعله يفيدك

http://www.databasejournal.com/features/msaccess/article.php/3848121/Extending-the-InputBox-function-for-MS-Access-Forms.htm

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

وان كنت وددت لو كان هنالك حلا  أكثر احترافية باستخدام api لمزيد من الفائدة 

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

وقد اسعدنى جدا مرور أستاذنا  @يوسف أحمد

MultiInputBox.rar

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

[أبو عبدالله الحلوانى]

4 ساعات مضت, ابوخليل said:

أما لو تم عمل دالة خاصة مثل : inputbox  تشتمل على قيمتين ، فهو بيت القصيد

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

 

منذ ساعه, ابا جودى said:

فالشكر لله سبحانه وتعالى له الفضل كله وجزاكم الله خيرا

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

 

[أبو إبراهيم الغامدي]

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

هذه صيغة الوظيفة

Sub CustomInputBoxExample()
    Dim A
    A = UInputBox("الهوية", "الاسم", "اكتب البيانات المطلوبة", "تجربة")
    Debug.Print A
End Sub

 

وهذه هي التجربة

CustomInputBox.zip

[أبو عبدالله الحلوانى]

12 ساعات مضت, أبو إبراهيم الغامدي said:

وهذه هي التجربة

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

أما عن

12 ساعات مضت, أبو إبراهيم الغامدي said:

في نظري تظل القيمة الراجعة من الإدخال إشكالا

كانت معاملتى مع القيمة الراجعة باستخدام دالة Split بمعلومية الفاصلة بين القيمتين الراجعتين لنفترض أننا وضعنا القيمة الراجعة بمتغير a وكانت النتيجة الراجعة هي كما يلى :

a = "محمد,123"

فستكون القيمة الراجعة الأولى هي كما يلى:

Split(a,",")(0)
 والقيمة الراجعة الثانية هى:
Split(a,",")(1)

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

[أبو إبراهيم الغامدي]

4 ساعات مضت, أبو عبدالله الحلوانى said:

كانت معاملتى مع القيمة الراجعة باستخدام دالة Split بمعلومية الفاصلة بين القيمتين الراجعتين لنفترض أننا وضعنا القيمة الراجعة بمتغير a وكانت النتيجة الراجعة هي كما يلى :

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

هناك طريقة أخرى مكلفة بعض الشيء لكنها مرتبة ودقيقة تستخدم في وظائف برمجة واجهة تطبيق وندوز (API)

الطريقة مطبقة في هذا المثال

CustomInputBox2.zip

[أبو إبراهيم الغامدي]

4 ساعات مضت, أبو عبدالله الحلوانى said:

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

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

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

[sandanet]

10 ساعات مضت, أبو إبراهيم الغامدي said:

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

هناك طريقة أخرى مكلفة بعض الشيء لكنها مرتبة ودقيقة تستخدم في وظائف برمجة واجهة تطبيق وندوز (API)

الطريقة مطبقة في هذا المثال

CustomInputBox2.zip

لماذا تم اخفاء النموذج كملف نظام؟

[ابو جودي]

27 دقائق مضت, sandanet said:

لماذا تم اخفاء النموذج كملف نظام؟

لانه بدء اسم النموذج بــ  USys

[محمد سلامة]

11 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

ونحن بانتظارك 

[sandanet]

2 ساعات مضت, ابا جودى said:

لانه بدء اسم النموذج بــ  USys

نعم استاذي اباجودى سؤالي كان لماذا وليس كيف   

[أبو إبراهيم الغامدي]

4 ساعات مضت, sandanet said:

نعم استاذي اباجودى سؤالي كان لماذا وليس كيف

لا بأس..

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

أما لماذا ؟ فلأن هذا النموذج مصمم للاستخدام (كتابع).. ولا يمكن استخدامه مباشرة.

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

تم تعديل أبريل 22, 2017 بواسطه أبو إبراهيم الغامدي
أخطاء إملايئة

[sandanet]

2 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

[أبو إبراهيم الغامدي]

منذ ساعه, sandanet said:

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

لأنه تابع للوظيفة UInpuBox .. بمعني أن هذه الوظيفة هي المسئولة عن إقلاع النموذج، وهي التي تزوده بالمعطيات (عناوين الحقول النصية، رسالة الحث، عنوان النموذج) .. النموذج بدون الوظيفة خالي من هذه المعطيات!

وسبب إنشاء هذه الوظيفة هو لإعادة كتابة المعطيات بما يتلائم مع البيانات الراجعة من الوظيفة.. وهذه صور النموذج باستخدام الوظيفة وبدونها

 

تم تعديل أبريل 22, 2017 بواسطه أبو إبراهيم الغامدي

[sandanet]

@أبو إبراهيم الغامدي

عفواً منك استاذ ابو ابراهيم لكني لا اجد سبب عدم استخدام النموذج كواجهة رئيسية مباشرة .. بل بالعكس في الموضوع التالي https://www.officena.net/ib/topic/29928-الحماية-برقم-القرص-الصلب-والمعالج-واللوحة-الأم/?do=findComment&comment=492677 قمت بطرح فكرة استخدام هذا النموذج كواجهة لاجبار المستخدم على تحديد اسمه والذي سيكون معيار لدالة ال Dlookup للنظر برقم تسجيل نسخة البرنامج الخاصة بهذا المستخدم من جدول داخل قاعدة البيانات موجودة على سيرفر

 

تحياتي 

[عبد الفتاح كيرة]

هل لكم فيما هو أبسط من ذلك

نكرر أمر ال inputbox حسب الحاجة

مثلا

inputbox  لإدخال الصف

inputbox لإدخال الفصل

[أبو إبراهيم الغامدي]

4 ساعات مضت, أبو إبراهيم الغامدي said:

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

تفسير هذا النص يعني أنك لا يمكن استخدام DoCmd.Openform  مباشرة لفتح النموذج ولاكن من داخل الوظيفة.. أما استخدامه كواجهة رئيسية فهذا راجع لك!

[sandanet]

 

منذ ساعه, أبو إبراهيم الغامدي said:

تفسير هذا النص يعني أنك لا يمكن استخدام DoCmd.Openform  مباشرة لفتح النموذج ولاكن من داخل الوظيفة.. أما استخدامه كواجهة رئيسية فهذا راجع لك!

نعم الآن فهمتها بعد التجريب .. يفتح لدي النموذج به مربعات النص لكن طبعاً بدون تسميات

اشكرك جزيل الشكر على هذا التوضيح 

[أبو عبدالله الحلوانى]

6 ساعات مضت, عبد الفتاح كيرة said:

هل لكم فيما هو أبسط من ذلك

نكرر أمر ال inputbox حسب الحاجة

مثلا

inputbox  لإدخال الصف

inputbox لإدخال الفصل

 

 

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

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

تم تعديل أبريل 22, 2017 بواسطه أبو عبدالله الحلوانى

[أبو عبدالله الحلوانى]

في 4/21/2017 at 16:33, أبو إبراهيم الغامدي said:

هناك طريقة أخرى مكلفة بعض الشيء لكنها مرتبة ودقيقة تستخدم في وظائف برمجة واجهة تطبيق وندوز (API)

الطريقة مطبقة في هذا المثال

 

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

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

- سؤال طماع - حبتين - يعنى ما الفائدة من استخدام تعريف Type للمتغرات.

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