Foksh

الف سلامة عليك أستاذ @Eng.Qassim .. ولا غنى عنك ،وأسأل الله لك الشفاء من كل سقم

حاولت فهم المطلوب لكن للأسف لم افهم

سيتم اعادة بناء الفكرة لتعتمد RollBack

شرح مبسط لما تم تعديله :- 1. قمت بتعديل الكود لتعيين TempVars!UserLevelTemp بشكل ديناميكي بناءً على UserLevel الخاص بالمستخدم الحالي 2. تعديل الاستعلام في النموذج الفرعي frmq1 ليتعامل مع القيم المتغيرة في TempVars!UserLevelTemp الخطوة 1 : في النموذج الرئيسي frmSearch ، قمت بتعديل الكود لتعيين TempVars!UserLevelTemp بشكل ديناميكي كما في الكود التالي بعد التعديل :- Private Sub أمر1_Click() Dim UserLevelTemp As Variant UserLevelTemp = DLookup("[UserLevel]", "tbluser", "[UserNam]='" & Me.txtuser & "'") TempVars!UserLevelTemp = UserLevelTemp DoCmd.OpenForm "frmSearch" End Sub هنا يتم تعيين TempVars!UserLevelTemp مباشرة من قيمة UserLevel الخاصة بالمستخدم الحالي ، سواء كانت تحتوي على قيمة واحدة (مثل 2) أو قيم متعددة (مثل 1, 2) . الخطوة 2 : تعديل الاستعلام في النموذج الفرعي frmq1 ليصبح :- SELECT tblEmp.*, tblEmp.EmpLevel FROM tblEmp WHERE InStr(TempVars!UserLevelTemp, tblEmp.EmpLevel) > 0; شرح الاستعلام :- الدالة InStr : تبحث عن وجود EmpLevel داخل TempVars!UserLevelTemp إذا كانت النتيجة أكبر من 0 ، فهذا يعني أن EmpLevel موجود ضمن TempVars!UserLevelTemp على سبيل المثال: إذا كان TempVars!UserLevelTemp = "1, 2" و EmpLevel = 1 ، فإن InStr ستعيد 1 (لأن 1 موجود في "1, 2") إذا كان TempVars!UserLevelTemp = "2" و EmpLevel = 1 ، فإن InStr ستعيد 0 (لأن 1 غير موجود في "2") ... وهكذا اتمنى ان يكون الشرح وافي لما تم تعديله وتطبيقه .

تقبل الله منكم ومنا الطاعات

شرفتني مهندس @Moosak بمرورك .

لا يمكنك قفل عنصر وهو قيد التركيز ، حتى لو من أي حدث ، ويجب عليك نقل التركيز لعنصر آخر لتنفيذ القفل أو عدم التمكين عليه

لا يتم الاستيراد من قائمة تحتوي على كومبوبوكس يا صديقي ،، للأسف .

جرب انقل التركيز لزر أو عنصر آخر قبل تعطيل العنصر الهدف ..

تأكد من أن اسم السيرفر و رقم المنفذ صحيحين عند الاتصال ، جرب استبدال اسم السيرفر بـ 127.0.0.1 على سبيل المثال :- Server=127.0.0.1;Database=YourDB;User Id=YourUser;Password=YourPass; أيضاً على حد علمي SQL Server يستخدم المنفذ 1433 بشكل افتراضي ، لذا يجب السماح به في Windows Firewall جرب الأمر التالي في CMD كمسؤول :- netsh advfirewall firewall add rule name="SQL Server" dir=in action=allow protocol=TCP localport=1433 هذا على حد علمي والله أعلم ..

هل هذا صحيح ؟؟ اوفيسنا.accdb

لا تحتاج كود أخي الكريم ، ولكن يجب ان تنتبه لنقطة مهمة ، بما أن القيمة التي سيتم إدراجها في الحقل = نصية ، فيجب تغيير نوع الحقل من رقمي الى نصي للحقل Age !!!! جرب هذه الفكرة في المرفق :- EMPTY TEXT.accdb

ما شاء الله .. إبداااع وتحديث جديد لمولد كلمات المرور بارك الله فيك أستاذ @فريدالطحان

وعليكم السلام ورحمة الله وبركاته ، أخي @Mohamed Abo Elala ، هلا ارفقت مثال على طلبك ليتم التطبيق عليه ,, هناك فكرة علها تفيدك ولكن بعد ارفاقك للملف .

السلام عليكم أخي @moho58 ، اعتذر عن التأخير .. تفضل هذا تعديلي على كامل أكواد النموذج بما يحقق طلبك في الفلترة والحفظ . جرب وأخبرني بالنتيجة .. BASER.accdb

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

وعليكم السلام ورحمة الله وبركاته ,, إذا أردت أن تجد الحل لطلبك ؛ أنصحك بإرفاق قاعدة بيانات آكسيس ، وليس عرض بوربوينت

أعتقد أن المشكلة قد تكون في أن الاستعلام الفرعي لا يأخذ رقم الموظف num عند اختيار السجلات السابقة . جرب هذا التعديل يا صديقي للإستعلام مصدر سجلات التقرير .. SELECT tbl_note_administrative.*, IIf([annet]=[Forms]![frm_imprimer_note_administratif]![annet1],1,2) AS RecordType FROM tbl_note_administrative WHERE (((tbl_note_administrative.annet)=[Forms]![frm_imprimer_note_administratif]![annet1] Or (tbl_note_administrative.annet) In (SELECT TOP 2 t.annet FROM tbl_note_administrative t WHERE t.annet < [Forms]![frm_imprimer_note_administratif]![annet1] AND t.situation_special = "القيام بالخدمة" AND t.situation_poste_travail = "موظف" AND t.num = tbl_note_administrative.num ORDER BY t.annet DESC )) AND ((tbl_note_administrative.situation_special)="القيام بالخدمة") AND ((tbl_note_administrative.situation_poste_travail)="موظف")) ORDER BY tbl_note_administrative.annet DESC;

سيتم المتابعة بأقرب فرصة ، بعد الإجازة 🤗 .

ما شاء الله عليك ، أحسنت في تدبر أمرك 👏🏻 مبارك عليك نجاحك 🤗

هي كانت احتياط ، ولعدم رؤيتي المرفق ، والحمد لله ان مشكلتك قد انتهت 🤗 .

حسب ما فهمت من معطياتك ، جرب هذا الاستعلام :- update tbs inner join tbm on tbs.ids = tbm.ids set tbs.idm = tbm.idm where tbs.idm is null;

باعتقادي وعن نفسي أن فكرة كومبوبوكس في الجدول غير ذكية . لكن سأنفذ فكرتك في الملف الذي ارسلته بأقرب فرصة إن شاء الله 😇 .

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

ولا يهمك ، سألقي نظرة على الملف ونرى نقطة الضعف ، ولكني الآن قد ابتعدت عن الكمبيوتر 😇 . بأقرب فرصة إن شاء الله