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 ثانيا عند التحديد يتم التحديد وعند الغاء تحديد مربع يتم الغاء الكل شكرا علي مجهودك