MO87

السلام عليكم بداية الكود كانت من الاستاذ الفاضل @ابوخليل يشرفني ان ارسل لكم تعديل بارسال المرفقات عبر واتساب ويب اي نوع مرفق يمكن ارساله (مستند / صورة /فديو /اكسيل -وارد - يمكنك اضافة اي امتداد بالكود وسيقوم بارساله - يمكنك ارسال تقرير مياشرة او تحديد مرفق - يقوم بالارسال لعدد غير محدود الارقام المضافة لديكم وغير المضافة . تغير وزيادة نوع المستند او المرفق من هنا AttachmentPath = reportPath ' تحديد نوع المرفق بناءً على المسار المحفوظ If InStr(reportPath, ".pdf") > 0 Then AttachmentType = 1 ' ملف PDF ElseIf InStr(reportPath, ".doc") > 0 Or InStr(reportPath, ".docx") > 0 Or InStr(reportPath, ".xls") > 0 Or InStr(reportPath, ".xlsx") > 0 Or InStr(reportPath, ".ppt") > 0 Or InStr(reportPath, ".pptx") > 0 Then AttachmentType = 1 ' ملف PDF ElseIf InStr(reportPath, ".jpg") > 0 Or InStr(reportPath, ".jpeg") > 0 Or InStr(reportPath, ".png") > 0 Or InStr(reportPath, ".gif") > 0 Or InStr(reportPath, ".bmp") > 0 Or InStr(reportPath, ".tif") > 0 Or InStr(reportPath, ".tiff") > 0 Or InStr(reportPath, ".webp") > 0 Or InStr(reportPath, ".svg") > 0 Then AttachmentType = 2 ' صورة ElseIf InStr(reportPath, ".mp4") > 0 Or InStr(reportPath, ".avi") > 0 Or InStr(reportPath, ".mov") > 0 Or InStr(reportPath, ".wmv") > 0 Then AttachmentType = 2 ' صورة ElseIf InStr(reportPath, ".sticker") > 0 Then AttachmentType = 6 ' ملصق Else ' يمكنك إضافة المزيد من الامتدادات إلى هنا إذا لزم الأمر AttachmentType = 0 ' غير معروف End If ملحوظة عند اي تحديث لواتساب يجب تعديل خاصية send key ( ' إرفاق المرفق إذا كان موجودًا If AttachmentPath <> "" Then ' الانتقال لزر إرسال المرفقات الجديد ' الانتقال لزر إدراج المستندات الجديد SendKeys "+{TAB}" ' الرجوع خطوة واحدة SendKeys "+{TAB}" ' الرجوع خطوة إضافية إذا لزم الأمر SendKeys "~" ' الضغط على الزر Sleep 1000 ' الانتظار لفتح مربع اختيار الملف ) كنت من فتره طورت الكود لصديقي وقفلت الموضوع اليوم طلبه مني صديق اخر احببت اشارك الجميع الكود ربما ينتفع به غيرنا كما تعلمنا من هذا الجروب العظيم يشهد الله اني تعلمت الاكسس من هذا الجروب العظيم وكل شخص فيه له فضل عليا ولم يقصر اي شخص في المساعدة. cash1.rar

لم ابحث في اليوتيوب ولكن كان عندي مشروع مماثل لك استخدمت الذكاء الاصطناعي وحاولت حتي وصلت للمراد، اعطني قاعدة البيانات الخاصة بك به الجدول وسوف اكتب لك كود يقوم بتصميم الصفحة HTML مع اكواد الجافا سكربت وكود الحفظ والاسترجاع من PHP المرفق المرسل اقوم بتصدير البيانات من قاعدة البيانات تحتاج الي برنامج مثل XAMPP كالمرفق وتضع ملف في htdocs من البرامج من C وجرب ادخال البيانات سوف تقوم بالحفظ والاسترجاع بعدها ستحتاج كود في قاعدة البيانات يقوم بتصدير البيانات الي جدول اكسس بالتوفيق ان شاء الله mymapproject.rar

وعليكم السلام اخي انا اقوم بتصدير البيانات من اكسس الي html واعمل عليها ستحتاج لغة مثل php للحفظ واسترجاع البيانات وستحتاج سرفر محلي داخلي يوجد برامج كتير انا استخدم XAMPP كسرفر محلي واقوم بادخال البيانات في النماذج واسترجاعها ويمكنك المشاركة علي شبكه الويب باستخدام مستضيف مجانا يمكنك مشاركة الصفحة لاكثر من مستخدم.

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

تفضل اخي حسب فهمي انت تحتاج كود لإضافة الجديد وتحديث السابق في الجدول في قاعدة بيانات 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