متقاعد

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

ممكن Dim x As Integer Select Case Kind_pat Case Is = "lab" x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='lab'"), 0) + 1 Case Is = "project" x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='project'"), 3000) + 1 End Select PCode = x الملف في المرفقات 2023.accdb

سوف احمل الملف المرفق وربما لي عودة للتعقيب 🌹

عند تصميم الماكرو يوجد خيار اظهار كافة الاجراءات

لقد أسمعت لو ناديت حيّاً ... ولكن لا حياة لمن تنادي لم اضع المشاركة لغرض البحث عن وقفة او ايجاد حل ولكن حاجة في نفس يعقوب قضاها تحياتي استاذ خليفه 🌹

ممكن ولكن الكود اسهل base(1)(1).accdb

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

جرب المرفق base(1).accdb

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

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

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

لا غير صحيح هذه المشاركة السابقة ⬇️

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

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

فقدت وليس فقدة لمعرفة الفرق بين التاء المربوطة والتاء المفتوحة التاء المفتوحة (ت) هي التاء التي تلفظ تاءً سواء خلال الكلام إذا تحركت أو عند الوقف إذا سكنت، فلفظها لا يتغير في كلا الحالين. التاء المربوطة (ة - ـة) هي التاء التي تلفظ تاءً متحرّكة خلال الكلام إذا ما تحركت، وتلفظ هاء عند الوقف الساكن بسيطة وليست بسيطه 😄

مُنظَّم وهو ما نظم اسم مفعول ويصاغ من الفعل غير الثلاثي بابدال حرف المضارعة بالميم المضمومة وفتح ما قبل الاخر مُنظِّم وهو من يقوم بالتنظيم اي اسم فاعل ويصاغ من غير الثلاثي بابدال حرف المضارعة بالميم المضمومة وكسر ماقبل الاخر وزنة المضارع اسم فاعل ... من غير ذي الثلاث كالمواصل مع كسر متلوّ الأخير مطلقا ... وضمّ ميم زائدٍ قد سبقا وإن فتحت منه ما كان انكسر ... صار اسم مفعول ٍ كمثل المنتظر ✔️

البرنامج-aa.accdb

والله يا استاذ @محمد احمد لطفى اذا كان هناك من يستحق افضل اجابه فهو انت 🌹 ولك بالمثل واكثر من ذلك انت واخي محمد لطفي

المثال يعمل بعد تعديله الى DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test.accdb", acForm, Me.Modifiable9.Column(1), "FramDelete" تحياتي

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

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

نعم ممكن ولكن .... نعود لذلك بعد شرح الطريقة الامر المطلوب هو DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\test.accdb", acForm, "form6", "form6" هنا نصدر كائن قاعدة بيانات اكسس ثم مسار واسم القاعدة التي نرغب التصدير اليها ثم نوع الكائن اسم الكائن اخيرا اسم النموذج في القاعدة الوجهة نعود للكن النموذج يختلف عن الجدول من خلال ان له مصدر بيانات في العادة يكون جدول واحيانا استعلام وقليلا مايكون غير منظم ايضا النموذج قد يحتوي على قوائم او مربعات تحرير وسرد مصدرها قد يكون استعلام وقليلا ما يكون مصدر بالكود واحيانا يكون النموذج له نموذج فرعي لذا تصدير نموذج يتطلب معالجات اكثر مما يتطلب تصدير جدول تحياتي اخي محمد لطفي سبقتني بالرد ولكني كنت اجهز للرد

هذا صحيح لاننا الحقنا القيمة في الجدول وتم حفظها كسجل الحقيقة ان هذه الطريقة تستخدم في العادة لغرض تحديد الصلاحيات للمستخدمين مثلا محمد له صلاحية form2 وعلى form3 وهكذا في مثل هذه الحالات ممكن نستخدم الاستعلام مباشرة ولن تواجهنا مشكلة عند تغيير اسم النموذج على كل حال لو فتحت جدول MSysObjects ستجد ان هناك رقم id لكل كائن في القاعدة هذا الرقم يمثل معرف فريد وبالتالي ممكن استخدامه لاجراء التعديل بدون الحاجة للتعديل اليدوي ولكن من وجهة نظري ان التعديل على اسماء النماذج ليس من الامور التي تتكرر باستمرار وبالتالي اتوقف هنا اما اذا اردنا اعطاء المستخدم صلاحيات تعديل اسماء الكائنات فممكن استخدام الامر وانا ضد ذلك DoCmd.Rename ثم حينها نضع بعده امر تحديث اسم النموذج بمعرف الايدي الذي اشرنا اليه واتوقف هنا قالت العرب خير الزاد ما بلغك المحل تحياتي

الخطوة الاولى نظهر ملفات النظام ويهمنا الجدول MSysObjects نعمل استعلام ونحتاج الى حقلين فقط name وحقل type وفي خانة المعيار نضع الرقم -32768 لتكون جملة الاستعلام تساوي SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Type)=-32768)); ثم نعمل استعلام جديد مصدرة الاستعلام السابق او نحول الاستعلام السابق الى استعلام الحاق وتكون جملة الاستعلام تساوي INSERT INTO tblform ( nameform ) SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not In (SELECT tblform.nameform FROM tblform;)) AND ((MSysObjects.Type)=-32768)); وهنا تجد اننا استخدمنا معيار جديد عبارة استعلام فرعي لكي يلحق فقط اسماء النماذج الجديدة حتى لا يحصل تكرار لاسماء النماذج التي سبق الحاقها وايضا ممكن الاستغناء عن استعلام الالحاق بالكود وايضا ممكن تحويل الحقل في الجدول الى مربع تحرير وسرد ونجعل مصدرة كود الاستعلام الاول الملف مرفق مثال187.accdb

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