يونس الخطابي

استاذي الفاضل / مبرمج سابق

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

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

السلام عليكم

اساتذتي الافاضل . يؤسفني القول بان البرنامج توقف في منتصف الطريق دون سابق انذار . وارفق القاعده التي حصل فيها الخطا . لا اعرف انا السبب ام ان السبب في الامر الموجود في النموذج . تحياتي لكم

مبرمج سابق.rar

سلمت يمينك اخي العزيز مبرمج سابق . الكل تمام . جزاك الله عنا خير الجزاء .

في 15‏/7‏/2022 at 09:56, مبرمج سابق said:

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

Dim x() As String
a = DLast("[m]&'|'&[k]&'|'&[r]", "GTTT")
 x = Split(a, "|")
 M = x(0) + 1
 k = x(1)
 R = x(2)

السلام عليكم 
الاستاذ الفاضل / مبرمج سابق
جربت الامر الذي ذكره جنابكم ولم تتحقق النتائج المرجوه 
الذي كنت ابغيه هو مايلي بالضبط 
اولا- / في حقل ( التحكم بالتسلسل) ان يبدا العداد من اخر رقم كتبناه فاذا كتبنا 100 المطلوب ان يظهر في السجل التالي رقم101 ثم 102 ثم 103 ثم 104 واذا كتبنا بعد ال 104 رقم 99 ان يظهر بعده التسلسل 100 ثم 101 ثم 102 وهكذا اي ان الترقيم يبدا من اخر رقم كتبناه  
ثانيا/ حقل (التحكم بالقيمه ) ان يتكرر اخر رقم كتبناه فاذا كتبنا 10 يظهر في السجل التالي رقم 10 وفي الثالث رقم 10 ايضا ثم اذا كتبنا بعد ذلك رقم 5 يظهر في السجل التالي رقم 5 وفي الذي يليه رقم 5  وهكذا . علما بان خصائص هذا الحقل هو نص . ادعو من الله ان تكون الفكره اصبحت واضحه .   لاحظ المثال المرفق . تحياتي لك اخي العزيز

مبرمج سابق.rar

1 ساعه مضت, مبرمج سابق said:

ولعلي اضع مثال بسيط بعون الله

نتطلع للمزيد من ابداعاتك اخي العزيز مبرمج سابق بمثال يوضح المقال

سلمت يمينكم اساتذتي الافاضل (مبرمج سابق و ابو جودي )

اساتذتي الافاضل rockjone33  و ابو خليل  

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

younis.rar

السلام عليكم
سادتي الافاضل .  من فضلكم  .في القاعده المرفقه طيا بامكانك التحكم بالتسلسل (ID) اي في كل مره بامكانك جعل التسلسل يبدا بالرقم الذي  ترغبه  .  السؤال الامر الموجود في النموذج هل بالامكان وضعه في استعلام بحيث نستغني عن النموذج  . جزاكم الله خير

التحكم بالتسلسل.rar

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

سيدي الفاضل /مبرمج سابقا - الف رحمه على والديك - هو المطلوب -  تذكر ان الصدقة تطفئ غضب الرب وصلة الرحم تزيد في العمر وفعل المعروف يقي مصارع السوء اللهم اني اسألك من فضلك ورجمتك ان تجزي عني اخي (مبرمج سابقا ) خير الجزاء .  فإنه لا يملك ذلك الا انت.
 

سيدي الفاضل / ابو عارف المحترم / شكرا جزيلا لك / اتمنى ان احصل على مايلي ( 1) اضع معيار ثابت وهو الرقم (6) في الحقل (ATHHAR ) في استعلام ( QCCC) وعندما افتح النموذج واقف على اسم ( عبدالله ) مثلا  وضغطت زر التحديث ثم اغلق النموذج وافتح الاستعلام  اجد اسم ( عبدالله )  واذا ارجعت مره ثانيه وفتحت النموذج ووقفت على اسم (حسن) وضغطت زر التحديث واغلقت النموذج وفتحت الاستعلام اجد اسم (حسن) وهكذا تحياتي لك اخي العزيز

سيدي الفاضل /مبرمج سابقا / فكره رائعه  جزاك الله خير / وانا ايضا مسن واكيد اسن منك فقد قاربت السبعين  لذا قد تلاحظ انني لم اوفق في توضيح الفكره جيدا / الذي كنت اتمناه  (اولا) ان لايتضمن الاستعلام ( QCCC) اي معيار عدا الرقم (6) في معار الحقل( ATHHAR) (ثانيا) عند الضغط على زر الامر لاينفتح الاستعلام وانما فقط يتم تحديث الاستعلام . ( ثالثا ) اذا كان ذلك ممكنا ان تعيد لي قاعدة البيانات بعد التعديل عليها . تحياتي لك

السلام عليكم ورحمة الله وبركاته
من فضلكم بحاجه الى زر امر في النموذج (   FtblAA   ) بحيث عند النقر على زر الامر  يقوم بوضع رقم ( 6 ) في الحقل (اظهار) للسجل (الحالي فقط )وفي حالة وجود رقم (6) في اي سجل اخر من الاسماء الموجوده في الاستعلام ( QAAAA) يحولها الى رقم ( 3 ) عدا السجل الحالي طبعا   .  بحيث اذا فتحت الاستعلام ( QCCC) اجد السجل الحالي فقط   . , واذا كان احد الاساتذه لديه فكره اخرى بحيث عندما افتح الاستعلام (  QCCC) اجد السجل الحالي فقط فلينفعنا بها وجزاك الله خير

اظهار السجل الحالي فقط.rar

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

معادله - 3.xlsx

من فضلكم في ملف اكسل المرفق مطلوب معادلة  بحيث اذا ادخلت الرقم 16 مقابل عدد الاشهر يظهرفي خلية  الناتج الملون بالاصفر الرقم 2424 و واذا ادخلت في عدد الاشهر الرقم24 يظهر في خلية الناتج الرقم 3636 وهكذا بمجرد تبديل عدد الاشهر تظهر النتيجة في خلية الناتج المقابلة لذلك الشهر واذا قمنا باستبدال النسبة من 1.01 الى 1.03  وكان عدد الاشهر 16  يظهرفي خلية  الناتج الملون بالاصفر الرقم 2472 و واذا ادخلت في عدد الاشهر الرقم24 يظهر في خلية الناتج الرقم 3708 وهكذا بمجرد تبديل عدد الاشهر  او النسبة تظهر النتيجة في خلية الناتج المقابلة لذلك الشهر  وجزاكم الله خير

معادله.xlsx

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

الاستاذ الفاضل / د كاف يار / هو المطلوب وفقك الله وجعل ذلك في ميزان حسناتك . وبلهجتنا اقول ( دومك تكدر عالطيبات انشاء الله)

وانت استاذي الفاضل جعفر المحترم  مجرد مرورك عالموضوع يضيف له نكهة خاصه حفظك الله ورعاك . ذخرا لنا

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

جواب السؤال الثاني  / من قاعدة البيانات نختار الاسم الذي نريد طباعة تقرير له ونضع علامة صح في الخليه ( اظهار) ثم نفتح ملف الوورد ومن الاعلى الوظائف الاضافيه ونشغل الماكروا فيتم استبدال كل الكلمات التي نريد استبدالها

جواب السؤال الثالث / نعم نقوم بطباعة ملف الوورد بعد ان تم استبدال الكلمات المطلوبه فيه .

جواب السؤال الرابع / تعذر علي ارفاق التقرير  

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

اكرر / لاتحرمنا من طلتك . تحياتي لك

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

سؤال: لماذا تعمل هذا في الوورد ، لماذا لا تستعمل تقرير الاكسس ليقوم بالعمل كاملا ، واذا اردت النتيجة في ملف وورد ، فيمكنك التصدير لملف rtf. والذي يقرأه وورد !!

اخي لا اعرف كيف يتم ذلك .

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

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

في المجلد المرفق قاعدة بيانات وملفين وورد

في النموذج (faaa ) يوجد زرين امر

الاول : لفتح ملف وورد الاول /  - يعمل بشكل طبيعي أي يفتح ملف الوورد المقصود

الثاني : لفتح ملف وورد الثاني/  -  لايعمل بشكل طبيعي أي انه لايفتح ملف الوورد الثاني

ياترى هل السبب لان ملف الوورد الثاني يوجد فيه ماكرو استبدال انا بحاجه ماسه له ام ان كود فتح الملف فيه خطا

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

DAAOE.rar

السلام عليكم 

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

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

السلام عليكم ورحمة الله وبركاته
اخي العزيز جعفر
تحيه طيبه
فقط للتذكير انا ليست لدي اي معلومات عن البرمجه وقواعد البيانات واحمد الله انني تعلمت ( النسخ واللصق) وقد اعتمدت كثيرا على شروحاتك في هذا المنتدى
هذه القاعده التي تفضلت وعملتها لي يوجد فيها نموذج بحث يتوقف احيانا وقد اتعبني وعملت على استبداله . لكن المشكله التي واجهتني كيفية اضافة الاوامر التاليه في النموذج  LIST
هلا تكرمت علي واضفتها للنموذج ومن ثم نشر القاعده لانه اذا شرحتها لي لا اعرف كيف اضيفها  . على ان تكون جميع الاوامر متعلقه بالسجل الذي وضعنا امامه علامة صح في الخانه ( اظهار)
الامر الاول / يفتح النموذج المسمى   FTQDER1
الامر الثاني / يفتح التقريرالمسمى     TQRERKBER1
الامر الثالث / يفتح مستند وورد اسمه  M_ DAROATH     - اذا كانت هناك صعوبه في حشر المعلومات في ملف الوورد فيكفي امر يفتح هذا المستند 
ارجو ان لا اكون قد اثقلت عليك وجزاك الله خير

jjafferr.rar

استاذي الفاضل جعفر المحترم

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

في موضوع سابق بعنوان تحويل عمود الى صفوف بشرط / وجدت اجابه شامله ووافيه من ابداعات الاستاذ الفاضل jjafferr  لانني بحثت في الانتريت لتنفيذ ذلك ولم اجد الا في اكسل اما في الاكسس فعلى حد علمي المتواضع لم يقم احد بهذه المحاوله الناجحه .

اليوم كنت بحاجه الى فعل العكس وهو تحويل صف الى عمود  . وارفق طيا قاعدة بيانات تتضمن جداول واستعلامات ونماذج . اهم ما اريد الوصول اليه هو تحويل صف يكون مصدره الاستعلام ( QAAA )  ويظهر على شكل عمود في الجدول( TBBBB )  مع اضافة تحسينات ذكرتها في النموذج المسمى (FAAA ) وجزاكم الله جميعا بخير

jjafferr.rar

شكرا استاذي الفاضل استاذ جعفر وجزاك الله خير

السلام عليكم ورحمة الله وبركاته / اخي العزيز المبدع  jjafferr   اليوم وبعد عناء بحث ايام وليالي عثرت على قاعدة البيانات التي ابدعتها اناملك الذهبيه وفكرك النير . ادعو الله لك ان يحفظك ذخرا لنا ولكل محبيك . يا اخي العزيز اقسم بالله كدت اطير من الفرح عندما عثرت عليها لان اكيد تعلم كم هو الجهد الذي  يبذله شخص مثلي يتطلب عمله تدوير البيانات حيث كنت اقوم عدة مرات باليوم بارسال قاعدة البيانات الى اكسل لتدويرها ومن ثم اعادتها الى اكسس وانا بصراحه كنت انجز عشرات المعاملات يوميا بعد عناء طويل واليوم بجهودك الجباره اختصرت لي عملي الى ساعات قلائل  . عاجزا عن تقديم الشكر لك ولا املك الا ان اقول جزاك الله عنا خير الجزاء . ولي سؤال . هل بالامكان تدوير البيانات بالعكس اي ندخل بيانات في الجدول ( Co_to_Row ) وعند الضغط على زر الامر تنتقل الى الجدول ( trry ) وبشرط  بمعنى ان لايتم تدوير كل الجدول وانما فقط التي نضع امامها علامة صح .  تقبل تحياتي اخي العزيز