qathi

السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه المشكلة: كما هو واضح من العنوان عند نقل القاعدة لأحد الاجهزة تظهر هذه المشكلة مشكلة ضهور كلمة ( #Name? ) بحقول التاريخ وكلمة ( #خطأ ) بحقول الوقت وكلمة ( #نوع ) بحقول اليوم والتاريخ الهجري وهذا يكون نادراً في بعض الاجهزة وأما بالنسبة لجميع الاجهزة الاخرى لاتظهر فيها هذه المشكلة علماً : - الجهاز الحالي الذي ضهرت فيه المشكلة نوع الويندوز Windows 10 Pro - أنه قد تم حل هذا المشكلة في السابق في جهاز أخر بتسطيب الويندوز من جديد الجهاز الحالي يوجد به برامج مهمة جداً .. فهل هناك هل لهذه المشكلة بدون تسطيب الويندوز من جديد ؟؟

دوما تبدع بحلولك استاذي واخي @Foksh شكرا على ردك أستاذي الغالي نعم بالفعل نجح تعديلك بالكود بارك الله فيك وجزاك الله عني خيرا

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

للرفع ... هل المطلوب واضح ام لا؟؟ إذا كان لا .. ارجو اخباري بذلك

السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه بعد عدة محاولات لكود بحث التالي: وللعلم ياخذ الكود القيم من حقل قائمة منسدلة اسمة Mo في النموذج الرئاسي الحقل Mo عباره عن قائمة منسدلة قيم مصدر الصف له جدول - والجدول يحتوي على 14 سجل والسجلات مرقمة بالترتيب من 1 الى 14 بعد تجربة الكود عند تحديد اول سجل أو اول قيمة للحقل Mo والذي هو رقم واحد 1 فانة يفرز ويعرض في النموذج الفرعي او التقارير النتائج كل القيم والسجلات المتشابهة التي تحتوي على رقم واحد 1 هكذ 1 و 10 و11 و 12 و 13 و14 ولا يقوم بعرض القيم التي تحتوي رقم واحد فقط المطلوب كالتالي: جعل الكود لا يعرض الا القيم المحددة فقط مقال عند اختيار القيمة واحد 1 يعرض السجلات التي تحتوي على رقم واحد 1 فقط If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = & Me.Mo & " End If مرفق الكود مع وضع مثاليين لحقلين ( حقل Mo - وحقل Sty ) والذين يعطون نفس النتائج الخاطئة Dim varFilter As Variant varFilter = Null If Not IsNull(Me.Mo) Then varFilter = (varFilter + " AND ") & "[Mo] = & Me.Mo & " End If If Not IsNull(Me.Sty) Then varFilter = (varFilter + " AND ") & "[Sty] LIKE *" & Me.Sty & "*" End If With Me.Form2.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

بارك الله فيك استاذنا الغالي @Foksh😚 قمت بتجربة الملف يعمل بنجاح ساقوم بنقل الاكواد لملفي الخاص واقوم بتجربته جزاك الله عني خيرا اسأل الله ان يدخلك الجنة الفردوس الاعلى ووالديك وذريتك واهلك أستاذي أن سمحت اتمنى ان تخبرني باسمك الاول والاخير حتى ادعوك لك بضهر الغيب أعتذر من الاموجي يرفض الحذف

استاذنا @Foksh قمت بتجربة الملف الان ملف الاكسل يتم تصديرة نعم أنه ترتيبه بشكل آخر لكن لاباس به لكن تضهر مشكلة تلف في تصدير ملف لورد وال PDF هل ممكن جعل الدالة اكسل مستقله عن دالة الورد وال pdf

ماشاء الله عليك هذا هو المطلوب استاذنا الغالي @Foksh . حفظك الله وبارك الله فيك وزادك الله علما ونورا ياريت استاذنا الغالي تتكرم عليه به ولك دعوه في ظهر العيب أكون شاكرا لك وجزاك الله عني خير

ممكن توضيح أكثر معلمنا القدير @ابوخليل

استاذنا @Foksh قمت بتجربت الملف أكثر من رائع ينقصة هو كذلك مربع الحوار لتحديد مكان الحفظ وياريت تكتمل الدالة بحفظ ملف بصيغة اكسل اكرر شكري لكم أهلا باستاذنا الكبير والغالي @ابو خالد @ابوخليل أعتذر من تخبط الكيبورد وصعوبه التعديل من الجوال والله اشتقنى لكم جميعا أسأل الله أن تكون في اتم الصحة والعافية بالنسبة لسؤالك فعلا استفاد منه في عدة حالات اوتوقع ولم اجرب منها إرسال الملف عبر الواتس لكن ما اريدة أن المستخدم النهائي له حرية حفظ الملف في أي مكان يريده

أهلا بك استاذنا @محمد احمد لطفى وشكرا لك على مجهودك الرائع يتم تغيير اسم التقرير ويظهر الملف الناتج بشكل مباشر متبقي عرض نافذة حفظ التقرير حتى يتم تحديد مكان حفظ التقرير الناتج كما في الملف السابق مع شكري لك أهلا بك استاذنا @Foksh ساقوم بتجربته الان واوافيك بالنتائج

السلام عليكم حياكم الله اساتذتنا الافاضل واعضاء منتدانا الشامخ طبتم وطابت ايامكم .. أسأل الله أن تكونوا في أتم الصحة والعافيه المطلوب كالتالي: في نموذج prin الخاص بشريط الطباعة عند الضغط على زر ( حفظ Word ) أو زر ( حفظ pdf ) يتم تصدير الملف الناتج باسم ياخذ قيمته من ( متغير أو حقل الموجود في النموذج Namea ) والتاريخ والوقت مثال: محمد طاهر 2024/10/14-08:40ص.pdf مع العلم أن التقرير الحالي يتم تصدير باسم التقرير الاساسي (rpt_rensen) بالرغم تغير اسماء الاشخاص وهذه مشكلة مرفق ملف للتعديل علية شريط طباعة.accdb

شكرا لك اخي واستاذي @محمد احمد لطفى وشكرا لك أستاذي الغالي @M.Abd Allah اشكركما على المساعدة تنوع في الكود و أكثر من طريقة .. رائع جدا تسلم اياديكم اساتذتنا بارك الله فيكما وجزاكم الله عنا خيرا ساقوم بتجربتهما

أستاذنا الغالي @M.Abd Allah كيف يكون الكود في حالة استخدام زرارين معاً مثل الشفت وحرف ؤ ( Shaft + C ) أو ( Ctrl + B ) عند الضغط عليها معاً يقوم بتنفيذ أمر معين رجعت لنفس الموضوع بعد فشل الكثير من المحاولات وشكرا لك على جهدك الثمين في مساعدتي

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