1 ساعه مضت, rockjone33 said:

استاذي طول بالك اشوي بتنزل كمبيوتر صخر ..🙂

ما اعرف انت تقصدني انا

على كل حال انا فعلا عملت في شركة العالمية وكيل شركة صخر اعتقد عام 1987 اشتغلت معهم في الفترة المسائية لمدة سنة لتعليم لغة صخر بيسك وهي تعريب كامل للغة qbasic

وقتها كان عندهم برنامجين اساسيات البرمجة بلغة صخر لوجو و الثاني البرمجة بلغة صخر بيسك

ولكن المشروع لم يكتب له النجاح لا اقصد جهاز الالعاب وانما اجهزة كمبيوتر xt بمعالجات 8088 و 8086

مرفق صورة لاحد الكتب الخاصة بصخر بيسك

الصورة من الانترنت ولكن مذكرات المنهج الاساسي مازالت لدي على سبيل الذكرى

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

1 ساعه مضت, rockjone33 said:

لا يتطلب تركيز SetFouces في الحقل اذا كان حقل قائمة SetFouces ..

احسنت اخي ولكن انا اتحدث عن كتابة الكود هكذا ⬇️ لو تلاحظ اننا لم نحدد مكان البحث في الكود ولكن نقلنا التركيز اليه

Me.id.SetFocus
DoCmd.FindRecord tx2, , True, , True

تحياتي

1 ساعه مضت, طاهر الوليدي said:

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

بالتوفيق اخي طاهر

3 ساعات مضت, jjafferr said:

حقل ترقيم تلقائي ،

هنا اشار  الاستاذ الكبير الى امر مهم وهو وجود حقل ترقيم تلقائي

وهو مهم للفهرسة وترتيب السجلات وتوفير قيمة فريدة للسجل

4 ساعات مضت, rockjone33 said:

او الانتقال الى ID في الفورم او البحث

هنا في هذا النوع من البحث يتطلب نقل التركيز اولا للحقل المطلوب البحث فيه

تحياتي

32 دقائق مضت, طاهر الوليدي said:

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

الامر غير واضح

مثلا هناك خلط بين كود البحث عن سجل وتصفية السجلات

اذا كان الكود باستخدام

Me.Filter

او

DoCmd.ApplyFilter

هذه تسمى تصفية ولن تستطيع العودة للسجلات الغير مطابقة الا بعد انهاء عامل التصفية

اما اذا كنت تستخدم

DoCmd.SearchForRecord

او

Me.id.SetFocus
DoCmd.FindRecord tx2, , True, , True

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

مع كل ذلك فهذه اجابة افتراضية فلا اعلم ماهي طريقتك في اضافة السجلات

تحياتي

فيه فكرة بدون الحاجة للوحدة التي اشار اليها الاستاذ

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

فيقوم بالتحكم بحجم الازاحة العلوية للحقول

ولكني ساختبرها بشكل جيد قبل وضع الكود وعسانا نسلم

وفي جميع الاحوال انصح بكود الاستاذ

38 دقائق مضت, Barna said:

بارك الله فيك استاذي @مبرمج متقاعد منك نستفيد .... وعودا حميدا

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

تحياتي

منذ ساعه, عبد الله قدور said:

للاسف لم اجد عندي هذا الحدث

الحدث موجود في تفصيل التقرير

ولكن لن يفيدك لانه يوسط افقي

بينما الان فهمت مطلوبك توسيط افقي وعمودي

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

تحياتي

15 دقائق مضت, rockjone33 said:

كما ذكرت الواحد يساعد باللي يقدر عليه وما فيها تقصير .. 

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

37 دقائق مضت, عبد الله قدور said:

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

حسب فهمي للسؤال

ممكن نضع في حدث عند التنسيق الامر التالي

Me.الحقل.TextAlign = 2

التنسيق يظهر بشكل صحيح في معاينة قبل الطباعة وفي الاوراق المطبوع اما في عرض التقرير فلن يظهر التنسيق

تحياتي

15 ساعات مضت, kassem_geo said:

وهل بالامكان اضافة خيار "الكل" ؟؟

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

ممكن ايضا تحديد السجلات والغاء التحديد عن طريق مصدر السجلات

لتحديد الكل
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

تحياتي

7 دقائق مضت, rockjone33 said:

عند السجل اضافة حقل غير منضم استخدم Dlast

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

تحياتي

9 دقائق مضت, Moosak said:

بينما النسخ الأحدث منه تضيف الأمر على شكل ماكرو

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

6 ساعات مضت, يونس ال[f,vd said:

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

بالتوفيق لك استاذ يونس

علما بان تكرار السجل على طريقة استاذنا الفاضل موسى موجودة ضمن معالجات 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

واعترف بان اغلب المشاركين يفوقوني علما ومعرفة فخذ ما يعجبك او اترك

4 دقائق مضت, Moosak said:

هذا الاسم يليق بك أكثر

شكرا لمشاعرك الطيبة مع ذلك هذه الالقاب ليست ذات اهميه بالنسبة لي

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

في 15‏/8‏/2022 at 20:08, kha90lid said:

ولكني اتمنى من اخي الحبيب اعادة رتبتي الى ما كانت عليه وفق الترتيب التلقائي

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

18 دقائق مضت, Moosak said:

خالد قام بإحياء هذا الموضوع من جديد

الله سبحانه من يحيي ويميت

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

كان مجرد رد خاطئ في مكان ووقت غير مناسب وعدلته

تحياتي

رد خاطئ

جرب المرفق

قيمة الاستعلام تساوي

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

49 دقائق مضت, kassem_geo said:

عذرا ولكن ما المقصود بالسؤال الساذج

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

في 20‏/8‏/2022 at 18:41, kassem_geo said:

برنامج وبيانات وجدول  يحتوي على معلومات لأكثر من شركة بحيث ان البيانات  الحالية فيها معلومات الشركة أ / ب/ج

في البداية كان الحديث عن جدول يحتوي على معلومات عدة شركات ثم تبين وجود اكثر من جدول

هناك عدة استفسارات

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

3 ساعات مضت, kassem_geo said:

كما هو الحال 

شركة أو مؤسسة رئيسية لديها الحاجة للإطلاع على كافة البيانات

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

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

تحياتي

1 ساعه مضت, مبرمج سابق said:

قوم المبرمجون

تنويه حتى لا يفهم الموضوع بشكل مغايير

اولا بشأن الموضوع الاساسي ليس لدي اضافة على رد اساتذتنا الكرام

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

وايضا لبيان حركات الاعراب لجمع المذكر السالم

فهمنا للغتنا واهتمامنا بها يسهل علينا فهم كتابنا الكريم وتدبر معانيه

قال تعالى: (كتاب أنزلناه إليك مبارك ليدبروا آياته وليتذكر أولوا الألباب) صدق الله العظيم

عن أنس بن مالك رضي الله عنه قال: قال رسول الله ﷺ ( لا يستقيم إيمان عبد حتى يستقيم قلبه، ولا يستقيم قلبه حتى يستقيم لسانه ) رواه أحمد

والله الموفق

منذ ساعه, jjafferr said:

يقوم المبرمجين

يقوم المبرمجون

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

😎

32 دقائق مضت, بلال اليامين said:

اخي مازال عند اضافة مستخدم كلمة المرور هي اسم المستخدم

جرب المرفق

1731391564_(2).accdb

36 دقائق مضت, rockjone33 said:

 ما هي مسألة الاجبار بالمزاعمه وهي مجرد السؤال!! .. في امكانية فهي ممكنه

نعم صحيح هو سؤال

والاجابة ان هناك من كان يشير الى امكانية كسر الحماية

وهي في نهاية الامر مزاعم ما لم تقرن باثبات

36 دقائق مضت, rockjone33 said:

طمن ربك الحافظ .. عد خطه وسو اللي عليك.

احسنت

بالنسبة لي فعندما كنت اعمل في هذا المجال فلم اهتم بموضوع الحماية مطلقا

والسببب في ذلك ان جزء من عملي ماخود او مقتبس او مطور من اعمال اخرين

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

وجهة نظر

تحياتي

2 ساعات مضت, rockjone33 said:

سؤال ينفع الدخول العكسي من غير اكسس .. 🙂

لم اقصد فقط من فيجوال بيسك اقصد من مصدر آخر .. 🙂

في من ينسى كلمة المرور وفي من يبحث عن جودة الحماية والتأمين ؟!! 

الخطه فين !!

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

ولكنه خرج ولم يعد وذهبت معه ادعاءاته ومزاعمه

تحياتي

24 دقائق مضت, Abujaber said:

قمت بإظهار جميع الإجراءات بالرغم من ذلك لم يظهر الإجراء المطلوب يرجى الافادة لطفا

قالت العرب : من قال لا اعلم فقد افتى

الصورة اعلاه من جهازي للاصدار 2021 وجربت ايضا على الاصدار 2019 والاصدار 2016 على اجهزتي الاخرى

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

اقتباس

SetValue Macro Action

Access for Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007

تحياتي