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

هل هذا قصدك 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

SELECT tb1.nam, tb1.salry, tb1.dy_work, tb1.hor_dy, tb1.apsnt, tb1.lat, Round(Nz([salry]/[dy_work],2),"0") AS amo_per, Round(Nz([amo_per]/[hor_dy],2),"0") AS amo_hor, Round(Nz([amo_per]*[apsnt],2),"0") AS amo_apsnt, Round(Nz([amo_hor]*[lat],2),"0") AS amo_lat, Round([amo_apsnt]+[amo_lat],2) AS amo_ded, Round([salry]-[amo_ded],2) AS net_salry, tb1.tak, Round([net_salry]-[tak],2) AS amo_def FROM tb1; استخدم داله nz

استخدم داله nz

اجعل الكود عند ضغط جديد

في حدث بالنموذج الحالي If [Cocher43] = 0 And IsNull(Me.N°_Carte_Nationale) Then Me.N°_Carte_Nationale.Enabled = False Else Me.N°_Carte_Nationale.Enabled = True End If ضع هذا

في حدث بالنموذج عند التحميل ضع هذا If [Cocher43] = 0 And Me.N°_Carte_Nationale = Null Then Me.N°_Carte_Nationale.Enabled = False Else Me.N°_Carte_Nationale.Enabled = True End If