Foksh

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

شرفتني مهندس @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;

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

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

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

ولا يهمك يا صديقي 🤗.. يكفي فرحتك بنتيجة ملفك 😇

اخي الكريم ، المرفق الذي ارسلته لا يحتوي جدول 🥴 .

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

وعليكم السلام ورحمة الله وبركاته .. أخي الكريم جدول الإحصاء مرتبط بقاعدة البيانات الخلفية ,, ثم حاول بهذه المحاولة السابقة اليوم في موضوع مشابه لموضوعك هنا ، باستخدام الدالة التالية في مديول Public Sub UpdateImagePaths() Dim db As DAO.Database Dim rst As DAO.Recordset Dim oldPath As String Dim newBasePath As String Dim fileName As String newBasePath = CurrentProject.Path & "\Pictures\" ' هنا قم بتغيير اسم المجلد ----> Set db = CurrentDb Set rst = db.OpenRecordset("Table1", dbOpenDynaset) ' هنا قم بتغيير اسم الجدول ----> Do While Not rst.EOF oldPath = Nz(rst!Pic1, "") ' هنا قم بتغيير اسم الحقل الذي يحتوي المسار ----> If oldPath <> "" Then fileName = Mid(oldPath, InStrRev(oldPath, "\") + 1) rst.Edit rst!Pic1 = newBasePath & fileName rst.Update End If rst.MoveNext Loop rst.Close Set rst = Nothing Set db = Nothing End Sub ويتم استدعائها في أول نموذج يعمل لديك لاستبدال المسارات حسب مسار قاعدة بياناتك . يمكن تطوير الفكرة لتكون أكثر تطوراً من تكرار العملية في كل مرة يتم فيها تشغيل القاعدة وبدلاً من تحديث كامل السجلات ... إلخ .