سمير نجار قام بنشر سبتمبر 18, 2016 مشاركة قام بنشر سبتمبر 18, 2016 السلام عليكم ورحمة الله وبركاته السادة الكرام مراقبين ومشرفين واعضاء لدي فورم ادخال بيانات تتألف من (رقم - الاسم - العمل) وعند الوصول لخانة الاسم يظهر فورم جديد لتبحث عن الاسم(أي إن الاسم لا يتم كتابته في التكست بوكس بل يتم البحث عنه من خلال فورم بحث عن الاسم ) والمشكلة تكمن في فورم البحث هذا . فعند ظهور عدة اسماء في قائمة ليست بوكس أريد أن اختار الاسم عن طريق ازرار الكيبورد السفلي والعلوي ثم انتر لينزل الاسم في حقله الخاص للعلم : هذه الطريقة مألوفة جداً في برامج المحاسبة المبرمجة بالدلفي او فيجوال بيسك او غيرهما وأرجو الله التوفيق في نجاح هذه العمل في الاكسل لكم تحياتي رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر سبتمبر 18, 2016 مشاركة قام بنشر سبتمبر 18, 2016 وعليكم السلام أستاذ سمير رجاء ارفاق ملف وبه فورم الادخال وفورم البحث مع بعض البيانات لتتضح الصورة أكثر ونحاول ايجاد طريقة تحياتى رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 19, 2016 الكاتب مشاركة قام بنشر سبتمبر 19, 2016 استاذي الكريم مختار بارك الله فيك عند اضافة الموضوع . ظهر لدي أن الموضوع تمت اضافته مرتين وكنت قت تأكدت من وجود الملف المرفق ... واليوم تفاجأت . ربما هذه اللخبطة بسبب سوء النت ان شاء الله سأرفق الملف مساء رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر سبتمبر 19, 2016 مشاركة قام بنشر سبتمبر 19, 2016 علي الاخوة اللذين يقومون بحذف الموضوعات المزدوجة التأكد من محتوي كل منهما لتحديد ايهما الذي سيتم حذفه بدلا من حذف الموضوع الذي يحتوي علي مرفق العضو الاخ سمير نجار شاهد المرفق ربما يكون هو المطلوب حسب مرفقك من الموضوع الذي تم حذفه بالخطأ Omar_1.rar 1 رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 19, 2016 الكاتب مشاركة قام بنشر سبتمبر 19, 2016 استاذي الكريم ابوتامر بارك الله فيك...ورحم الله اياماً خلت سيدي الكريم : المطلوب هو أن ابحث عن اسم فاذا ظهر الاسم المراد في قائمة الليست بوكس (وحيدا منفردا) فأضغط انتر فيتم ادراج الاسم . أما اذا ظهر عدة اسماء مطابقة للبحث فإنه لابد من اختيار المطلوب (وليكن ترتيبه الثالث في الليست بوكس )والاختيار والانتقال يكون بالكيبورد وليس بالماوس وعند تحديده نضغط انتر فيتم ادراجه (لا أريد استخدام الماوس في الفورم) أرجو أني قد وفقت بالتوضيح ولك كل الشكر رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 21, 2016 الكاتب مشاركة قام بنشر سبتمبر 21, 2016 السلام عليكم ورحمة الله وبركاته نداء اخير للسادة الكرام : ابوتامر - ابوالبراء - سليم حاصبيا - ياسر العربي والى جميع الاخوة دون استثاء ( مع الاحتفاظ بالالقاب ) اكثر من شهرين بانتظار حل هذا الموضوع والذي اعتبره مهماً جداً (اذا تم حله) لكثير من اليوزرفورمات التي تعنى بالادخال والبحث أريد فقط أن أعرف هل هناك حل ام لا ؟ اذا كان الجواب نعم فأنا منتظر ولو لسنة و إلا فسأنهي الموضوع ولاأثيره حتى لا أزعجكم جزاكم الله كل خير والمعذرة منكم جميعاً رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر سبتمبر 21, 2016 مشاركة قام بنشر سبتمبر 21, 2016 (معدل) الاخ سمير نجار شاهد المرفق Omar_2.rar تم تعديل سبتمبر 21, 2016 بواسطه عمر الحسيني *** أبو تامر رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 21, 2016 الكاتب مشاركة قام بنشر سبتمبر 21, 2016 استاذي الكبير ابوتامر لمساتك على العمل تضفي عليه رونقاً وجمالاً إن شاء الله قطعنا شوطاً كبيراً 90% نحو الهدف واعذرني على دقة الطلب في فورم البحث سواء بحثت أم لم تبحث اذا ضغط انتر ثم انتر تظهر رسالة خطأ ( لأنه حسب اكوادك لا بد من الضغط على سهم سفلي ثم تحديد الاسم ثم انتر) فهل يمكن وضع شرط اذا كان يوجد اسم واحد فقط في الليست بوكس يتم تنزيل الاسم بالضغط على انتر واما اذا وُجد اكثر من اسم في الليست بوكس وعند الضغط على انتر يتم تحديد الاسم في الليست وبالتالي يتم الاختيار ثم انتر فيتم التنزيل بارك الله فيك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر سبتمبر 22, 2016 مشاركة قام بنشر سبتمبر 22, 2016 الاخ سمير نجار شاهد المرفق Omar_3.rar تم تنفيذ اذا كان يوجد اسم واحد فقط في الليست بوكس يتم تنزيل الاسم بالضغط على انتر 12 hours ago, سمير نجار said: واما اذا وُجد اكثر من اسم في الليست بوكس وعند الضغط على انتر يتم تحديد الاسم في الليست وبالتالي يتم الاختيار ثم انتر فيتم التنزيل لا يمكن لمفتاح انتر ان يقوم بوظيفتين معا 1- عند الضغط على انتر يتم تحديد الاسم 2 - ثم انتر فيتم التنزيل اذا وُجد اكثر من اسم في الليست بوكس يتم التحرك بمفاتيح الاسهم ثم انتر فيتم التنزيل رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 22, 2016 الكاتب مشاركة قام بنشر سبتمبر 22, 2016 (معدل) استاذي الكبير ابو تامر جزاك الله كل خير هناك امر لاحظته ( في برنامج المحاسبة لدي ) وهو أنه عند البحث أو حتى ضغطت انتر يبقى مؤشر الكتابة في التكست بوكس وفي نفس الوقت الاسم محدد في ليست بوكس ( اي مؤشر الكتابة غير مرتبط بالانتر او بتحديد الاسم) وبالتالي لو تم دمج مشاركتك السابقة مع التي قبلها (omar2+omar3) أظن أن المشكلة ستنحل لاحظ مؤشر الكتابة و الاسم المحدد في آن واحد في برنامج المحاسبة تم تعديل سبتمبر 22, 2016 بواسطه سمير نجار رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر سبتمبر 22, 2016 مشاركة قام بنشر سبتمبر 22, 2016 شاهد المرفق Omar_4.rar رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 23, 2016 الكاتب مشاركة قام بنشر سبتمبر 23, 2016 كل الشكر لك استاذي وانا مازلت طامعاً في كرمك عندما لا توجد نتيجة للبحث وتضغط انتر سوف تظهر لك رسالة خطأ في الكود حاولت جاهداً أن اضع رسالة تفيد بأن كلمة البحث غير موجودة فلم أفلح؟ وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر سبتمبر 23, 2016 مشاركة قام بنشر سبتمبر 23, 2016 (معدل) في 22/9/2016 at 12:34, سمير نجار said: استاذي الكبير ابو تامر جزاك الله كل خير هناك امر لاحظته ( في برنامج المحاسبة لدي ) وهو أنه عند البحث أو حتى ضغطت انتر يبقى مؤشر الكتابة في التكست بوكس وفي نفس الوقت الاسم محدد في ليست بوكس ( اي مؤشر الكتابة غير مرتبط بالانتر او بتحديد الاسم) وبالتالي لو تم دمج مشاركتك السابقة مع التي قبلها (omar2+omar3) أظن أن المشكلة ستنحل لاحظ مؤشر الكتابة و الاسم المحدد في آن واحد في برنامج المحاسبة اخي سمير نجار على حسب فهمي في الموضوع جرب هدا لكود جاتوه في احد المواقع اجنبيه TextBox1.SelStart = 0 TextBox1.SelLength = Len(TextBox1.Text) TextBox1.SetFocus تم تعديل سبتمبر 23, 2016 بواسطه محمد عبدالسلام رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 23, 2016 الكاتب مشاركة قام بنشر سبتمبر 23, 2016 شكراً لك اخي محمد لا حظت ان هذا الكود يعمل على جعل كلمة البحث تنحصر بحرف او حرفين او .... على حسب ما تريد بارك الله فيك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر سبتمبر 23, 2016 مشاركة قام بنشر سبتمبر 23, 2016 سوف اري ذلك رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر سبتمبر 24, 2016 مشاركة قام بنشر سبتمبر 24, 2016 الاخ سمير نجار هذا اقصي ما يمكن عمله شاهد المرفق Omar_5.rar رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 24, 2016 الكاتب مشاركة قام بنشر سبتمبر 24, 2016 استاذي الكريم قمت بالتعديل الاتي حذفت السطر من هذا الكود Private Sub TextBox1_AfterUpdate() ' ListBox1.SetFocus ''' إلفاء ListBox1.ListIndex = 0 End Sub طبعاً بالغاء هذا السطر رجعنا الى مشكلة خطأ في الكود عند الضغط دبل انتر في تكست بوكس واضفت " رسالة التنبيه " الى الكود التالي Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ListBox1.ListCount = 0 Then MsgBox " كلمة البحث غير موجودة ", vbMsgBoxRight, " تنبيه " Unload Me Find_Name.Show Else ' Select Case KeyAscii Case 13 sam.TextBox6 = ListBox1 sam.TextBox5.SetFocus Unload Me End Select End If End Sub فأرجو أن يكون هناك حل افضل رابط هذا التعليق شارك More sharing options...
محمد عبدالسلام قام بنشر سبتمبر 24, 2016 مشاركة قام بنشر سبتمبر 24, 2016 اخي الفاضل سمير نجار وبعد اذن استاذنا القدير عمر الحسيني شاهد المرفق Omar_5.zip رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر سبتمبر 24, 2016 الكاتب مشاركة قام بنشر سبتمبر 24, 2016 (معدل) 8 ساعات مضت, عمر الحسيني *** أبو تامر said: هذا اقصي ما يمكن عمله كل الشكر والتقدير لك سيدي الكريم فكرة دمج فورم البحث مع فورم الادخال مقبولة اذا كانت الادخالات قليلة مثل موضوعنا الحالي بينما لو كانت الادخالات كثيرة بحيث كان حجم الفورم يأخذ نصف الشاشة مثلاً أو اكثر فأظن فصل الاثنين افضل وجزاك الله كل خير والفورم المدموج جميل ورائع يستفاد منه في كثير من الادخالات بقي امر واحد وهو عند ظهور رسالة التنبيه ثم موافق لماذا لا يرجع مؤشر الكتابة للتكست بوكس1 . أليس الجزء TIXTBOX1.SETFOCUS الموجود بعد الرسالة في الكود يعني ذلك . لأنه بعد ظهور الرسالة لا يمكن البحث مجدداً 4 ساعات مضت, محمد عبدالسلام said: اخي الفاضل سمير نجار وبعد اذن استاذنا القدير عمر الحسيني اخي الكريم محمد اشكرك على المشاركة والمتابعة تم تعديل سبتمبر 24, 2016 بواسطه سمير نجار رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان