Foksh

وعليكم السلام ورحمة الله وبركاته ,, استبدل سطر الفلترة في الزرين 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

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

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

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

أخي الكريم @moho58 ، بما أنك لم تقرأ الإستعلام جيداً ، ابحث عن كلمة SELECT TOP 3 في الاستعلام الذي ارسلته سابقاً وفقط غيرها الى SELECT TOP 4 وتنتهي مشكلتك بإذن الله

ولا يهمك أخي الكريم .. تستحق أكثر من غيرك

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

وعليكم السلام ورحمة الله وبركاته ,, تفضل يا صديقي :- Private Function OpenDatabaseAndQuit(dbName As String) Dim currentPath As String Dim dbPath As String currentPath = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\")) dbPath = currentPath & dbName & ".mdb" Shell "cmd /c start " & dbPath, vbHide Application.Quit End Function Private Sub أمر22_Click() OpenDatabaseAndQuit "A" End Sub Private Sub أمر3_Click() OpenDatabaseAndQuit "B" End Sub الملف بعد التعديل Data.zip

اما فيما يخص الطلب الثاني ، فهل انت متأكد من نتيجة الاستعلام الذي يجلب القيمة للحقل Z_ALL هل القيمة المشار اليها صحيحة ؟؟؟؟؟؟؟؟؟؟؟ وما مصدرها في الجدول ؟؟؟؟ على العموم في المرفق تم تطبيق حل المشكلة الأولى ,, الثانية للتدقيق نهائي 3.zip

هل هذه النتيجة صحيحة بالنسبة للطلب الأول ؟

تم التنفيذ سابقاً ، وهذا المرفق مصور لما تم تطبيقه control2025.accdb

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

يا اخي والله ما فهمت عليك .. انت تريد اضافتها كسجلات جديدة ؟؟؟؟؟ ام تريد تحديث للسجلات الموجودة ؟؟؟؟؟؟؟؟؟؟؟؟

وعليكم السلام ورحمة الله وبركاته .. اجعل هذا الاستعلام مصدر سجلات النموذج SELECT tbnum.id, tbnum.numx, IIF(tbnum.numx - INT(tbnum.numx) > 0, 'A', 'B') AS resultx FROM tbnum;

يعني اقتربنا من تحقيق الهدف ،،

على حسب ما فهمت , وإن شاء الله يكون قريب من اللي محتاجه .. جرب الاستعلام التالي مصدر سجلات التقرير 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 3 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="موظف" 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;

لم تظهر عندي المشاكل التي ذكرتها ,, قمت بالتعديل على قيمة بعد الفلترة وتم الحفظ والخروجمن النموذج دون اي رسائل خطأ !!!!!!!!!

بما أن الموضوع حماسي ، وتبارك الله مشاركات وأفكار عظيمة ,, أشارك معكم فكرة على الهامش Private isProcessing As Boolean Private Sub y_n_BeforeUpdate(Cancel As Integer) If isProcessing Then Exit Sub isProcessing = True With Me.RecordsetClone .FindFirst "[y_n]=-1" .Edit !y_n = 0 .Update End With isProcessing = False End Sub

جرب تعديل زر الحفظ كالتالي :- Private Sub cmdSave_Click() On Error GoTo ErrorHandler If WrkSpace Is Nothing Then Set WrkSpace = DBEngine.Workspaces(0) End If If WrkSpace Is Nothing Then MsgBox "حدث خطأ", , "" Exit Sub End If With WrkSpace .CommitTrans Me.Recordset.Requery .BeginTrans End With m_dirty = False Exit Sub ErrorHandler: MsgBox "حدث خطأ", , "" End Sub