kha9009lid

اليوم انا اشتغل بدون ما اكون فاهم اي شي على العموم بدلا من Me.WindowWidth = Me.fw ضع Me.InsideWidth = Me.fw

بالتوفيق اخي ازهر نعم اخي جعفر احسنت فهم السؤال نصف الاجابة قالت العرب : قد أسفر الصبح لذي عينين

👆 هههههه استاذ ازهر كل مشكلة ولها حل الحقيقة انا لا اعلم الهدف من طلبك لذا اشرت الى ان الذيب ما يهرول عبث فالبتالي اكيد لديك اسبابك وكما هو معلوم ان هذه الطريقة لن تعمل في بصيغة mde و accde فاذا كانت الحاجة لهذه الطريقة كبيرة ممكن التحايل بوضع نسخة اخرى من النموذج f2 بدون حدود وفي الوضع العادي يفتح النموذج الاصلي بنمط حدود وعند تحقق شرط معين يتم فتح النموذج الاخر بدون حدود ولكن هذا موضوع اخر تحياتي

نعم اخي جعفر ولكن .... ازهر ما يهرول عبث كلام سليم احسن الله اليك يا ابا عبد الله

السؤال موجه الى استاذنا ولكن احاول الاجابة بعد اذن معلمي القدير جعفر الكود صحيح ولكن لن يعمل بشكل مباشر وسيتم التفصيل تعديل بعض خصائص النموذج يتم التعديل بشكل يدوي بالدخول على عرض تصميم النموذج ثم من الخصائص يتم الاختيار وهذا ماعمله الاستاذ @king5star ولكن طلبك اخي ازهر عن طريق الكود وسبق ان وضع اخونا ومعلمنا العود @ابوخليل كود جميل يعالج الامر فقط اضفت عليه امر تعديل نمط الحدود لذا سوف نقوم بوضع كود يقوم بفتح النموذج في عرض التصميم بشكل مخفي DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden ثم نعدل خصائص منبثق نعم ومشروط نعم ونمط الحدود الى بلا Forms!f2.PopUp = True Forms!f2.Modal = True Forms!f2.BorderStyle = 0 ثم للتغلب على رسالة المطالبة بالحفظ نضع الامر DoCmd.Save acForm, "f2" ليكون الكود النهائي DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden Forms!f2.PopUp = True Forms!f2.Modal = True Forms!f2.BorderStyle = 0 DoCmd.Save acForm, "f2" وللتراجع عن التغيير نضع الامر DoCmd.OpenForm "f2", acDesign, , , acFormPropertySettings, acHidden Forms!f2.PopUp = False Forms!f2.Modal = False Forms!f2.BorderStyle = 1 DoCmd.Save acForm, "f2" بالتوفيق اخي ازهر j1.accdb

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

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

بنفس الطريقة اضافة شرط كود الالية اذا كان الكود من نوع رقم DSum("[total]", "tbl_name", "[bil_number]=" & bil_number) اذا كان من نوع نص DSum("[total]", "tbl_name", "[bil_number]='" & [bil_number] & "'") قد نحتاج الى اضافة في الكود اذا كان رقم الالية غير موجود في النموذج لاستخراجة من مربع القائمة ليعمل الشرط بشكل صحيح المشكلة انك اخي لم تضع مرفق ليسهل عليك وعلى كل من يرغب مساعدتك بدلا من التخمين

بالتوفيق اخي ازهر 🌹

جرب الامر التالي DoCmd.SetWarnings False DoCmd.RunSQL "insert into tbc(idn, cdatex, c1,c2 )VALUES (idn,tdatex,c1,c2)" DoCmd.SetWarnings True

اذا كنت فهمت المطلوب بشكل صحيح فيمكن عمل ذلك عن طريق عمل استعلام يكون مصدر للقائمة ثم نستخدم دالة dsum كما يمكن استخدامها مباشرة من الجدول DSum("[s]";"q_2")

الموضوع بسيط علامات التنصيص للحقل النصي تختلف عن الحقل الرقمي stLinkCriteria = "[order]='" & Me![order] & "'" 555.accdb

في مثل هذه الحالة البسيطة ممكن تحميل قيمة حقل او عدة حقول دفعة واحد في زر امر فتح من خلال OpenArgs DoCmd.OpenForm "k", , , , acFormAdd, , KNUM & "|" & KTEXT وفي حدث عند الفتح او زر امر نضع الكود الاتي Dim varSplitString As Variant varSplitString = Split(Me.OpenArgs, "|") Me.KNUM.Value = varSplitString(0) Me.KTEXT.Value = varSplitString(1)

الحقيقة اني فكرت فيها بعد وضع الرد السابق واعتقد انها بتكون مفيدة وايضا لوجمعت بين فكرتك وموضوع البحث يكون الفائدة اكبر بالتوفيق يا ابا عبد الله

يا هلا بمعلمنا ابو عبد الله فكرة جميلة واذكر كان فيه مشاركة سابقة يمكن تكييفها لذلك 👇

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

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

بنفس الطريقة ياازهر الحقل الرقمي كما اشرت انت اليه في مشاركتك الاولى ثم نضع الشرط النصي بعلامات التنصيص الخاصة بالحقول النصية DoCmd.OpenForm "FreaderL", WhereCondition:="[m]=" & [d] & "and [x]='" & [y] & "'" m & d حقول رقمية x & y حقول نصية

لا يا ابا عبد الله سبق اتناقشنا انت وانا في قفز البارمترات في هذا الموضوع 👇 شكلك نسيت 😀 كلها كم يوم ويتربطوا 👀 الله يكفينا شرهم أتوا ناري فقلت منون أنتم … فقالوا الجنّ قلت: عموا ظلاما

احسنت اخي ازهر بالبحث واكتشاف الحل من مشاركات سابقة ولو انك وضعت الكود بعد الحل ليستفيد من يمر بالموضوع على كل حال للحقل النصي فيكون على النحو التالي DoCmd.OpenForm "FreaderL", , , "[x]='" & [y] & "'" او ان نقفز البارمترات ونصرح بالشرط DoCmd.OpenForm "FreaderL", WhereCondition:="[x]='" & [y] & "'" ماشاء الله عليك يا ابا عبدالله السر في البخور 👻 وكل عام وانت بخير بمناسبة عيدك 🌹

الشكر لله اخي مع تمنياتي لك بالتوفيق 🌹

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

في جدول حركة الاصول الثابتة مصمم البرنامج استخدم لحقلي مدين ودائن نوع الحقل رقم كبير وهذا النوع من الحقول يعمل مع الاصدارات الاخيرة من 2016 فاحدث جرب الان بعد تغيير نوع الحقول برنامج اعداد الحسابات والقوائم والتقارير المالية.rar

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

رأيك ورأيي واخينا @biskra تمثل وجهة نظر جديرة بالاحترام ويتبناها العديد من الاداريين ولكل مدرسة ادارية فلسفتها . اما بشأن عقلية المسئول فاحد انجح المسئولين بالمملكة امر بايقاف نظام الحضور والانصراف بالكامل في ادارته واتاح للموظف الذي عمله لا يتطلب مقابلة الجمهور الحضور في اي وقت خلال اليوم ولكن قيد الامر بانجاز عدد محدد من المعاملات وكانت فترت ادارته نقله نوعية لتلك الجهة وبدلا انجاز المعاملة في اسبوع اصبحت تنجز المعاملة خلال يوم واحد وجهة ادارية اخرى " معهد الادارة العامة " اثناء رئاسة د. محمد الطويل لم يكن هناك نظام حضور وانصراف مع ذلك المعهد من انجح الادارات الحكومية و حاليا في نظام تقييم الموظفين المحافظة على وقت الدوام لا تمثل اكثر من 2% من الدرجة الكلية للتقييم للموظف التنفيذي ولا تزيد عن 2.6% للموظف القيادي 70% للاهداف التي حققها الموظف التنفيذي والتي يتم الاتفاق عليها مع الموظف في بداية دورة الاداء السنوية و50% للوظائف القيادية 30% للجدارات للتنفيذي وعددها 18 منها المحافظة على وقت الدوام و50% للوظائف القيادية وعددها 22 مع ملاحظة ان عدم الالتزام بوقت الدوام يأثر سلبا على مقدرة الموظف على تحقيق الاهداف المطلوبة منه وحتى لو استطاع تحقيقها فان عدم الالتزام يأثر على بقية الجدارات لكون الامر مرتبط حس المسؤولية بعناصرها الثلاث التعاون بعناصره الاربعة التواصل بعنصريه التوجه بالنتائج بعناصره الثلاثة تطوير الافراد بعنصريه الارتباط المهني بعناصرة الاربعة ووللوظائف القيادية هناك جدارة القيادة وعدد عناصرها 4 اعتذر على الاطالة اخي الهاوي ولكن اردت ايضاح الامر من وجهة نظر ادارية اخرى مع اطيب تحياتي