kha9009lid

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

السؤال موجه الى استاذنا ولكن احاول الاجابة بعد اذن معلمي القدير جعفر الكود صحيح ولكن لن يعمل بشكل مباشر وسيتم التفصيل تعديل بعض خصائص النموذج يتم التعديل بشكل يدوي بالدخول على عرض تصميم النموذج ثم من الخصائص يتم الاختيار وهذا ماعمله الاستاذ @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 اعتذر على الاطالة اخي الهاوي ولكن اردت ايضاح الامر من وجهة نظر ادارية اخرى مع اطيب تحياتي

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

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

هنا تحدثت عن امكانية كسر الحماية لهذه الطريقة التي تستخدم قاعدة بيانات محمية بكلمة مرور يتم الدخول لها من قاعدة اخرى وهي فكرة جميلة ومبتكرة لاخي واستاذي كاسر ولكن لفهم سبب حديثي عن امكانية كسرها لابد ان نشير الى ان طريقة تعامل اكسس تختلف في تشفيرها للنصوص في الجدول او النصوص في محرر الاكواد لكل من accdb او صيغة accde فهي تحمي النص في الجدول و لا تشفرة اذا كان في الكود مثال لكلمة المرور صيغة accdb 4B 40 73 65 72 77 77 77 24 30 66 69 63 65 6E 61 25 39 6F 36 ----------------------------------------------------------- K@serwww$0ficena%9o6 صيغة accde 4B 00 40 00 73 00 65 00 72 00 77 00 77 00 77 00 24 00 30 00 66 00 69 00 63 00 65 00 6E 00 61 00 25 00 39 00 6F 00 36 -------------------------------------------------------------------------------------------------------------------- K.@.s.e.r.w.w.w.$.0.f.i.c.e.n.a.%.9.o.6 وهنا محاولة ناجحة لفتح قاعدة بيانات accde استخدم فيها الاستاذ ازهر كلمة مرور في المحرر 👇 61 00 7A 00 68 00 72 00 31 00 39 00 37 00 39 -------------------------------------------- a.z.h.r.1.9.7.9 السؤال اين اجد هذه الرموز ضمن ملف يحتوي على عشرات الالوف من الرموز هنا نتوقف عن التصرريح ولكن نشير الى ان هناك دلائل يعرف المفككون السؤال الاخر لماذا نتحدث عن الموضوع ؟ الاجابة ذات شقين الموضوع يتحدث عن الحماية الكافية والتي في اعتقادي ليس لها وجود فهي نسبية تطوير هذه الطريقة الجميلة لاخي كاسر واعتقد اني قد فعلت والحر تكفيه الاشارة والله الموفق