نجوم المشاركات

وعليكم السلام -يمكنك استخدام هذه المعادلة دون حذف العمودان المساعدان T & U =C3&" "&VLOOKUP($B3,$T$2:$U$80,2,0) معادله شرطيه.xlsx

اللهم آآآآمين وإياك أخي أبو ماجد 🙂 بعض الأوامر في الماكرو ما تظهر إلا إذا شغلت هذي :

روح ي شيخ الله يسعدك سعادة لا تشقى بعدها ابدا والله انها دعوة من قلب طبعا جربت البرنامج بعد التعديل وطلع 100% ولو استجد شي رجعت لك إن شاء الله لي أسبوع وانا مشغول على شأن هذا الكود زادك الله علما

السلام عليكم مصنف1.xlsx

تفضل يا أبو ماجد 🙂 غيرت مصدر بيانات النموذج mm إلى Query1 وتم تكملة المطلوب 🙂 fff.rar

اعمل جدول مثل هذا ..... حيث يتم طباعة الخطاب حسب الثلاث سجلات بها ::: 1- جزاءات برقم الصادر ( حيث يمكن جعل رقم الصادر متغير تلقائيا كل عملية طباعة يزيادة رقم للسجل بدون تدخل منك . 2- ماهيات برقم ايضا بنفس فكرة الجزاءات ==========================================. 3- والاخيرة نسخة المكتب وهي بدو رقم .... هذا اذا كان فهمي للموضوع سليما .................................................................................

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

انظر .....

تحية طيبة عطرة تم عمل المطلوب باستعمال عمود مساعد A بمعادلات لترقيم الفاتورات وتنسيقات شرطية... أرجو أن يفي المطلوب... Book4.xlsx

لقد قمت بالتالي: - الإجراء مكرر مرتين وقد قمت بحذف أحدهما - تم تنظيم الكود شكلا. - حذف سطر يمنع مقاطعة الكود أثناء المعالجة، لا أرى له فائدة سوى عرقلة المبرمج لكشف أي تكرار بلا نهاية، كما حصل معي 🙂 . - تعديل عدد الأعمدة بطرح 2 - تعطيل عملية قفز "GoTo 1" ، لا أرى أي فائدة لها، وبسببها يدخل الكود في تكرار بلا نهاية. لا أعرف صحة النتائج فلم ولن أدخل في صحة معالجتها. نصيحة للمبرمجين، تخلصوا من عملية القفز بقدر المستطاع، فعملية القفز بات حل قديم ومصدي. ملاحظة_02.xlsm

اي والله ابشر بالدعوات الله تعالى يحب الذين يقضون حوائج الناس: روى ابن أبي الدنيا والطبراني عن ابن عمر رضي الله عنهما، قال: قال رسول الله صلى الله عليه وسلم: ((أحب الناس إلى الله أنفعهم للناس))؛ حديث حسن؛ (صحيح الجامع والله ما قصرت اسأ الله رب العرش العظيم ان يمتعك بالصحة والعافية وأن يرزقك من حيث لا تحتسب ويصلح لك النية والذرية والله اني كثرت عليك الأسئلة لكن اصبر ولك الاجر إن شاء الله وبعد مستحي منك صراحة اخوي موسى لو اردت ان اعمل بالنموذج SS نفس ما عملته بالنموذج MM انسخ الاستعلامات التي سويتها والا لها طريقة أخرى اسعدك الله ي الامير

السلام عليكم استاذ @husamwahab شكرا كثيرا لك ولاهتمامك بالموضوع فقط ملاحظة عن الكود الاخير لون ان مدخل البيانات اخطا وادخل (start date) اكبر من (end date) يظهر خطا بالكود المفروض تظهر رسالة ولايسمح بالاحتساب تحياتي لك استاذ

تفضل يابو ماجد 🙂 fff.rar وكثر من دعوااااتك 😄

qathi بالخدمة استاذ وتفضل التعديل ارجو ان يكون طلبك aa_10.rar

تفضل بهذه المعادلة .مع العلم انه تم عمود عمود مساعد بالعمود I =IF(AND($D2<46,$E2="ذكر"),F2-(F2*30%),IF(AND($D2<46,$E2="أنثى"),F2-(F2*25%),IF(OR(AND($D2>=60,$E2="ذكر"),AND($D2>=55,$E2="أنثى")),$F2,F2-VLOOKUP($E2&$D2,$I$4:$K$26,3,0)*$F2))) المعاش التقاعدي1.xlsx

وعليكم السلام 🙂 علشان التقرير ينطبع ، لازم اسم التقرير يكون موجود ، سواء في الكود او في Combobox او ListBox ، وتقدر تخلي لكل تقرير زر ، واذا اردت طباعة جميع التقارير في نفس الوقت ، فتقدر تستخدم الطريقة اعلاه وتجعل طباعتهم على زر واحد 🙂 جعفر

مبارك عليك استاذي @AbuuAhmed الترقية ونفع الله بك وزادك الله من فضله

الف مبروك ابو احمد اللهم اجعلك عونا للسادة الأعضاء

استاذ محمد انا عدلت السؤال .انا للاسف موصلتيش لحل انا منتظر الاستاذ ضاحى يمكن يكون وصل لحل اشكرك

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

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

شكرا لمروركم جميعا استاذى واخى الحبيب الاستاذ مجدى مروركم يعد تكريما وتشريفا لى استاذ abdelfattahbadawy استاذ arsalanamin بارك الله فيكم وجزاكم الله خير

بارك الله فيك AhMed.O دا انت استاذي

وعليكم السلام 🙂 ومشاركة مع اخي kanory 🙂 1. اعمل حقل نص في التقرير لكتابة كلمة جزاءات و ماهيات . 2. اعمل الحقل myText في النموذج الذي سيتم منه الطباعة : . وهذا الكود على حدث زر الطباعة: Private Sub cmd_print_3_Copies_Click() Me.myText = "جزاءات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time Me.myText = "جزاءات + ماهيات" DoCmd.OpenReport "Report1" Call Pause_Time End Sub Sub Pause_Time() Dim PauseTime, Start PauseTime = 2 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop End Sub . قد لا تكون بحاجة الى الدالة Pause_Time ، فهي تجعل الكمبيوتر ينتظر ثانيتين قبل ان يطبع التقرير التالي. جعفر 1527.Report_Label.mdb.zip

اخي على ما يبدو لي انك لم تفهم الكود جيدا ركز معي هدا السطر يعني انه في حالة وجود فراغات في الخلايا يتم عدم تنفيد الكود مع اظهار رسالة تخبرك بملئ البيانات وهدا مستبعد ..الاصل في التعديل انك تقوم باستدعاء البيانات اولا اما برقم الكود او رقم الاقامة ثم تعديلها وفي هده الحالة تكون جميع الخلايا بها قيمة . تم وضع الشرط فقط لتجنب استبدال البيانات بالفراغ عند تنفيد الكود If Range("L10").Value = "" And Range("d10").Value = "" And Range("h10").Value = "" Then MsgBox "المرجوا ادخال البيانات" Exit Sub End If وعند التعديل لا نقوم بتغيير قيمة الخلايا L7 او D7 ..يتم التعديل مكان الاسهم كما في الصورة

السلام عليكم 🙂 قبل كل شيء ، خلوني ابخر المكان عن العين ، علشان ما تصيب الحبايب 😁 . شكرا على الفكرة الجديدة ، بأرسال النسخة الجديدة من FE بإستخدام BE ، بدل عن سحبها بواسطة FE 🙂 في الواقع انا اكملت برمجة التحديث قريبا ، ودارت في بالي العديد ، وقرأت عن العديد من الطرق ، واستقر رأيي على الطريقة التقليدية ، مع العلم ان هذه الفكرة اتت على بالي (BE هو الذي يرسل التحديث) ، ولكن ارتأيت عدم استخدامها ، لأسباب التالية: ضعف الشبكة في موقع العمل ، وفي الواقع هذه تجربة جدا فريدة ، جعلتني اعيد النظر في الكثير من تفاصيل البرمجة ، وقد اُوفق لعمل موضوع خاص به إن شاء الله ، المستخدم (على الاقل 4 حاليا) ، يجب ان يُلبي طلب الزبائن ، بمعدل 3 زبائن في الدقيقة (والامل ان يكون اكثر) ، وبسبب ضعف الشبكة ، التركيز كان على جعل BE في حالة تأهب لخدمة المستخدم ، ولا نشغل BE بأي شيء آخر ، يجب ان يتم التحديث بدون تدخل المستخدم ، فهنا يجب ان نعرف مسار برنامج FE المستخدم ، تلقائيا ، وليس مكان البرنامج الاصل ، فربما ولسبب ما ، قام المستخدم بتغيير مكان المجلد الى مكان آخر ، كانت الفكرة ، ان لا استعمل نموذج في BE ، وانما عن طريق ادخال قيمة في حقل معين في جدول ، وهذا الحقل يقوم بتشغيل وحدة نمطية في BE ويقوم بعمل اللازم ، بهذه الطريقة: هذه المعلومة غير دقيقة ، فأول برنامج اكسس عملته لمؤسسة عام 2002 ، وضعت البرنامج كاملا على السيرفر ، وكان يستخدمة بين 5-8 اشخاص في اليوم ، والحمدلله الله ستر وما صارت مشكلة فيه 🙂 وحيا الله بالحبايب ، اللي ذكروني ، واللي ما ذكروني 🙂 جعفر