Foksh

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

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

حسب ما فهمت من معطياتك ، جرب هذا الاستعلام :- 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 ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

وعليكم السلام ورحمة الله وبركاته ,, استبدل سطر الفلترة في الزرين Btn_Select و Btn_Selects .Filters.Add "Excel Files", "*.xlsx; *.xls; *.xlsm" وسيظهر معك ..

بعد فهم الموضوع بشكل مناسب ، جرب تعديل المديول X1 بهذا التعديل البسيط Option Compare Database Option Explicit Sub AddToWheredate(fieldvalue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer) Dim mydate As Variant If fieldvalue <> "" And IsDate(fieldvalue) Then mydate = fieldvalue mydate = Format(mydate, "m-d-yy") If ArgCount > 0 Then MyCriteria = MyCriteria & " and " End If MyCriteria = (MyCriteria & FieldName & " = #" & mydate & "#") ArgCount = ArgCount + 1 End If End Sub Sub AddToWhereegal(fieldvalue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer) If fieldvalue <> "" Then If ArgCount > 0 Then MyCriteria = MyCriteria & " and " End If If IsNumeric(fieldvalue) Then MyCriteria = (MyCriteria & FieldName & " = " & fieldvalue) Else MyCriteria = (MyCriteria & FieldName & " = " & Chr(39) & fieldvalue & Chr(39)) End If ArgCount = ArgCount + 1 End If End Sub Sub AddToWherelike(fieldvalue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer) If fieldvalue <> "" Then If ArgCount > 0 Then MyCriteria = MyCriteria & " and " End If If IsNumeric(fieldvalue) Then MyCriteria = (MyCriteria & FieldName & " = " & fieldvalue) Else MyCriteria = (MyCriteria & FieldName & " like " & Chr(39) & fieldvalue & Chr(42) & Chr(39)) End If ArgCount = ArgCount + 1 End If End Sub Sub addtowherecenter(fieldvalue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer) If fieldvalue <> "" Then If ArgCount > 0 Then MyCriteria = MyCriteria & " and " End If If IsNumeric(fieldvalue) Then MyCriteria = (MyCriteria & FieldName & " = " & fieldvalue) Else MyCriteria = (MyCriteria & FieldName & " like " & Chr(39) & Chr(42) & fieldvalue & Chr(42) & Chr(39)) End If ArgCount = ArgCount + 1 End If End Sub Sub AddToWherenombre(fieldvalue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer) If fieldvalue <> 0 Then If ArgCount > 0 Then MyCriteria = MyCriteria & " and " End If If IsNumeric(fieldvalue) Then MyCriteria = (MyCriteria & FieldName & " = " & fieldvalue) Else MyCriteria = (MyCriteria & FieldName & " = " & Chr(39) & fieldvalue & Chr(39)) End If ArgCount = ArgCount + 1 End If End Sub

نعم

وعليكم السلام ورحمة الله وبركاته ,, جرب هذا التعديل أخي الكريم . أما فيما يخص زر السكانر ، فقد تم تعديل بسيط ولم يتم تجربته لعدم توافر سكانر لدي CARD.zip

وعليكم السلام ورحمة الله وبركاته أخي @magdidir .. حاولت فهم المطلوب الذي لا يتم فعله في نموذجك ، ولكني وجدت انه عند كتابة رقم الشركة أو رقم الموظف بشكل يدوي يتم البحث عنه بكل سلاسة ..إلا إذا قمت بالتوضيح عن آلية البحث التي تقوم بها ولم تنجح معك .

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

حسناً ، دعنا نتحايل على طريقة عرض القيم كالتالي :- الملف بعد التعديل :- BASEK.accdb

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

انصحك بأن تقوم بالتحديث في وقت عدم استخدام قاعدة البيانات بالإستبدال فقط . أما موضوع ان تقوم بإغلاق البرنامج قصراً عن المستخدم فما تدري قد يكون المستخدم يقوم بحفظ سجل .... إلخ.

أخي الكريم ، المسميات العربية تسبب لك الكثير من المشاكل ، وخصوصاً التي تكون من مقطعين