كل الانشطه

قمت بنقله

اداة بسيط للتحويل الملفات من PDF الى صور يدعم برامج الوسيط من غير تقيد Adobe ومع اي ابديت وتحديث 1- يمكن تصغير حجم النافذة اقل من المستطيل كود بسيط لتصغير حجم عرض الصفحة 2- يمكن حذف الاضافة وعرض ==( -للاستكمال استبدل 100% بعدد الاجمالي للصفحات مع بعض التعديل قبل الانتهاء لقياس شريط التقدم + عند ضغط تنفذ الا ستخراج يجب الغاء تمكين الحقول والازرارا ☕ ==( لنظر اعتقد فتح موقع بسيط لعرض المواضيع تحميل قريبا عند حساب @hanan_ms استاذ @Foksh هل تنصح بستخدام ادوات OLE للصور ( للاستخراج للورد و الاكسل وادوبي ) تحميل المرفق https://www.mediafire.com/file/p3lw3gxlb2g5cv4/PDF_To_IMG_Trluoon.accdb/file

مداخلة وآمل ان يتسع صدر صاحب المسألة لملاحظتي . طريقة التصميم بحاجة الى اعادة نظر جعل كل نوع له حقوله الخاصة غير عملي .. ومخالف لنظام قواعد البيانات ... طريقتك هذه مكانها اكسل

الأخوة أعضاء وزوار هذا الصرح العظيم السلام عليكم ورحمة الله وبركاته اقدم لكم ملف مواقيت الصلاة لعدد 9 مدن من مدن المملكة أتمني ينال إعجابكم مواقيت الصلاة.xlsm

70% من التحديث قد تم بنجاح .. باقي القليل 😉

تحية طيبة اخي و استاذنا @Foksh مشكور جدا على الرد وعلى سرعة الإجابة الحل الأول يبدو جيدا جدا و يفي بالغرض أنا سأستعمل نمودجين عند ادخال البيانات النموذج الأول خاص : بالمهندسين و واضع شرط في النموذج loifondamontale = مهندسين النموذج الأول خاص : بالمعلمين و واضع شرط في النموذج loifondamontale = معلمين فلن أستعمل مربع النص بعد التحديث سأجرب هذه الأكواد في النموذج في حدث عند الحالي مثلا كون سأبتعد عن الكمبيوتر -سأجرب هذا الحل بعد سويعات (قبل المساء ) ,اخبرك بالنتيجة جزاك الله كل الخير أخي وبارك الله فيك

بسيطة أخي جو .. احذف التسمية من خصائص التقرير ( Caption ) فقط وسيعمل معك بدون مشاكل تفضل ملفك بعد التعديل :- LAb (1).zip

الخبير الفاضل قمت بتطبيق اللى حضرتك كتبتة واعطى نتائج رائع لكن مع التقرير YOUSSEF وعند تغيير اسم التقرير الى External_lab_Mokh لم يعد يعمل هل هناك شئ فى خصائص التقرير youssef غير موجود التقرير External_lab_Mokh ارجو المساعدة

وعليكم السلام ورحمة الله تعالى وبركاته 🤗 كإجابة على السؤال المهم في طلبك ، إن كان يمكن تحقيقه من خلال الجدول نفسه ، فإجابتي لا . ما لم يكن هناك رأي آخر . فمثلاً لا تستطيع ادخال قيمة افتراضية لحقل ما داخل جدول من خلال معادلة أو جملة شرطية . كمثال:- =IIf([loifondamontale]="المهندسين", 1, 0) ولا أحاول إحباطك ، فيمكن تحقيق الهدف بطرق مختلفة . منها استخدام الجمل الشرطية المعقدة داخل حدث بعد التحديث لمربع النص او الكومبوبوكس loifondamontale كمثال للتوضيح بالافتراض ان لديك نموذج لإدخال البيانات في هذا الجدول :- Private Sub loifondamontale_AfterUpdate() Dim typ As String typ = Me.loifondamontale If typ = "مهندسين" Then Me.evalu_moubadara_chaksia = 5 Me.evalu_itkan_elamel = 4 Me.evalu_nachatat_tarbia = 3 Me.evalu_absence = 0 Me.evalu_retard = 1 Me.evalu_tatwir = 2 Me.evalu_absence_prof = 0 Me.evalu_retard_prof = 0 Me.evalu_nadawat_prof = 0 Me.evalu_nachatat_tarbia_prof = 0 Me.evalu_mobadara_prof = 0 ElseIf typ = "معلمين" Then Me.evalu_absence_prof = 1 Me.evalu_retard_prof = 2 Me.evalu_nadawat_prof = 3 Me.evalu_nachatat_tarbia_prof = 4 Me.evalu_mobadara_prof = 5 Me.evalu_moubadara_chaksia = 0 Me.evalu_itkan_elamel = 0 Me.evalu_nachatat_tarbia = 0 Me.evalu_absence = 0 Me.evalu_retard = 0 Me.evalu_tatwir = 0 Else Me.evalu_moubadara_chaksia = 0 Me.evalu_itkan_elamel = 0 Me.evalu_nachatat_tarbia = 0 Me.evalu_absence = 0 Me.evalu_retard = 0 Me.evalu_tatwir = 0 Me.evalu_absence_prof = 0 Me.evalu_retard_prof = 0 Me.evalu_nadawat_prof = 0 Me.evalu_nachatat_tarbia_prof = 0 Me.evalu_mobadara_prof = 0 End If End Sub هذا كإقتراح أول يعتمد على الجملة الشرطية المتعددة ( أو حتى باستخدام Case ) وكلاهما يؤدي الغرض نفسه . أما عن وجود حل آخر وهو استخدام جدول للقيم الإفتراضية التي تريدها ولنفترض انه سيتكون من 3 حقول ( نوع الموظف ، اسم الحقل ، القيمة الإفتراضية ) - أسماء مجازية - وتملأ القيم مرة واحدة ( وقد يكون لها مستقبلاً نموذج لتعديلها حسب رغبتك ) . ثم وبنفس النمط - في حدث بعد التحديث لمربع النص نفسه أو الكومبوبوكس - نستخدم أسلوب كمثال :- Private Sub loifondamontale_AfterUpdate() Dim rs As DAO.Recordset Dim fldName As String, defVal As Variant Set rs = CurrentDb.OpenRecordset("SELECT * FROM tbl_DefaultValues WHERE نوع_الموظف = '" & Me.loifondamontale & "'") Do While Not rs.EOF fldName = rs!اسم_الحقل defVal = rs!القيمة_الافتراضية Me(fldName) = defVal rs.MoveNext Loop rs.Close Set rs = Nothing End Sub 💡 وفي هذا الحل من الضروري أن تكون أسماء مربعات النص ( في النموذج ) مطابقة تماماً لأسماء الحقول في الجدول . وقد يكون هناك حلول اخرى تعتمد على الاستعلامات تحديث ، ولكنك هنا ستحتاج شرطاً لتحديد السجل الحالي برقم الموظف أو id الحقل ... إلخ. جرب ولن تخسر شيء 😇.

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل في هذا الموضوع أريد وضع قيمة افتراضية لحقل في جدول بشرط القاعدة المرفقة بها جدول مختصر الحقول يمثل تقييم الموظفين - في السابق كان عندي نوع واحد من الموظفين والآن اريد أن أضيف له عدة انواع من الموظفين ( مهندسن - معلمين...) وكل نوع من الموظفين عنده تقييمات خاصة وهذه التقييمات الخاصة (الحقول) وضعت لها قيم افتراضية خاصة بها لتسهيل عملية حجز البيانات (تكون محجوزة تلقائيا) فقط أقوم بتغيير التقيمات إذا كان هناك تغيير. مثال في الجدول : فيه نوعين : النوع الأول: المهندسين النوع الثاني : المعليمن وذلك حسب ما يظهر في الحقل المسمى : loifondamontale النوع: النوع الأول: المهندسين عنده مجموع من التقييمات ( الحقول) الخاصة بالموظفين لهذا النوع وهي : * evalu_moubadara_chaksia* evalu_itkan_elamel* evalu_nachatat_tarbia *evalu_absence * evalu_retard * evalu_tatwir هذه الحقول (التقييمات) وضعت لها قيم افتراضية موضحة في الجدول من فضلكم اريد مايلي :الحقول هذه تأخذ القيمة الافتراضية الخاصة بها المبينة في الجدول إذا كان النوع (الحقل) المسمى loifondamontale يساوي : المهندسين وإذا كان مختلف تأخذ القمية صفر. النوع: النوع الثاني: المعلمين عنده مجموع من التقييمات ( الحقوول) الخاصة بالموظفين لهذا النوع و هي : evalu_absence_prof * evalu_retard_prof * evalu_nadawat_prof * evalu_nachatat_tarbia_prof * evalu_mobadara_prof هذه الحقول (التقييمات) وضعت لها قيم افتراضية موضحة في الجدول من فضلكم اريد مايلي :الحقول هذه تأخذ القيمة الافتراضية الخاصة بها المبينة في الجدول إذا كان النوع (الحقل) المسمى loifondamontale يساوي : المعلمين وإذا كان مختلف تأخذ القمية صفر. نتمنى أني قد أوصلت الفكرة لكم وهل يمكن تجسيدها بالاعتماد على الجدول فقط أو الإعتماد على طريقة اخرى الرجاء المساعدة والتوجيه وبارك الله فيكم BASE-E.accdb

استخدم تحديث النموذج Docmd.Requery بعد رسالة تأكيد نجاح الاستيراد

الاخ شايب ينصح بالغاء العمليات الحسابية من الاستعلام ونقلها للنموذج وسوف تختفي الرسالة الشايب

السلام عليكم لقد قمت بوضع كود استراد ملف ويعمل بشكل عادي لا تظهر البيانات في النموذج عند استراد حتى نقوم بغلق النموذج واعادة فتحه مجلد 1.rar

بارك الله فيك أخي الفاضل وأكثر الله من أمثالك تمام

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

وعليكم السلام ورحمة الله وبركاته.. للإستيراد من اكسل الى اكسيس ، راجع هذا الموضوع:- أما التصدير من اكسيس لإكسل ، فأعتقد أن الكثير من المواضيع في المنتدى تحدثت عنه ، استخدم خاصية البحث ، علك تجد ما يناسبك. *أتابع من الجوال*

التكرار مفهوم .. وتم التعديل ولكن الملاحظة الثانية .. عندما تختار الفصل الدراسي فقط .. هات اسم لم يظهر ملحوظة : عملت لك زر تحديث من اجل تهيئة النموذج عن الشوائب بين تصفية واخرى بمعنى لما تختار تصفية حسب الصف وترج ع مرة اخرى تعمل تصفية حسب الترم فقط يجب ان تعمل تحديث لأن المسح اليدوي للحقول لا يؤدي الغرض وربما تبقى القيمة عالقة بعد المسح اذا لم يتم التحديث Data132.rar

السلام عليكم لدي جدول اسم Eleve اريد تصدير الجدول الى الاكسيل المرفق مع البرنامج واستراد من الاكسيل الى الجدول بارك الله فيكم اليكم البرنامج مرفق مع الاكسيل مجلد جديد.rar

لدي ملف اكسس لحساب صرفيات الوقود للمولد وهو يعمل بصورة جيده ونتائجه صحيحه والعمليات الحسابية في الاستعلام ليست معقدة لكن عند فتح سجل جديد ومليء البيانات تظهر رسالة لايمكن تحديث الحقل تحياتي test.accdb

شكرا جزيلا أخي الفاضل foksh شكرا جزيلا أخي الفضل أبو خليل أدام الله عليكما الصحة والعافية المقصود بالفرق ( الصفوف ) بعد الاطلاع علي ملف أخي الفاضل أبو خليل عند اختيار الفصل الدراسي والفئة والصف يظهر في التقرير الغائبين ولكن مكررين وكمان عند اختيار الفصل الدراسي فقط لا يظهر في التقرير كل الغائبين في كل الصفوف انظر عند اختيار الفصل الدراسي والصف انظر عند اختيار الفصل الدراسي فقط

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

اعتقد يقصد الصفوف .. جمع فرقة ايضا يوجد شيء آخر وهو .. اذا تريد التصفية على الفصل الدراسي فلماذا وضعت حقل الصف في رأس التقرير على كل حال تم تحقيق طلبك : تصفية بناء على الفصل الدراسي ( الزامي ) + تصفية حسب الصف (اختياري ) اتمنى يحقق طلبك Data131.rar

وعليكم السلام أذا كان هذا هو طلبك فالأمر يحتاج إلى ضبط الحدود فقط تم تعديل الصفحات من الغلاف إلى ص5 تفضل مشروع ميزانية 2025.xls

مداخلة .. اجعل خاصية Modal = Yes للنموذج والتقرير أولاً ثانياً في زر الطباعة الموجود في النموذج Main وبعد هذا السطر ElseIf .ResultMain = 7 Then DoCmd.Close acReport, "youssef" قم بإضافة السطر :- DoCmd.OpenForm "main", acNormal ليصبح هذا الجزء كاملاً :- ElseIf .ResultMain = 7 Then DoCmd.Close acReport, "youssef" DoCmd.OpenForm "main", acNormal End If

وعليكم السلام ورحمة الله وبركاته .. تأملت منك توضيح كلمة الفرق هنا = ؟؟؟