elkareee

ألف شكر يافندم تم عمل المطلوب

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

السلام عليكم ورحمة الله وبركاته رجاءا من أعضاءنا وأستاذتنا الكرام مساعدتي في تحويل دالات ( vlookup - sumifs - countifs ) إلى أكواد Vba لحل مشكلة ثقل الشيت مرفق جزء من الشيت الأصلي لأن الشيت الأصلي به شيتات كثيرة وبيانات أكثر من ذلك بكثر فرجاءا المساعدة حتي يتم نقل الأكواد إلى الملف الأصلي Test.xlsx

طب معلش يعني ايه أغير من g1 الى g2 علشان خبرتي قليلة في الأكواد ألف شكر أ.عبدالله الصاري أنا فعلا ما أخدتش بالي إني مكرر g1 تسلم ياباشا الله يبارك في حضرتك

السلام عليكم كنت شاهدت من فترة شيت به كود لطباعة شيتات قبض الموظفين عن طريق كود vba وقمت بعمل نفس الكود ونفس الطريقة ولكنه لم يعمل مرفق الشيت للمساعدةsalary12.xlsm

تمام هو المطلوب جزاك الله خير

تم حل المشكلة بواسطة مكتبة Outlook Object Library ولكن ظهرت مشكلتين : 1 - فى حالة تعدد المرسل اليهم كيف يتم اضافة اكثر من بريد 2- رسالة تحذير امنية من Outlook لتأكيد الارسال .. هل يمكن تجاوز التحذير ؟ جزاكم الله خير

السلام عليكم اساتذتى الافاضل .. بعد البحث كثيرا عن طريقة ارسال تقرير اكسس بالميل دون تدخل من المستخدم وجدت الكود التالى Private Sub Command0_Click() Dim oApp As New Outlook.Application Dim oEmail As Outlook.MailItem Dim fileName As String, todayDate As String 'Export report in same folder as db with date stamp todayDate = Format(Date, "MMDDYYYY") fileName = Application.CurrentProject.Path & "\myReport" & todayDate & ".pdf" DoCmd.OutputTo acReport, "myReport", acFormatPDF, fileName, False 'Email the results of the report generated Set oEmail = oApp.CreateItem(olMailItem) With oEmail .Recipients.Add "hamada.kamal", "Amr.Ashraf" .Subject = "Test Access Data" .body = "رسالة تلقائية لتجربة ارفاق تقرير لأكثر من مستخدم" .Attachments.Add fileName .send End With MsgBox "Email successfully sent!", vbInformation, "EMAIL STATUS" End Sub ولكن تظهر لى رسالة الخطأ التالية عند تشغيل الكود compile error User-defined type not defined للسطر Dim oApp As New Outlook.Application تأكدت من References وان مكتبة Object Library موجودة ومفعلة ولكن المشكلة لم تحل ... المثال فى المرفق Mail.rar

up

استاذى الكريم جزاكم الله خير ولكنك طبقت على المرفق الخاطئ بستأذنك تلقى نظرة على هذا المرفق وتطبق الطريقة عليه لأن المرفق التالى الحقول غير منضمة فيه وبالتالى اظن هذه الطريقة لن تنفع

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

up

شكرا على مرورك اخى الكريم... ليس هو المطلوب

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

استاذ شيفان شكرا على مرورك ... اعتذر انه ليس لدى القاعدة حاليا لأنها خاصة بالعمل ولكنى سأذكر الاسباب التى تمنع استخدام dlookup حتى اعود للعمل وارفق القاعدة اولا التقرير محل الجدال به ثلاثة حقول غير منضمين ومن ضمنهم الحقل المطلوب استدعاء الاسم الخاص به كما فى المثال السابق وهو السن ويتم تعيين مصدر بيانات هذه الحقول عند فتح التقرير برمجيا بالاعتماد على شروط معينة وقد تتغير القيم مصدر بيانات الحقول ما بين 10 حقول من الاستعلام مصدر التقرير وذلك بالاعتماد على الشروط المعينة وبالتالى لو حاولت انى استخدم dlookup فعلى اى قيمة من 10 سأعتمد ؟ يعنى الدالة هتحضر القيمة المطلوبة وهى اسم الشخص فى المثال لما اقل قيمة فى التقرير هتساوى السن ولا الطول مثلا ولا الوزن ؟ من المستحيل فى هذه الحالة استخدامها المانع الثانى البطئ الشديد للتقرير فى حالة استخدام dlookup الدالة مع استعلام يحتوى على الكثير جدا من البيانات ومع كل تحريك للاعلى او للاسفل يتم تحديث قيمة الدالة مجددامما يؤدى الى تجميد التقرير احيانا ولذلك فضلتiif دالة بدلا عنها .... واسف جدا على الاطالة

بعد التجربة بالتعديل على بيانات الجدول اتضح انه الدالة تشتغل مع اخر اسم فقط وليس مع كل السجلات يعنى لو قمنا بالتعديل على السن الخاص ب "ابراهيم " واصبح هوا اقل سن هتشتغل الدالة وتكتب اسمه لكن لو عدلت على اى اسم اخر لن تعمل الدالة كما يجب وستكتب الجزء False اللى هوا "مش شغالة"

السلام عليكم اساتذتى الافاضل عندى مشكلة كما بالعنوان فى التقرير المرفق مثال صغير على اقل سن مسجل فى التقرير و دالة IIF تحضر اسم صاحب اقل سن وهذا مجرد مثال لتوضيح مشكلتى مع العلم انه فى القاعدة الاصلية لا يمكن استخدام Dlookup لاحضار القيمة من الاستعلام مصدر التقرير لعدد من الاسباب فيتبقى لى الطريقة المرفقة والاسهل للوصول للمطلوب كما فى الصورة وللعلم الدالة اشتغلت مرة صح ولكن بعد تغيير بيانات فى الجدول اصبحت تعطى النتيجة خاطئة كما فى الصورة برجاء الافادة IIF.rar

تمام هو المطلوب جزاك الله خير استاذنا الفاضل

استاذى الفاضل تشرفت بمرورك بالنسبة للجدول الخاص بالاصناف هو بالفعل فى القاعدة الاساسية ولكنى لم اضيفه لظنى انه ليس له علاقة بالموضوع بالنسبة للمرفق هى النتيجة المطلوبة ولكن جدول الاصناف عندى فيه 6000 صنف وبطريقة ربط الاستعلامات كما قمت به فى مثالك سيظهر ال6000 صنف ويكتب الارقام الموجودة على حسب مكانها سواء فى Qty او Add وهذا ليس المطلوب ولكن المطلوب اظهار الاصناف بالشكل والنتيجة التى ظهرت فى مثالك حتى لو كانت الاصناف مليون صنف . جزاك الله خير Qry2.rar

السلام عليكم اساتذتى الافاضل فى المرفق هناك استعلامين QryContData و QryAdd مشتركين فى الحقول (الكود - الصنف - HNumber ) حاولت اعمل استعلام ثالث يقارن بين الاستعلامين بحيث يكون مخرجاته كالتالى (الكود - الصنف - Hnumber - Add - Qty) يعنى باختصار انا محتاج الاستعلام يقارن بين الكمية الموجودة فى QryAdd والكمية الموجودة فى QryContData والمحاولة كانت نتيجتها كالتالى : لو لاحظنا هتلاقى ان الاستعلام كرر الصنف مرتين ولم يذكر صنف اخر لأنه موجود فى الاستعلام الاول وغير موجود فى الاستعلام الثانى او العكس ولكن النتيجة المرجوة من الاستعلام يكون شكلها كالتالى : الهدف من الاستعلام هو معرفة الفرق بين ما تم توريده بالفعل QryAdd.Add و ما تم الاتفاق عليه من الاول QryContData.Qty مع الاخذ فى الاعتبار الاصناف التى تم الاتفاق عليها ولم يتم توريدها و الاصناف التى تم توريدها مع انه لم يتم الاتفاق عليها أرجو ان المثال واضح لو فيه استفسار لا تتردد بالسؤال جزاك الله خير مرفق المثال بصيغة 2003 و 2010 Qry.rar

السلام عليكم لو سمحتم عندى مشكلة فى الاستعلام التالى حيث أريد استخراج اخر قيمة من الحقل AvgPrice عندما لا تساوى صفر وذلك داخل الاستعلام جربت Dlast جاب اخر قيمة مكررة لكافة الاصناف كما بالصورة حاولت باستعلام اخر واضافته فى الاستعلام الحالى وربطهم بالكود ظهرت النتيجة ارقام خاطئة كما لو قام بضرب عدد السجلات فى الجدول فى الرقم المطلوب برجاء المساعدة Last.rar

جزاك الله خير اخى الكريم تم التجربة وشغال تمام

up

up