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

الردود الموصى بها

قام بنشر

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

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

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

 

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

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

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

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

 

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

  • Like 2
قام بنشر

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

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

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

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

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

 

توضيح.jpg

  • Like 1
قام بنشر

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

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

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

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

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

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

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

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

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

MultiInputBox.rar

  • Like 2
قام بنشر

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

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

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

  • Like 3
قام بنشر
13 ساعات مضت, أبو عبدالله الحلوانى said:

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

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

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

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

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

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

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

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

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

MultiInputBox.rar

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

  • Like 1
قام بنشر
4 ساعات مضت, ابوخليل said:

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

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

 

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

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

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

 

  • Like 1
قام بنشر

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

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

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

 

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

CustomInputBox.zip

  • Like 2
قام بنشر
12 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

أما عن

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

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

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

a = "محمد,123"

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

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

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

  • Like 1
قام بنشر
4 ساعات مضت, أبو عبدالله الحلوانى said:

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

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

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

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

CustomInputBox2.zip

  • Like 1
قام بنشر
4 ساعات مضت, أبو عبدالله الحلوانى said:

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

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

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

  • Like 1
قام بنشر
10 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

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

CustomInputBox2.zip

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

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

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

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

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

قام بنشر (معدل)
4 ساعات مضت, sandanet said:

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

لا بأس..

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

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

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

تم تعديل بواسطه أبو إبراهيم الغامدي
أخطاء إملايئة
قام بنشر
2 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

قام بنشر (معدل)
منذ ساعه, sandanet said:

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

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

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

2017-04-22_1421.png.c2f6e94143b9d2c85cfe582982bd02f6.png 2017-04-22_1420.png.ea2da21b2f73dfac828e1f531b9b0a4c.png

تم تعديل بواسطه أبو إبراهيم الغامدي
  • Like 2
قام بنشر

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

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

 

تحياتي 

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

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

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

  • Like 1
قام بنشر

 

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

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

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

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

قام بنشر (معدل)
6 ساعات مضت, عبد الفتاح كيرة said:

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

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

مثلا

inputbox  لإدخال الصف

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

 
 

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

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

تم تعديل بواسطه أبو عبدالله الحلوانى
قام بنشر
في 4/21/2017 at 16:33, أبو إبراهيم الغامدي said:

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

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

 

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information