Foksh

تأكد من أن اسم السيرفر و رقم المنفذ صحيحين عند الاتصال ، جرب استبدال اسم السيرفر بـ 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 ويتم استدعائها في أول نموذج يعمل لديك لاستبدال المسارات حسب مسار قاعدة بياناتك . يمكن تطوير الفكرة لتكون أكثر تطوراً من تكرار العملية في كل مرة يتم فيها تشغيل القاعدة وبدلاً من تحديث كامل السجلات ... إلخ .

أخي الكريم بارك الله فيك وجزاك الله كل الخير لما قدمته .. دعني أشاركك فكرة من المكتبة العامرة بهذا الملف البسيط أولاً ترجمة من جوجل1.accdb ثم دعني ألفت انتباهك إلى أن جوجل يترجم الكلمات التي لها معنى كالجنسيات ، ولكن في الأسماء للأسف جوجل لا يفهم ( الأعلام ) السماء على أنها أسماء . فمثلاً لو طلبت منه ترجمة اسم "جميل لامع" على سبيل المثال ؛ فستجد أنه أعطاك الترجمة = "Beautiful shiny" . فكيف سيتم تخزين الإسم في جدولك اذا كان هذا اسم الموظف فعلاً . لذا هناك فكرة أخرى تعتمد على تخزين الأسماء باللغة العربية ونظيره باللغة الإنجليزية في جدول . لدي ملف ولكن لصاحبه حق وقد طلب بأن لا أقوم بنشره للأسف .

أخي الكريم ، الإستيراد للقيم الموجودة في الخلايا في اكسل فقط ، وليس تصميم الخلية ( كومبوبوكس أو أزرار أو معادلات .... إلخ ) .

لإجراءاتكم بالإفادة إن كانت المشكلة المتعلقة باللغة العربية قد تم حلها أم لا .

حياك الله أخوي @magdidir .. أقل ما يمكننا فعله هو المساعدة .

♻ تم ضبط أسماء الملفات العربية عند الرفع . ♻ تم إضافة ميزة اختيار أكثرمن ملف ليتم الرفع دفعة واحدة . ♻ تم تعديل بعض الأجزاء البرمجية ( تحسين أداء ) نسخة 32 | نسخة 64 ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ Uploader 32.zip | Uploader 64.zip ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ