kha9009lid

في خدمتك اخي الحبيب

لمسات سحرية @ابا جودى ساحر الاكسس

اعرف انك تملك الاجابة ولكن كنت امزح معك عدد الحروف في استعلام Len(Replace([الاسم];" ";"")) عدد الكلمات Len([الاسم])-Len(Replace([الاسم];" ";""))+1 مرفق مثال استعلام3 حساب.accdb

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

جرب المرفق افتح استعلام2 يطلب ادخال رقم الشهر الاشهر.accdb

جرب المرفق eta.accdb

جرب المرفق اشهر.accdb

الحقيقة جميع الامثلة تعمل اذا اخرجت كمية تنقص في النموذجين واذا اضفت تضاف في النموذجين ربما لم افهم المطلوب😥

رائع دائما @ابا جودى

صحيح وبالذات لما يكون الكود طويل ويحتوي على عدد من اسماء الحقول 😣 الشكر لله اخي @rey360

جرب المرفق Database311.accdb

بل الشكر لك اخي ليث انت وكل عضو في هذا الموقع

chr(34) رمز اسكي يعني نص هذة العلامة " و تعني بينري 00100010

بعد اذن استاذي الفاضل ابو عارف chr34 = "

اكيد ممكن القيمة الافتراضية تكون اخر نص تم تسجيلة في tx1 وعند تغييرة يتم تغيير القيمة في للكمبو Me.Combo4 = DLast("[tx1]", "tbl1") جرب الملف المرفق Database210.accdb

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

ممكن ذلك باكثر من طريقة بداية نعملها بالطريقة الاصعب 😎 لكون حقول النص غير منظمة فقد عملنا جدولين وعملنا استعلام الحاق لكل من حقلي النص في حدث عند التحديث DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbl1(tx1 )VALUES (tx1)" Me.Combo4.Requery DoCmd.SetWarnings True وكذلك للحقل النصي الثاني ثم عملنا استعلام توحيدي SELECT tx1 FROM tbl1 UNION ALL SELECT txt2 FROM tbl2; وجعلناه هو مصدر القائمة المنسدلة توجد طريقة اسهل من ذلك ربما اضعها في مشاركة تاليه Database2.accdb

😃😃 لا تستعجل يبو اشرف

العفو ياباشا احنا في خدمتك

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

ممكن 😃

هههههه نعم كم تدفع 😃😃 الحقيقة ابا اشرف يستاهل كل خير مشاركات متميزة وعطاء كبير وقام باهداء الموقع العديد من البرامج المتميزة

جرب المرفق ولكن بعد مثال الاستاذ عصام لا توجد امثله تستحق ان ترفع Database281.accdb

الاساتذة برناوي وعصام جزاهم الله خير اعطوك اجابات وافية ومثال الاستاذ عصام رائع ولمن يرغب في عملها عن طريق الاستعلام SELECT * FROM msysobjects; وفي نتيجة الاستعلام يهمنا حقلين هما Name و Type ونستخدم الرموز التالية لتحديد الكائن جداول = 1 استعلام = 5 نموذج = -32768 تقرير = -32764 مايكروا = -32766 موديول = -32761 في هذة الطريقة سوف نواجه مشكلة في نتيجة الجداول حيث ستظهر اسماء جداول النظام مما يتطلب منا ان نضع معيار لاستبعاد هذه الجداول الخاصة بالنظام مثل Not Like "MSys*" اوي اي معيار مشابه

😃😃 غلطة الشاطر بعشرة