متقاعد

ما اعرف انت تقصدني انا على كل حال انا فعلا عملت في شركة العالمية وكيل شركة صخر اعتقد عام 1987 اشتغلت معهم في الفترة المسائية لمدة سنة لتعليم لغة صخر بيسك وهي تعريب كامل للغة qbasic وقتها كان عندهم برنامجين اساسيات البرمجة بلغة صخر لوجو و الثاني البرمجة بلغة صخر بيسك ولكن المشروع لم يكتب له النجاح لا اقصد جهاز الالعاب وانما اجهزة كمبيوتر xt بمعالجات 8088 و 8086 مرفق صورة لاحد الكتب الخاصة بصخر بيسك الصورة من الانترنت ولكن مذكرات المنهج الاساسي مازالت لدي على سبيل الذكرى تحياتي مع الاعتذار لصاحب الموضوع و للاساتذة الكبار عن الخروج عن سياق الموضوع ولكن الشي بالشي يذكر

احسنت اخي ولكن انا اتحدث عن كتابة الكود هكذا ⬇️ لو تلاحظ اننا لم نحدد مكان البحث في الكود ولكن نقلنا التركيز اليه Me.id.SetFocus DoCmd.FindRecord tx2, , True, , True تحياتي

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

الامر غير واضح مثلا هناك خلط بين كود البحث عن سجل وتصفية السجلات اذا كان الكود باستخدام Me.Filter او DoCmd.ApplyFilter هذه تسمى تصفية ولن تستطيع العودة للسجلات الغير مطابقة الا بعد انهاء عامل التصفية اما اذا كنت تستخدم DoCmd.SearchForRecord او Me.id.SetFocus DoCmd.FindRecord tx2, , True, , True فهذة عملية بحث وما يحصل هو انتقال المؤشر الى السجل المطلوب ومن المفترض انك تستطيع العودة للسجل الاخير مع كل ذلك فهذه اجابة افتراضية فلا اعلم ماهي طريقتك في اضافة السجلات تحياتي

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

بل انا من يستفيد اكثر ونتعلم منكم علما وخلقا تحياتي

الحدث موجود في تفصيل التقرير ولكن لن يفيدك لانه يوسط افقي بينما الان فهمت مطلوبك توسيط افقي وعمودي وهذا موجود في الرابط الذي وضعه الاستاذ الكبير ☝️ تحياتي

احسنت استاذنا العزيز والاجر على الله

حسب فهمي للسؤال ممكن نضع في حدث عند التنسيق الامر التالي Me.الحقل.TextAlign = 2 التنسيق يظهر بشكل صحيح في معاينة قبل الطباعة وفي الاوراق المطبوع اما في عرض التقرير فلن يظهر التنسيق تحياتي

اضافة لمشاركة استاذنا الكبير محمد البرناوي جزاه الله خير ممكن ايضا تحديد السجلات والغاء التحديد عن طريق مصدر السجلات لتحديد الكل Dim rs As Recordset Dim a As Integer Set rs = CurrentDb.OpenRecordset("tab_name") For a = 1 To rs.RecordCount rs.Edit rs!DELETE = -1 rs.Update rs.MoveNext Next a -------- لالغاء التحديد للكل نغيير السطر السادس الى rs!DELETE = 0 تحياتي

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

نعم احسنت ياعم موسى هذا ما قصدته طبعا كما تعلم اكسس ايضا يقوم بتحويل الماكرو الى كود vba

بالتوفيق لك استاذ يونس علما بان تكرار السجل على طريقة استاذنا الفاضل موسى موجودة ضمن معالجات access ويقوم اكسس بكتابة الامر بشكل تلقائي تحياتي

طريقة اخرى على قد حالي طبعا حسب طلب الاستاذ يونس نسخ الحقول ماعدا حقل التفاصيل وانا استثنيت حقل id لانه ترقيم تلقائي وحقل التاريخ يكون تاريخ تكرار السجل ويمكن اعادته للمصفوفة ليكون a(5) ممكن نعمل مصفوفة نحمل فيها فقط الحقول المطلوب تكرارها If Me.NewRecord Then Exit Sub Dim x As Variant Dim a As Variant x = ([NSSA] & "|" & [NSSB] & "|" & [NSSC] & "|" & [RQMA] & "|" & [NSSE]) DoCmd.GoToRecord , , acNewRec a = Split(x, "|") [NSSA] = a(0) [NSSB] = a(1) [NSSC] = a(2) [RQMA] = a(3) [NSSE] = a(4) [TAREKA] = Date DoCmd.GoToControl "RQMB" وممكن نستغني عن المصفوفة باستخدام حلقة تكرارية تمر على الحقول وتستثني حقل الملاحظات والترقيم التلقائي ثم تكرر الحقول غير المستثناه وهنا لا داعي لكتابة اسماء الحقول ولكني ساكتفي بهذه المشاركة --------------------------------------------------- رجاء خاص من لم تعجبه المشاركة فليقل خيرا او يصمت لا تكرهونا في موقع اصبح متنفسنا الوحيد ملاحظة انا مبرمج متقاعد من عدة سنوات وتعاملي مع اكسس قليل جدا واغلب معلوماتي قديمة منذ نظام التشغيل dos واعترف بان اغلب المشاركين يفوقوني علما ومعرفة فخذ ما يعجبك او اترك

شكرا لمشاعرك الطيبة مع ذلك هذه الالقاب ليست ذات اهميه بالنسبة لي هذا ⬇️ اقتباس لجزء من رسالتي لاحد الكبار في الموقع

الله سبحانه من يحيي ويميت وَضَرَبَ لَنَا مَثَلًا وَنَسِيَ خَلْقَهُ قَالَ مَن يُحْيِي الْعِظَامَ وَهِيَ رَمِيمٌ * قُلْ يُحْيِيهَا الَّذِي أَنشَأَهَا أَوَّلَ مَرَّةٍ وَهُوَ بِكُلِّ خَلْقٍ عَلِيمٌ كان مجرد رد خاطئ في مكان ووقت غير مناسب وعدلته تحياتي

رد خاطئ

جرب المرفق قيمة الاستعلام تساوي TRANSFORM Sum(add.kam) AS Sumمنkam SELECT add.mad FROM asasi INNER JOIN [add] ON asasi.itm = add.man GROUP BY add.mad PIVOT asasi.mandob; الملف مرفق 8.accdb

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

تنويه حتى لا يفهم الموضوع بشكل مغايير اولا بشأن الموضوع الاساسي ليس لدي اضافة على رد اساتذتنا الكرام بالنسبة لمشاركتي السابقة فهي دعابه مع اخي جعفر وبيننا اكثر من ذلك هنا وفي الخاص وايضا لبيان حركات الاعراب لجمع المذكر السالم فهمنا للغتنا واهتمامنا بها يسهل علينا فهم كتابنا الكريم وتدبر معانيه قال تعالى: (كتاب أنزلناه إليك مبارك ليدبروا آياته وليتذكر أولوا الألباب) صدق الله العظيم عن أنس بن مالك رضي الله عنه قال: قال رسول الله ﷺ ( لا يستقيم إيمان عبد حتى يستقيم قلبه، ولا يستقيم قلبه حتى يستقيم لسانه ) رواه أحمد والله الموفق

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

جرب المرفق 1731391564_(2).accdb

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

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

قالت العرب : من قال لا اعلم فقد افتى الصورة اعلاه من جهازي للاصدار 2021 وجربت ايضا على الاصدار 2019 والاصدار 2016 على اجهزتي الاخرى واعتقد انها موجود لديك بناء على وثائق شركة مايكروسوفت التي تشير الى ان هذا الاجراء موجود من اصدار 2007 و 2010 و 2013 و 2016 و 2019 و 2021 و ايضا 365 تحياتي