ابو ياسين المشولي

تسلم اخي kanory الله يوفق الجميع

انا في المبايل ولم اجرب الكود جرب هذا If Me.Text11 > 0 Then [Text11].BackColor = vbRed elseif Me.Text11 <0 Then [Text11].BackColor = vbGreen elseIf Me.Text11 =0Then  [Text11].BackColor = vbWhite End if

تسلم اخي khalf والذهب حلو الازرق والاحمر حملهم ثقيل

العفو اخي بالتوفيق

راجع هذا الشرح

هل هذا قصدك db55_UP.accdb

الله يبارك فيكم جميعا الله يعيننا جميعا لما فيه الخير

الله يبارك فيك

جرب تغير بدل اسم الكويري اسم الجدول

هل هذا ماتقصده Database7.accdb

اتفضل a = "ابو ياسين " DoCmd.OutputTo acOutputQuery, "إحصاء أنواع الصكوك الواردة لكل مفتش بتاريخ محدد", acFormatRTF, "D:\التقارير\إحصاء أنواع الصكوك برقم الوارد لجميع المفتشين بتاريخ محدد" & "\" & a & ".rtf", False

هل هذا ينفع Database7 (2).rar

جرب هذا DoCmd.OutputTo acOutputQuery, "إحصاء أنواع الصكوك الواردة لكل مفتش بتاريخ محدد", acFormatRTF, "D:\التقارير\إحصاء أنواع الصكوك برقم الوارد لجميع المفتشين بتاريخ محدد.rtf"

في الربط في الحذف في الاستعلام في المرتجع ما يكون في لخبطه

راجع هذا الموضوع

راي المتواضع جدولين افضل

اتفضل هذا حسب طلبك f Nz(Me.N1.Text) = Null Then Me.TB.Form.Form.Filter = Null Me.TB.Form.FilterOn = False Else Me.TB.Form.Filter = "[ID_Sanf]&[Sanf] Like '*" & _ Replace(Me.N1.Text, “‘”, "''") & "*'" Me.TB.Form.FilterOn = True End If Me.N1.SetFocus Me.N1.SelStart = Len(Me.N1.Text) البحث_(1).accdb

الاخ ابو زاهر عند كتابه الكود وفيه اسم عربي عند النسخ غير اللغه الى عربي وانسخ وعند كتابه كود اضغط على <> الموجود بجنب خط

تم اسخدام هذا بعد الحدث Dim varFilter As Variant varFilter = Null If Not IsNull(Me.N1) Then varFilter = (varFilter + " AND ") & "[Sanf]& [ID_Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'" End If With Me.TB.Form If Not IsNull(varFilter) Then .Filter = varFilter .DataEntry = False .FilterOn = True Else .FilterOn = False End If .Requery End With وهذا عند التغير SendKeys "{enter}", True شوف هذا البحث.accdb

في حدث بعد التحديث ضع هذا On Error Resume Next Dim varFilter As Variant varFilter = Null If Not IsNull(Me.N1) Then varFilter = "[Sanf] LIKE '*" & [Forms]![frm_Search_New]![N1] & "*'" End If With Me.TB.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

اتفضل طلبات الشراء.rar

لا اخي اعمل انشاء استعلام جديد فارغ ومن ثم اعمل سكويل وانسخ الكود انا سوف ارفع لك ملفك معدل وشوف هل هو المطلوب db4.accdb

العفو اخي بارك الله فيك

للرفع

اتفضل kan1.accdb.zip