MO87

السلام عليكم السيد المحترم ابوخليل مجهود جميل جدا بارك الله فيك ولكن عندي استفسار: عند ارسال رساله لشخص لا يوجد دردشه معه سابقا لا يعمل هل من طريقه لارسال لاشخاص لا يوجد دردشه سابقه معهم

تفضل اخي حسب فهمي انت تحتاج كود لإضافة الجديد وتحديث السابق في الجدول في قاعدة بيانات db1 لنقلها الي db2 استيراد بيانات جدول.rar

جرب / Dim strFilter As String ' إنشاء الشرط لتصفية التقرير بحسب الشهر والسنة strFilter = "Month([TxtMonth]) =" & Month([TxtMonth]) & " AND Year([TxtMonth]) =" & Year([TxtMonth]) ' فتح التقرير باستخدام الشرط المعطى DoCmd.OpenReport "rptTransfer_BEA_Ccp", acViewPreview, , strFilter

تفضل حرب If Me.TheValueCcp <> 0 Then DoCmd.Close Dim stDocName As String stDocName = "Frm_VermLoans" DoCmd.OpenForm stDocName, , , "month([Auto_Date]) & year([Auto_Date])=" & Month([TxtMonth]) & Year([TxtMonth]) End If

تفضل محاولة احد الاعضاء تعمل بكفائة لاحظ جدول الاكسيل وقاعدة البيانات Access Import.rar

تفضل جرب count_day: IIf(IsError([date_end] - [hany] + 1), 0, [date_end] - [hany] + 1) او count_day: Nz([date_end] - [hany] + 1, 0) او ارسل مرفق للتجربة

السلام عليكم تم حل السؤال ولقد ارفقت قاعدة البيانات لعل احد غيري يستفيد منها. @kkhalifa1960 انا شاكر لك اخي لقد حاولت مساعدتي وانا لم استطيع اشرح لك ما اريد حيث ان الحل كان بسيط جدا firsttest-1.rar

اخي هذا النموذج للتحديد فقط اما عدد الايام فهو من النموذج sh من جدول غير هذا الجدول (بناء علي ادخال اسم الموظف في نموذج sh احتاجة يظهر مباشرة في جدول المستخدمين عند فتح الجدول لتحدديد الاسم ولمعرفة عدد مرات تسجيل الموظف لو لاحظت في نموذج sh الكود يظهر كل موظف هل سوف افعله الكود 300 موظف

الف مليون سلامة اخي شفاك الله وعفاك - اسال الله العظيم رب العرش العظيم ان يشفيك ويشفي جميع مرضي المسلمين لو لاحظت المرفق الاخير لي ستجد ما اريد انا احتاج عدد تكرار كل اسم وهو قيمة متغيرة وليس ثابته والقيمة تظهر صحيحة عند تحديد مؤشر الماوس احتاج ان يظهر مقابل كل اسم عدد مرات ظهورة وشكرا لك

تم الوصول الي حل سؤال منهم وهو تحديد الحقول وعدم تحديد باقي سؤال احتساب قيمة تكرار الاسم (الكود يعمل صحيح ولكن يجب تحديد مؤشر الموس عليه لكي يكون الناتج صحيح وهذا يحدث لان الحقل غير منضم والان عملت وحددة نمطية حاولت استدعائها من استعلام q1 ولكن لا تظبط ممكن المساعدة . وشكرا للجميع firsttest-1.rar

@kkhalifa1960 شكرا علي اهتمامك اولا السوال الاول قيمة n11 - ليست ثابته ولكن متغير حسب الادخال في نموذج sh ثانيا عند التحديد يتم التحديد وعند الغاء تحديد مربع يتم الغاء الكل شكرا علي مجهودك

السلام عليكم السادة خبراء واعضاء الجروب المحترمين (تحية طيبة) عندي قاعدة بيانات بها عدد 2 نموذج احتاج في نموذج SEmp1 اولا احتاج عند تحديد الشيك بوكس cn لو ضغط علي سجلين قيمة str_Text تساويهم بهذا الشكل fad+hop وكذلك لو اكثر من تحديد حيث الناتج يكون اول سجل فقط تم تحديده بمؤشر الموس (الكود الخاص بي يعطي الناتج صحيح ولكن بعد تحديد السجل بالمؤشر الموس) ثانياً : احتاج عند فتح النموذج قيمة n11 تساوي الحقل empname ان يتحدث امام كل سجل القيمة الخاصة به مثلا fad=4 hop =5 حيث الناتج يكون اول سجل فقط تم تحديده بمؤشر الموس (الكود الخاص بي يعطي الناتج صحيح ولكن بعد تحديد السجل بالمؤشر الموس) كما صممت وحدة نمطية وتم الاستدعاء ولكن نفس الناتج وشكرا مقدما firsttest.rar

ممكن التطبيق علي بوربيونت بدل وارد

الكود يعمل لقد جربت مثال ويعمل <> تساوي = المشكلة عندك في تعارض بعض الاكود مع بعضها احيانا بعض الاكواد تتعارض مع بعض فيجب معرفة مكان استخدام الكود (تقرير - نموذج) هل بطبق علي حقل منضم او غير منضم ارفع ملف لمعرفة الخطا سوف ارفق لك مثال بسيط يعمل Database21.rar

تفضل اخي لاحظ يظهر في الطباعة تم اضافة زر طباعة pdf سوف تجد كل اسم في صفحة data.rar

السلام عليكم لقد وجدت قاعدة البيانات علي موقع اجنبى وكانت المخرجات ورقة واحدة الان عدلت الكود علي الكود مثلا ان المخرج يكون 3 شرائح المفروض ان يكون لكل صفحة في الملف شريحة بوربيونت الكود يعمل ولكن يتم وضع اول صفحة في جميع الشرائح احتاج كل صفحة في ملف pdf تساوي شريحةpowerpoint وهل لو في طريقة اخري احتاج تنفيذ الامر بدون مكتبات خارجية الموضوع تقريبا جديد لم اجده في البحث وشكرا مقدما FAULTS COMPLAINT.ZIP

تم الحل وهذا هو كود التحديد Dim rs As Recordset Set rs = Me.RecordsetClone rs.MoveFirst Do Until rs.EOF rs.Edit If rs![Select] = "R" Then rs![Select] = "T" Else rs![Select] = "R" End If rs.Update rs.MoveNext Loop DoCmd.SetWarnings True Exit Sub ErrorHandler: MsgBox "Error " & err.Number & ": " & err.Description End Sub

السلام عليكم السادة المحترمين اعضاء وخبراء اوفيسنيا احتاج تحديد السجلات بعد الفلترة بحيث يكون التحديد للسجلات المفلتره فقط انا عندي زر يقوم بالتحديث في الجدول وهذا مشكلة احيانا احتاج مجموعه من الاسماء لنسخها الي جدول اخر لا احتاج تحديد كل الحقول في الجدول كما يوجد كود للبحث حسب قيمة الاسم والمدينة احتاج بعد تنفيذه اقوم بتحديد السجلات بعد الفلترة وشكرا للجميع FILTER.rar

السلام عليكم اخر ما توصلت اليه اني اقوم بطباعة التقرير اولا في نفس مسار قاعدة البيانات وبعدها اقوم بارسال الاوتلوك وبعدها القود يعمل ياخذ التقرير + المرفقات احتاج ان العملية تتم مباشرة من نفس زر ارسال اوتلوك بحيث يطبع التقرير يساوي id نفس السجل + المرفق الرجاء من السادة الخبراء المساعدة test1.rar

تم تعديل الكود والان يجلب المرفق والتقرير معا في الاوت لوك الان احتاج ان يرسل تقرير نفس الحقل اللي بيساوي id Dim OutApp As Object Dim OutMail As Object Dim strbody As String Dim strto As String Dim strsubject As String Dim strattachments As String strto = "" strsubject = "" strbody = "" strattachments = Me.Imagepath.Value Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = strto .subject = strsubject .Body = strbody .Attachments.Add CurrentProject.Path & "\reportnotice.pdf" .Attachments.Add strattachments .Display End With Set OutMail = Nothing Set OutApp = Nothing

السلام عليكم انا اشتغلت علي كود ارسال الاميل مع المرفقات والكود شغال يفتح الاوتلوك ومعه المرفق ولكن التقرير لا يتم ارسالة الرجاء المساعدة في فتح الاوتلوك علي المرفق والتعميم سويا وشكرا مقدما لحضرتكم On Error Resume Next Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Dim StrTo As String Dim StrSubject As String Dim StrBody As String Dim StrAttachment As String Dim fileName As String Dim db As DAO.Database, rs As DAO.Recordset fileName = Application.CurrentProject.Path & "\reportNotice.pdf" DoCmd.OutputTo acReport, "reportNotice", acFormatPDF, fileName, False Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(olMailItem) StrTo = "" StrSubject = "reportNotice" StrBody = "Please find the attached report." StrAttachment = Me.Imagepath.Value With OutlookMail .To = StrTo .subject = StrSubject .Body = StrBody .Attachments.Add StrAttachment .Display .oMail.Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing end sub

تمام اخي @ابوخليل بارك فيك وجعله في ميزان حساناتك

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

اخي @ابوخليل لو لاحظت العلاقه في الجداول one to many بدل إدخال البيانات حقل حقل احتاج نسخ المعرف من جدول one لكل السجلات اللي هحددها المفروض عندي حقل التاريخ ورقم الإجراء الإثنين متغيرين في جدول many احتاج طريقه تسهل الإدخال بدل لما اكتب كود المعرف ١ وادخل التاريخ ورقم الإجراء لكل حقل احتاج بعد التحديد يفتح النموذج الاخر بنفس طريقه استعلام التحديث لكن البيانات هتتكرر وكل شعر الإجراء والتاريخ هيتغير الموضوع ذي فتح النموذج علي سجل جديد ويفتح لكل سجل محدد سجل جديد مثلا لو حددت ١٠ سجلات يفتح النموذج الاخر مضاف ليه ١٠ سجلات بنفس كود المعرف وشكرا لاهتمام حضرتك