كل الانشطه

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله وبركاته في الملف المرفق محتاج اعمل قوائم للفصول بناء علي جدول الطلاب Tbl_student ويتم ترحيله الي التقرير Rpt_CLASSES1 وهو مقسم لنصفين لذكور وأناث بحيث اختار الصف تطبع كل الفصول المرتبطة به دفعة واحدة كل فصل في تقرير منفصل ...... ولكم كل الشكر والتقدير emad.accdb

أعتقد أن هذا هو صُلب المشكلة 🥴

شكرا لكم جميعا وبارك الله فيكم وأكثر الله من أمثالكم الخيرين وأنا آسف علي التأخير في الرد لأني كنت مشغولا

الحقيقة أني لا أستطيع فتح الموقع إلا بإستخدام VPN (ولا أعرف أسباب الحجب؟؟؟) ولكن طالما أني إستطعت فتح الموقع عبر المتصفح لماذا لم يستطيع أكسس ؟

تم معالجة المسألة بحيلة ارجاع مقطع التفصيل الى = صفر rpt.Section(acDetail).Height = 0 المرفق ادناه تطبيق للكود اعلاه تم ايقاف الاجراء الخاص بالتعديل على النموذج والاكتفاء بما يخص التقارير استخدمت مكتبة وورد من اجل جلب جميع خطوط النظام لذا نلاحظ بطأ قليلا عند فتح الفورم ... وعلاجه هو في عمل دالة خاصة يتم فيها انتقاء خطوط حسب الرغبة وقابلة للاضافة والحذف xsaadx4.rar

نعم استاذي هو ما تفضلت به ولكن باستبعاد استخدام Api ودوشة 32 و 64 حتى لو اردنا عرض جميع خطوط النظام فمكتبة وورد تفي بالغرض هذه الدالة لوحدها تكفي على النحو التالي .. ولكن مسألة ارتفاع الحقل بحاجة الى اعادة نظر حسب تصوري لمراعاة مقطع التفصيل عند التصغير والتكبير يعني اعتقد يجب ان يكون هناك توافق طردي بينهما Sub ApplyGlobalFormatting(ByVal MyFont As String, ByVal MySize As Integer, ByVal RowHeight As Integer) Dim db As DAO.Database Dim doc As DAO.Document Dim frm As Form Dim rpt As Report Dim ctl As Control Set db = CurrentDb On Error Resume Next '---------------------------------------------------- For Each doc In db.Containers("Forms").Documents DoCmd.OpenForm doc.Name, acDesign, , , , acHidden Set frm = Forms(doc.Name) For Each ctl In frm.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Or ctl.ControlType = acLabel Then ctl.FontName = MyFont ctl.FontSize = MySize End If ctl.Height = RowHeight Next ctl DoCmd.Close acForm, doc.Name, acSaveYes Next doc '------------------------------------------------------- For Each doc In db.Containers("Reports").Documents DoCmd.OpenReport doc.Name, acDesign, , , acHidden Set rpt = Reports(doc.Name) For Each ctl In rpt.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acLabel Then ctl.FontName = MyFont ctl.FontSize = MySize End If ctl.Height = RowHeight Next ctl DoCmd.Close acReport, doc.Name, acSaveYes Next doc Set db = Nothing End Sub '---------------------------------------------------- Private Sub btnApply_Click() Call ApplyGlobalFormatting(Me.cmbFonts.Value, Me.txtSize.Value, Me.txtHeight.Value * 567) MsgBox "تم تطبيق التنسيقات بنجاح!", vbInformation End Sub

شكرا لمرورك العاطر أخي @منتصر الانسي 🙂 .. قمت بتحميل النسخة لأتأكد وما ظهرت عندي المشكلة .. فعرضتها على ال AI وكان هذا رده : --------------------------------------------------------------------------------------------------------------------------------------------------------- هذا الخطأ The server name or address could not be resolved (ورقمه الشهير 2147012889- أو 0x80072EE7) يعني ببساطة أن الكود غير قادر على الوصول إلى خادم (سيرفر) موقع remove.bg. بمعنى آخر: الكمبيوتر الخاص بك لم يتعرف على العنوان الرقمي (IP) للموقع المرسل إليه الطلب. 🔍 الأسباب الشائعة لهذه المشكلة: انقطاع الإنترنت: الجهاز الذي يعمل عليه نظام أكسس ليس متصلاً بالإنترنت في تلك اللحظة. مشكلة في الـ DNS: نظام الـ DNS في الشبكة أو الروتر عاجز عن ترجمة الرابط api.remove.bg إلى عنوان IP. جدار الحماية (Firewall) أو برامج الحماية: قد يقوم جدار حماية الويندوز أو برنامج الأنتي فيرس بحظر برنامج Microsoft Access من إجراء اتصالات خارجية (خارج الشبكة المحلية). خطأ إملائي في الرابط: تأكد أن الثابت في أعلى الكود مكتوب تماماً هكذا بدون أي مسافات أو أخطاء: https://api.remove.bg/v1.0/removebg 🛠️ كيف تحل المشكلة؟ تحقق من الاتصال: تأكد من أن الإنترنت يعمل بشكل طبيعي على نفس الجهاز من خلال فتح المتصفح وتجربة فتح أي موقع. تغيير الـ DNS (إذا تكررت المشكلة): جرب تغيير الـ DNS في إعدادات الشبكة بالجهاز إلى DNS سريع ومستقر مثل DNS جوجل الشهير (8.8.8.8 و 8.8.4.4). السماح لأكسس بالاتصال: تأكد من أن جدار الحماية لا يمنع MSXML2.ServerXMLHTTP من إرسال البيانات. ---------------------------------------------------------------------------------------------------------------------------------------------------------

تفضل قمت بتعديل المثال لينفذ طلبك الان كل ما عليك هو فتح الوحدة النمطية Module1 وتعديل المسميات "SouSou1-SouSou2-SouSou3-....SouSou14" إلى أي أسماء ترغب بها تحياتي internet.rar

أطلب من الزملاء المساعدة في ادراج حماية للصفحة مع الحفاظ على الخصائص الموجودة ، حيث اثناء الحماية يطالب الغاء الكود Cells.Interior.ColorIndex = xlNone و عدة اكواد اخرى و هي مهمة لا أريد الاستغناء عنهاو بارك الله فيكم مسبقا. جدول الحراسة.xlsm

السلام عليكم الاخوة الكرام من فضلكم محتاج مساعدة حضراتكم فلي الشيت دةى يكون في الجرد الشهري نتيجة الصافي لكل يوم حسب التاريخ اتواماتيك ( الصافي الشهر ) تصفيات العيادات.xlsx

التصدير بصيغة PDF غير متاح من داخل أوفيس 2003 لكنه متاح فى باقى الإصدارات ، و أظن أن باقى زملائي القدامى يعلم بأنه كانت هناك صيغة تصدير snp مدمجة فى 2003 ( Snapshot Viewer ) وهى ممتازة فى الاحتفاظ بتنسيق الملف كاملاً بكل جداوله وباقى محتوياته ويمكن الطباعة منها مثل الصورة : وقد استخدمت الكود التالي فى استخراج الملف السابق وحفظه فى مكان محدد بالكمبيوتر Private Sub btnSnap2_Click() On Error GoTo Err_btnSnap2_Click Dim defaultFolder As String Dim filePath As String defaultFolder = "D:\_BackUp_Teacher\" If Not (Me.cbo_Class = "") Then If Dir(defaultFolder, vbDirectory) = "" Then MkDir defaultFolder End If filePath = defaultFolder & [Forms]![frm_Section]![cbo_Class] & ".snp" DoCmd.OutputTo acReport, "1_سرى_القاهرة_مع_داخلى", "SnapshotFormat(*.snp)", filePath, False, "", 0 MsgBox "تم استخراج ملف سناب شوت وحفظه في:" & vbCrLf & vbCrLf & filePath, vbInformation + vbMsgBoxRight, "" Else MsgBox (" !!!!! عفواً ،،،، أختر مجموعة من القائمة"), vbOKOnly + vbMsgBoxRight, "ملاحظـة" End If Exit_btnSnap2_Click: Exit Sub Err_btnSnap2_Click: MsgBox ("لا يوجد سجلات لتصديرها "), vbOKOnly + vbMsgBoxRight, "تنبيه" Resume Exit_btnSnap2_Click End Sub بالتجربة وجدت أن هذه الوسيلة متاحة أيضاً فى باقى الإصدارات بشرط تثبيت ملف Snapshot المرفق فهل من وسيلة لإضافة الكود السابق لبنود القائمة المختصرة أعلاه ؟؟ Snapshot Viewer 10.rar

السلام عليكم و رحمة الله و بركاته لقد فتحت الموقع الذي ارسلته و تتبعته جيدا و حاولت ان افهم و لكني لم اتمكن من من معرفة amr1 and amr2 النتيجة تقارب ما اود ان اصل اليه و لكن يمكن يكون بطريقة اخرى وهي كما نصصت عليها في الصور المرفقة ما اردت ان اتمكن من انجازه وهو بمجرد مرور الفارة على كلمة suivi vente الموجودة في الصورة رقم 1 تظهر قائمة التي مصدرها كما في الصورة الرقم 2 و تكون نافذة على شكل الموجود في الصورة رقم 3 و لكم جزيل الشكر. النموذج الذي تركت ؤابطه هو ذو قيمة و ممكن لو كان مفسرا بفيديو لكان اكثر نفعا و لكم جزيل الشكر والامتنان على المجهود الذي تقوم به need help.rar

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

إسمح لي أخي @ابوخليل أن أوضح هذه النقطة عندما يتم تعريف المتغيرات بالكلمة المفتاحية Const فإننا نقوم بتعريف قيمة ثابتة غير قابلة للتعديل إلا عن طريق الدخول إلى محرر VBE وتعديلها ولن نستطيع التعديل من النموذج سواء كانت متغيرات خاصة أو عامة أما مسألة أني جعلتها معلمات للإجراء نفسه فذلك لجعله مختصراً وأكثر مرونة فلو إفترضنا أن المتغيرات كانت عامة على مستوى النموذج فعند إستدعاء الإجراء سنضطر إلى كتابة أمر الإستدعاء بالشكل التالي MY_FONT = cboFonts MY_SIZE = txtFontSize ROW_HEIGHT = txtRowHeight * 567 Call ApplyGlobalFormatting حيث أنا سنقوم أولاً بتعيين قيمة لكل متغير ثم إستدعاء الإجراء أما عندما جعلنا المتغيرات كمعلمات للإجراء فإن أمر إستدعاء الإجراء أصبح بالشكل التالي Call ApplyGlobalFormatting(cboFonts, txtFontSize, txtRowHeight * 567) وأنا أطبق هذا الأسلوب دائماً لسهولته تخيل أننا نحتاج إلى إستدعاء إجراء أو دالة ما لأكثر من مرة وبمعلمات مختلفة فبدل أن نحتاج إلى 5 او 6 أسطر لكل إستدعاء سنكتفي بسطر واحد في الأخير مهما إختلفت طرق الحل لكنها تؤدي إلى نفس النتيجة وكما يقول المثل كل الطرق تؤدي إلى روما تحياتي

متابع

تفضل استاذ @بلال بلال كل طلباتك اليك الشرح والمرفق بعد التعديل . ووافني بالرد . Import Excel From Gmail_Belal-2.rar

اعرض الملف 🖼️ أداة جميلة لإزالة خلفيات الصور | سلسلة هدايا الأكسس | ⭐ 🎁 السلام عليكم ورحمة الله وبركاته لكسر الروتين وعموم الفائدة 😎👌 أقدم لكم أداة جديدة بفكرة جديدة 🙂 :: أداة إزالة خلفيات الصور :: الهدف من الأداة واضح >> وهو ببساطة إزالة خلفيات الصور >> والناتج صورة بخلفية شفافة بصيغة png . ولها استخدامات كثيرة في الاحتياجات العامة أو لتشذيب الصور قبل إدراجها في برنامج الأكسس مثلا .. أو .. أو .. أو .. عدد ما شئت أنا شخصيا أحتجتها في برنامجي (صانع الشهادات) لإزالة خلفيات التواقيع 🖋️📜 ثم إضافتها للبرنامج كمرفق. الأداة فكرتها بسيطة >> الإتصال بموقع remove.bg المشهور عن طريق ال API والعود بالناتج بدون الحاجة لفتح الموقع. مفتاح الـAPI الحالي هو خاص بي ويمكنكم استخدامه مباشرة ولكنه محدود ب 50 تحويل لليوم .. في حال رغبتك بوضع مفتاحك الخاص ( وهي خدمة مجانية بالمناسبة ) يمكن تغييره في أول صفحة الكود وقد وضحت الطريقة هناك . 🙂 الملف مفتوح المصدر :: ودعواتكم الطيبة 🙂 صاحب الملف Moosak تمت الاضافه 06/22/26 الاقسام قسم الأكسيس  

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

مشاركة مع اساتذتي تفضل استاذ @2saad محاولتي حسب ما فهمت اليك الشرح والمرفق . ووافني بالرد 2saad_Font, size, and row height.rar

طلبي منه المثال من اجل اجعل نقل الفكرة الى مشروعه يسيرا اما اذا تسألني عن رأيي فما دام ان الكود نجح عنده .. فأقرب وأسهل طريقة هو استبدال المتغيرات الثابتة في الكود وجعلها متغيرة عامة فقط ومناداتها من الفورم .. اقصد هذه : Const MY_FONT As String = "Arial" ' اسم الخط Const MY_SIZE As Integer = 12 ' حجم الخط Const ROW_HEIGHT As Integer = 450 ' ارتفاع الصف (بالتويت Twips: كل 1 سم تقريباً 567 تويت)

عفواً أخي @ابوخليل أنا حبيت أسهل الأمر على الأخ صاحب الموضوع فقد قال أن الكود ناجح ولا يريد إلا هذه الإضافات فوضعتها له في مثال يحتوي الحد الأدنى التعديلات التي سيقوم بتنفيذها على تطبيقه لتجربتها أما موضوع إحتواء البيانات في التقرير فلا أعتقد أن الكود له دخل بهذا الموضوع لانه سيقوم بتعديل حجم الخط بغض النظر عما إذا كان مناسباً أم لا أليس كذلك؟

السلام عليكم ...عندي ملف غياب طلبة ويقوم باصدار رسائل الى اولياء الامور ...الان اريد كود يقوم بارسال هذه الرسائل عبر واتس اب ويب ...تحياتي للمنتدى وجميع الاعضاء واتس اب ويب.xlsm

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

استاذ ترحيل البيانات الى الورقة Feuil1 الحقول بالون الأزرق لا تفرغ الحقول عند الترحيل ترحيل البيانات الى الورقة Feuil12 الحقول بالون الأصفر وعند الترحيل تفرغ الحقول تكون بأيقونة وترحيل البيانات الى الورقة Feuil13 الحقول بالون الأحمر وعند الترحيل تفرغ الحقول تكون بأيقونة والحقول الفارغ لم يتم ترحيل