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