عمر ضاحى

ارفع ملف علشان نستطيع ان ننفذ عليه طلبك

مفيش ملف مرفق

اعتقد صعب لان لازم سخص مرسل وشخص مستقبل الايميل حتى لو مش هيفتح الاوتلوك فهو هيعتمد على مكتبه الاوتلوك ممكن تنظر لهذا الكود Option Compare Database Private Sub cmdSendEmail_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim emailTo As String Dim emailSubject As String Dim emailText As String Dim outApp As Outlook.Application Dim outMail As Outlook.MailItem Dim outlookStarted As Boolean On Error Resume Next Set outApp = GetObject(, "Outlook.Application") On Error GoTo 0 If outApp Is Nothing Then Set outApp = CreateObject("Outlook.Application") outlookStarted = True End If Set db = CurrentDb Set rs = db.OpenRecordset("SELECT ArName, EnName, EmailAddress, EmailVIP " & _ " FROM QTSendEmail") Do Until rs.EOF emailTo = Trim(rs.Fields("ArName").Value & " " & rs.Fields("EnName").Value) & _ " <" & rs.Fields("EmailAddress").Value & ">" emailSubject = Me.txtEmailTital If IsNull(rs.Fields("ArName").Value) Then emailSubject = emailSubject & " for " & _ rs.Fields("ArName").Value & " " & rs.Fields("EnName").Value End If emailText = Trim("Hi " & rs.Fields("ArName").Value) & "!" & vbCrLf If rs.Fields("EmailVIP").Value Then emailText = emailText & Me.txtEmailBody & vbCrLf End If ' ' emailText = emailText & _ ' "نص 1" & _ ' "نص 2 " & _ ' "نص 3 " & _ ' "نص 4" Set outMail = outApp.CreateItem(olMailItem) outMail.To = emailTo outMail.Subject = emailSubject outMail.Body = emailText outMail.Send rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing If outlookStarted Then outApp.Quit End If Set outMail = Nothing Set outApp = Nothing MsgBox "تم ارسال الايميلات للجميع", vbInformation, "تأكيد" End Sub وجربه هتحتاج ان تضيف الاضافة دي

ممكن تضوح اكثر طلبك بالظبط لانى مش فاهم بالظبط حضرتك ايه ال انت عاوزه

انت ممكن تكتب السطر ده On Error Resume Next فى بدايو الكود عندك وهو هيتخطى كل الاخطأ ولا يظهر شئ منها للعميل

اعمل استعلام جديد وفى الاستعلام افتح وضع ال SQL فى طريقة العرض وفيها احذف المكتوب كله وضيف الكود ده SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=-32768)); واحفظ وكل سنه وانت طيب وبيها طبعا ممكن لو غيرت المعيار من -32768 الى 5 هيظهر لك الاستعلامات فقط

اشكرك على المعلومه الجديده دائما ما كنت اراه لما احب اعمل علاقه بين الجداول وكنت اعرف انه تبع النظام فكنت لا اقرب له اليوم عرفت له فائده كبيره جعله فى ميزان حسناتك

ممكن حضرتط تجرب تشوف هذا الموضوع

السلام عليكم اساتذتى الكرام معايا نموذج اريد كود يحصر جميع اسماء النماذج فى قاعدة البيانات وثم وضعها فى جدول مؤقت لحين نقلها فى الجدول الرئيسي وعمل استعلام الحاقى يضيف فقط النماذج الغير مضافة فى الجدول الرئيسي من الجدول المؤقت وبعدها تفريغ الجدول المؤقت اسم الجدول الاسايى هو FormsList اسم الجدول المؤثت TempList وشكرا TEST_OD.accdb

ارفع ملف افضل لتيسير الامر لكن مبدئيا اعمل استعلام اجمالى هيكون كافى ان شاء الله لطلبك

ارفع ملف لعمل اللازم

لا تتعب حالك اختر افضل اجابة طبعا بدون كلام اجابة الاستاذ @kanory افضل اجابه اسلوبه فى الحل جميع بالنسبه لمشكلة عدم قدرتك لرفع الملف ممكن تعمل ملف جديد وتضع فيه بعض الجداول بدون معلومات حقيقيه وتعمل الاستعلامات وترفعه لينا علشان نفهم ايه ال بتريده بالظبط وبالنسبه للطابعه فى الوندوز من ميكروسوفت فى طابعه PDF انا وندوز 10 عندي دي بدون برامج ممكن تستخدمها عادي زييها زي الطباعه الحقيقه

على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA وان مصدر بداية الفتره فى النموذج هو D1 وان مصدر نهاية الفتره هى D2 هترح للاستعلام بتاعك عند الاسم هتضيف المعيار بتاعك هو Forms![NameOfForm]![AAA] وفى التاريخ هتحط المعيار >=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2]

if me.combo = "XX1" then DoCmd.OpenReport xxxx1, acViewPreview end if if me.combo = "XX2" then DoCmd.OpenReport xxxx2, acViewPreview end if if me.combo = "XX3" then DoCmd.OpenReport xxxx3, acViewPreview end if دي اضافه بعد اذن الاستاذ @kanory دي كفكره مبدئيه لحد ما نفهم بالنموذج الخاص بك بعد تعديل اسم الكمبو والشروط والتقارير

ارفع ملف للعمل عليه

ارفع ملف للعمل عليه

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

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

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

فى استعلام اسمه Q_inventory_02x ده ال بيظهر فى الارصده بعد الطرح والاضافه

@د.كاف يار بعد اذن حضرتك عندي فى فاتورة المبيعات فى مشكلتين الاولى لما حبيت اطبق الكود الخاص بالقائمة علشان ابحث عن الاصناف بقي يخفي لى الصنف نفسه ولا استطيع ان اعيد اختيار الاصناف تاني المشكله الثانيه عاوز لما اكتب الكميه يبحث هل الكميه المتوفره تكفى المطلوب ام لا اذا كان لا يظهر لى رساله بان المخزون غير كافى او ما شابه فى المشكله الثانيه انا جهزت الاستعلام وكل شئ لكن مش عارف اجلب البيانات من الاستعلام عن طريق دالة Dlookup بيجبلى خطأ حاولت كثير وكلهم فشلو مش عارف ليه الداله دي تعباني مره تشتغل وتجلب لى معلومات ومره تجلب لى جلطه فى الدماغ 😁 321.accdb

@د.كاف يار والله اخجلنى اطرائك شكرا جزيلا ❤️ ❤️ ❤️ ❤️ ❤️

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

هو شغال والخطأ اختفى لا اعرف ليه او كيف لكن لما مثلا اكتب الصنف ممكن الاقى اخطأ مثل انه يظهر لى صنف او صنفين فقط مع انى لو خرجت منها وعدت لها مره اخرى الاقى ظهر لى باقى الاصناف وهناك خطأ يحدث مثل انه يعيد ترتيب الاصناف التى بالفاتورة وليس القائمه نفسها ده لما استخدم مفتاح Tab فى التنقل

هذا هو اشكرك كثيرا لكن فى مشكله ظهرت معايا