تم الحل الحمد لله وقمت بالتعديل على الكود وأصبح 

    lig = lig & " " & "-" & " " & Cnt.Cells(i, 0).Value & " " & "مبلغ" & " " & " " & Cnt.Cells(i, 1).Value

أولاً ألف شكر أ/محمد هشام.

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

26/12/2023 05/03/2024 28/06/2024 

أنا عدلت على الكود كده علشان الفواصل لكن كل تاريخ يكون جنبه المبلغ إللي أخده مش عارف أعملها بصراحة

lig = lig & " " & "-" & " " & Cnt.Cells(i, 1).Value

السلام عليكم برجاء من الأخوة الأعضاء المساعدة أنا عملت دالة sumif لإجمالي السلف لشخص معين

مطلوب في الملاحظات تواريخ إستلام السلف حيث موجود موظف أخذ أكثر من سلفة في الشهر

sumifs.xlsx

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

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

أولا أحب أشكر حضرتك على سرعة الرد أستاذنا محي الدين أبو البشر

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

ولو سمحت ينفع شرح الكود علشان انا خبرتي مش كبيرة قوي

برجاء المساعدة من خبراءنا

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

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

مرفق جزء من الشيت الأصلي لأن الشيت الأصلي به شيتات كثيرة وبيانات أكثر من ذلك بكثر فرجاءا المساعدة حتي يتم نقل الأكواد إلى الملف الأصلي Test.xlsx

مبروك استاذ . عمرو  ربنا يعينك تستاهل كل خير

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

ألف شكر أ.عبدالله الصاري أنا فعلا ما أخدتش بالي إني مكرر g1 تسلم ياباشا الله يبارك في حضرتك

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

في ٣٠‏/٥‏/٢٠١٨ at 15:00, علي الحداد said:

تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب

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

تم حل المشكلة بواسطة مكتبة 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

3 ساعات مضت, AlwaZeeR said:

جرب بهذه الطريقة عزيزي

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

في 2/25/2018 at 08:09, elkareee said:

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

IIF.rar

12 ساعات مضت, MaTTTTrix said:

وأرجو أن يكون به الحل لما طلبتم

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

up

18 دقائق مضت, يوسف مؤذن said:

تفضل

 

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

في 2/22/2018 at 17:04, Shivan Rekany said:

ممكن ترفق نسخة مصغرة من قاعدة بياناتك الاصلية لكي نستخدم دي لوك اب معه و نشوف ما هو الاسباب

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

IIF.rar

استاذ شيفان شكرا على مرورك ... اعتذر انه ليس لدى القاعدة حاليا لأنها خاصة بالعمل ولكنى سأذكر الاسباب التى تمنع استخدام dlookup حتى اعود للعمل وارفق القاعدة

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

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

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

السلام عليكم 

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

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

وللعلم الدالة اشتغلت مرة صح ولكن بعد تغيير بيانات فى الجدول اصبحت تعطى النتيجة خاطئة كما فى الصورة برجاء الافادة 

IIF.rar

1 ساعه مضت, يوسف أحمد said:

تفضل التعديل بالمرفق  ... لاحظ وجود المعايير تحت حقل الكمية و حقل الاضافة

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

15 ساعات مضت, يوسف أحمد said:

من وجهة نظري انه من الضروري وجود جدول خاص بالاصناف يتم اضافة جميع الاصناف لديك به و يتم استخدامه ضمن الاستعلام المطلوب ( اسم الجدول tblItem )

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

استاذى الفاضل تشرفت بمرورك 

بالنسبة للجدول الخاص بالاصناف هو بالفعل فى القاعدة الاساسية ولكنى لم اضيفه لظنى انه ليس له علاقة بالموضوع

بالنسبة للمرفق  هى النتيجة المطلوبة ولكن جدول الاصناف عندى فيه 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