الكتابة في تكست بوكس عند وضع مؤشر الكتابة عليه

[أنس دروبي]

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

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

ثانياً: أحب أن نعزي بفقدان اساس من اسس هذا الصرح العملاق الا وهو وفاة اخونا وحبيبنا عماد الحسامي نسأل الله أن يتغمده برحمته ويسكنه فسيح جناته ويصبر أهله على مصيبتهم 

 

اخواني الكرام لا نريد الاطالة الموضوع واضح على ماأظن من عنوانه 

وهو لدينا في الملف المرفق أكثر من تكست بوكس واحد ويوجد زر امر 

نريد عند وضع مؤشر الكتابة في احد من هذه التكست بوكس والضغط على الزر يقوم بوضع تاريخ اليوم في التكست بوكس الذي كان عليه مؤشر الكتابة 

بحثت كثيراً في المواقع ولكن كانت الحلول مختلفة في الشروط

وضعت كود ولكن يعطي الشرط خطأ

الكتابة في تكست بوكس عند وضع مؤشر الكتابة.rar

[mostapha20]

موضوع جميل بارك الله فيك أخي

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

[أنس دروبي]

السلام عليكم 

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

لوكان لدي الكود الصحيح لكنت وضعته لن ابخل عليكم 

نرجو عرض الاراء والافكار حول الموضوع 

تقبلو تحياتي ومروري 

تم تعديل سبتمبر 14, 2015 بواسطه أنس دروبي
زيادة

[ياسر خليل أبو البراء]

أخي الكريم أنس

هل المطلوب وضع التاريخ في مربع النص TextBox الذي به المؤشر فقط؟

لو انتقل المؤشر هل يتم مسح التاريخ من مربع النص الذي كان به المؤشر أم لا بعد الانتقال منه إلى مربع نص آخر؟

[محمد حسن المحمد]

السلام عليكم أخي الحبيب ياسر

أظن الأخ أنس قد أخذ من الليست بوكس1 بالنسخ ثم اللصق ونسي التعديل لأنه يكتب التاريخ به دون غيره..أنتم أدرى ..

تقبلوا تحياتي

[أنس دروبي]

أخي الكريم أنس

هل المطلوب وضع التاريخ في مربع النص TextBox الذي به المؤشر فقط؟

لو انتقل المؤشر هل يتم مسح التاريخ من مربع النص الذي كان به المؤشر أم لا بعد الانتقال منه إلى مربع نص آخر؟

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

نعم اخي المطلوب وضع التاريخ في مربع النص textbox الذي به المؤشر فقط

بالنسبة للانتقال الى مربع نص أخر لا أريد مسح التاريخ في مربع النص الذي كان فيه التاريخ

أريد فقط أن يقوم بنسخ التاريخ في مربع النص عند وضع المؤشر

تقبلو مروري وتحياتي 

[عبد العزيز البسكري]

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

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

                     خالص احتراماتي

 

أنس دروبي.rar

أنس دروبي.rar

تم تعديل سبتمبر 14, 2015 بواسطه عبد العزيز البسكري

[أنس دروبي]

السلام عليكم أخي وحبيبي عبد العزيز البسكري 

هذا هو المطلوب بكل بماتقوله الكلمة من معنى 

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

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

على مربع النص المطلوب 

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

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

تقبل مروري وتحياتي 

 

[KHMB]

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

بعد إذن اخي الفاضل عبدالعزيز

هذا حل آخر اول ماتضغط علي مربع النص (التكست) بالفارة (الماوس) تلقائيا يظهر التاريخ

 

 

وإذا تحب ان يكون اول ماتضغط انتر ENTER أي عند الخروج بالضغط علي مفتاح الإدخال انتر (اطلب)

KHMB.rar

تم تعديل سبتمبر 15, 2015 بواسطه KHMB

[أنس دروبي]

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

أخي الكريم KHMB بارك الله فيك على هذه الفكرة

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

على العموم بارك الله فيك وجزاكم الله كل خير

تم تعديل سبتمبر 15, 2015 بواسطه أنس دروبي

[محمد حسن المحمد]

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

 

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

                     خالص احتراماتي

 

 

أنس دروبي.rar

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

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

أتحفتنــــــــــــــــــــــــــــــــــــا

فضلاً عن تحقيق طلب الأخ أنس بحذافيره...

تقبل تحياتي العطرة...مع فائق الإعجاب.

والسلام عليكم أخي عبد العزيز.

[أنس دروبي]

السلام عليكم ورحمة الله أخي عبد العزيز البسكري

هل تسطيع لو تفضلت عليي وتكرمت أن نقوم بتبديل زر أمر (commandbutton) الى ليبيل (label)

لأنه قمت بالتبديل وعند الضغط على الليبيل يعطيني خطأ في التنفيذ وكأن التحكم والكنترول يكون فقط على زر الامر

نرجو ونأمل ان تنجح الطريقة التي ذكرتها وبارك الله فيكم 

تقبلو مروري وتحياتي

 

[KHMB]

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

يا اخي حاول توضح في كل طلب تريدة وحدد بالضبط أي زر امر ماعندك زر امر سوى 2 فقط في الفورم الزر الخاص بالتعديل وآخر بالخروج حدد أي زر امر 

تم تعديل سبتمبر 15, 2015 بواسطه KHMB

[أنس دروبي]

أخي الكريم KHMB

في بداية طلبي قمت بالتوضيح وهو أن عند الضغط على زر (commandbutton) 

يعطي النتيجة وهي التاريخ 

وليس عند وضع المؤشر في التكست بوكس مباشرة يقوم بوضع التاريخ 

نريد عند وضع مؤشر الكتابة في احد من هذه التكست بوكس والضغط على الزر يقوم بوضع تاريخ اليوم في التكست بوكس الذي كان عليه مؤشر الكتابة 

بارك الله فيك اخي وحبيبي على المرور الذي قدمته

وأسف إذا لم اوضح الفكرة من البداية 

تقبل تحياتي ومروري  

[KHMB]

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

عفوا اخي انس لست انت المقصود بتوجيه التوضيح

[عبد العزيز البسكري]

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

أشكر أخي و أستاذي الفاضل KHMB على الإضافة المميّزة .. و قد أعجبتني كثيرًا و لو كان الموضوع يخصّني وكان المنتدى كسابق عهده كنت أختار إجابتك كأفضل إجابة ..بارك الله فيك و زادك من علمه و فضله .. و لا يمكنني أن أنسى أنّك من الأساتذة الأوائل الذين ساعدوني و شوّقوني لعالم الاكسل و حبّبوني فيه ..

ألف شكر ..خالص تحياتي

 

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

أخي الغالي أنس دروبي بإذن الله سأرفع لك الملف هذا المساء .. هذا بالنسبة للميساج بوكس .. أمّا الليبل التي يمكن أن تحل محل زر الأمر صدّقني لم أصادف هذا أبدًا ولكن قد نبحث .. ليس هناك مستحيل .. تقبّل خالص احتراماتي

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

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

                                                                                    فائق احتراماتي

تم تعديل سبتمبر 15, 2015 بواسطه عبد العزيز البسكري

[عبد العزيز البسكري]

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

في الواقع قمت بكتابة كل رد وحده ..

الرد 1 للأستاذ الغالي KHMB

الرد 2 للأستاذ الغالي أنس دروبي

الرد 3 للأستاذ الغالي ..حبيب الكل محمد حسن المحمد

لكن لا أعرف لماذا تشابكت ردودي كلها في رد واحد .. أصبح يتعبني المنتدى أكثر مما يريحني .. هذه المشكلة ظهرت عندي اليوم فقط زائد مشكلة باقي الصفحات من 2 فصاعدًا التي لا يمكنني رؤيتها فاضطررت لتسطيب متصفح آخر .. فقط عشان خاطر تصفح المنتدى

[KHMB]

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

اخي عبدالعزيز شكرا جزيلا إطرائك لي

بالنسبة لما ذكرت عن ردودك الثلاثة فهنا كلما وضعت رد سيضاف لردك الأول حتى :

1- يتم إضافة رد من عضو آخر

2- او تنقضي فتره إنتظار التعديل علي ردك الأول اظن انها 15 دقيقة

 

[محمد حسن المحمد]

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

شيء غريب حقاً، ذكرني أخي عبد العزيز بالرد 3 بالمشاركة17 قمت أنظر إلى الرد فلم أجد إلا ردين اثنين

الرد 1 للأستاذ الغالي KHMB

الرد 2 للأستاذ الغالي أنس دروبي

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

ثم ذهبت صعوداً فوجئت

الرد 3 للأستاذ الغالي ..حبيب الكل محمد حسن المحمد

 

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

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

                                                                                    فائق احتراماتي

أين كان حتى وردت المشاركة17 قبل هذا الرد...

عجيب....حقاً عجيب هذا الإنترنت 

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

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

 

 

[أنس دروبي]

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

أخي الحبيب محمد الحسن محمد

نعم كما تفضلت أنا قد استغربت في قصة المشاركات وخاصة مشاركة أخونا الحبيب KHMB بخصوص التوضيح 

كما تفضلتم جميعاً نسخة الموقع بعد التحديث توجد فيها بعض الأمور تحتاج الى تعديل من وجهة نظري لا أجبر أحداً.....

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

هل تم تنفيذ المطلب الثاني وهو ظهور رسالة التوضيح عند عدم وضع المؤشر

والمطلب الثاني لو كانت الطريقة على الليبيل وليست على زر الامر لكي تكون فيها جمالية أكثر

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

تقبلو مروري وتحياتي

[عبد العزيز البسكري]

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

تفضّل أخي الغالي أنس دروبي كما وعدتك المرفق الخاص برسالة التّوضيح .. أما مطلب زر الأمر فتاهت و لقيناها

لاحظ الصورة غيّر فقط اسم ورقم الليبل أو التاكست بوكس

                                                                              فائق احتراماتي

 

أنس دروبي.rar

تم تعديل سبتمبر 15, 2015 بواسطه عبد العزيز البسكري

[فايز ياسين]

السلام عليكم

اخي الحبيب عبد العزيز

كما قال استاذنا محمد حسن المحمد

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

أتحفتنــــــــــــــــــــــــــــــــــــا

فضلاً عن تحقيق طلب الأخ أنس بحذافيره...

تقبل تحياتي العطرة...مع فائق الإعجاب.

والسلام عليكم أخي عبد العزيز.

لا اجد كلمات معبرة باكثر من ذلك

 

[عبد العزيز البسكري]

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

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

[أنس دروبي]

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

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

بالنسبة لطلب الحالة الشرطية وهي الرسالة صحيحة مئة بالمئة وناجحة

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

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

نعتذر عن التأخير في الرد نظراً لظروف الانترنت عندي

أنس دروبي.rar

[جعفر الطريبق]

الكود بالليبل و بحدث ال TextBox Exit لن يحقق المطلوب لأن حدث ال Exit لا يقع عند دخول اللييبل

الكود التالي أسهل و أقصر و يشتغل بغض النظر عن عدد ال textboxes

Private Sub Label1_Click()
    If TypeName(ActiveControl) = "TextBox" Then
        If Len(ActiveControl) = 0 Then
            ActiveControl = Date
        Else
            MsgBox "Date already entered in TextBox : '" & ActiveControl.Name & "'"
        End If
    Else
        MsgBox "You need to select a TextBox first"
    End If
End Sub