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

العفو اخي بارك الله فيك مافي تعب بالعكس انا سعيد اني قدرت اخدمك بارك الله فيك ووفقك

اخي انا عدلت لك بالكود انسخه واستبدله في المدويل اللي عملته انت Prog42.rar

اخي انا لا اعلم بصحه النتايج ولكن الوحده النمطيه بتكون هذا واذا في خطاء اخبرني Option Compare Database Function Assist() On Error Resume Next form1.MySubNum = Year(EndDate) - Year(FirstDate) '--------------------------------------------------------------------------------- Dim x As Integer form1.Form.SetFocus form1.Frm1.SetFocus form1.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For x = 1 To Form_Form1.MySubNum form1_Form_Frm1.ID = x DoCmd.GoToRecord , , acNext Next x '------------------------------------------------------------------------------------------- On Error Resume Next Dim i As Integer form1.Form.SetFocus form1.Frm1.SetFocus form1.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Form1_Frm1.Form.Recordset.RecordCount If Month(form_Form_Frm1.ShopDate) <> 12 Then form1_Form_Frm1.EndtharSum = form1.Cost * form1.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12) Form1_Form1_Form_Frm1.EndtharYear = form1.Cost * form1.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12) Else form1_Form_Frm1.EndtharSum = form1.Cost * form1.IndtharRute form1_Form_Frm1.EndtharYear = form1.Cost * form1.IndtharRute End If DoCmd.GoToRecord , , acNext Next i form1.Refresh '------------------------------------------------------------------------------------------- If form1.FirstDate And form1.EndDate >= "" Then Dim FariqYear As Integer FariqYear = DateDiff("yyyy", form1.FirstDate, form1.EndDate) form1.Form.SetFocus Forms!form1.Frm1.SetFocus Forms!form1.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To form1.Frm1.Form.Recordset.RecordCount If Month(form1.FirstDate) <> 12 Then If i = 1 Then form1_Form_Frm1.ShopDate = form1.FirstDate ElseIf i = 1 Then form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate) Else form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate) + (i - 1) End If Else If i = 1 Then form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate) Else form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate) + (i - 1) End If End If DoCmd.GoToRecord , , acNext Next i Else MsgBox "رجاءا ادخل تاريخ الشراء وتاريخ اخر الفترة" End If form1.Refresh End Function

جرب هذا On Error Resume Next Me.MySubNum = Year(EndDate) - Year(FirstDate) '--------------------------------------------------------------------------------- Dim x As Integer Form1.Form.SetFocus Form1.Frm1.SetFocus Form1.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For x = 1 To Form_Form1.MySubNum form1_Form_Frm1.ID = x DoCmd.GoToRecord , , acNext Next x '------------------------------------------------------------------------------------------- On Error Resume Next Dim i As Integer Me.Form.SetFocus Form1.Frm1.SetFocus Form1.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Form1_Frm1.Form.Recordset.RecordCount If Month(form_Form_Frm1.ShopDate) <> 12 Then form1_Form_Frm1.EndtharSum = Me.Cost * Me.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12) Form1_Form1_Form_Frm1.EndtharYear = Me.Cost * Me.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12) Else form1_Form_Frm1.EndtharSum = Me.Cost * Me.IndtharRute form1_Form_Frm1.EndtharYear = Me.Cost * Me.IndtharRute End If DoCmd.GoToRecord , , acNext Next i Me.Refresh '------------------------------------------------------------------------------------------- If Me.FirstDate And Me.EndDate >= "" Then Dim FariqYear As Integer FariqYear = DateDiff("yyyy", Me.FirstDate, Me.EndDate) Form1.Form.SetFocus Forms!Form1.Frm1.SetFocus Forms!Form1.Frm1.Form.ShopDate.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To Me.Frm1.Form.Recordset.RecordCount If Month(Me.FirstDate) <> 12 Then If i = 1 Then form1_Form_Frm1.ShopDate = Me.FirstDate ElseIf i = 1 Then form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) Else form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1) End If Else If i = 1 Then form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) Else form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1) End If End If DoCmd.GoToRecord , , acNext Next i Else MsgBox "ÑÌÇÁÇ ÇÏÎá ÊÇÑíÎ ÇáÔÑÇÁ æÊÇÑíÎ ÇÎÑ ÇáÝÊÑÉ" End If Me.Refresh اذا جاب النتيجه يمكنك ان تعمله في وحده نمطيه ثم تستعيها في الحالي او في زر امر

الله يحفظك اخي نحن هنا نفيد بما نستطيع ونستفيد اكثر واكثر من هذا المنتدى الكبير بالتوفيق الله يوفقك

جرب هذا If Me.[text1]=0 then DoCmd.RunSQL = Qry1 DoCmd.RunSQL = Qry3 Else DoCmd.RunSQL = Qry1 DoCmd.RunSQL = Qry2 DoCmd.RunSQL = Qry3

ممتاز اخي رمهان بارك الله فيك رد على سوالك لماذا مصر على هذه الداله لانها عند عدل البرنامج ال2010 صارت تجيني في الزاويه وشكلها ما عجبني هههههههههههه اكرر شكري لك كانت تجيني بهذا الشكل الان اتغلبت عليها بخبرتكم بارك الله فيك

مصدر التقرير استعلامQ1 واستعلام Q1 مصدره جدول TBL2 فقط هو اضاف في الاستعلام هذا Rasid: [EndtharYear]+[EndtharSum] وهذا BookValue: [Cost]-[Rasid] ثم جعل مصدر التقرير استعلام Q1 واضاف له هذا end: DSum(" [EndtharSum] ";"[Q1]";"[id]<=" & [id] & "and [PrivetCode]= Reports![rep1]![PriavetCode] ") اظن هذا شرح كافي ووافي تحياتي

هو نفس التقرير لو حملت الملف بتعرف بحث بين تاريخين وشرط انه يعطي رساله ادخل معيار الان هو كويس ولكن يعطي 3 رسايل

وعند البحث وجدت هذه ولكن ليست المطلوب Like Eval("inputbox ('من فضلك أدخل حرف :','بحث بالحروف','')") & "*"

عرقت المشكلة ولكن لم اعرف الحل المشكله انه يعتبر Between [Forms]![date05]![from] And [Forms]![date05]![to2] شرطين لو الغيتها يعطيني رساله احده ولكن لا يوجد معيار للتاريخ فهل من حل

هذا فيديو كما طلبت

جربتها هي كويسه اذا تعديت الاولى والثانيه لانها تتكرر 3 مرات انظر للملف ابحث مثلا بنزين رمهان.accdb

للاسف اخي رمهان هذة انا جربتها ولم تنفع اولا الرساله تجي 3 مرات ولم تعطي المطلوب بحاول ارفع لك مثال مصغر

هكذا تطلع عندي

اخي رمهان مازلت لم تضبط هل من المكتبه بحاول فيها وبشوف

تسلم اخي رمهان انا حاولت في مثل هذة من قبل ياليت لو تخبرني كيف اعملها بهذا المعيار Like "*" & [ادخل اسم القماش] & "*"

بالتوفيق اخي حربي العنزي الله يحفظك ولك بالمثل

للرفع

تم ذلك عن طريق التقرير الفرعي

جمله السكويل بعد ان تعمل الاستعلام اضغط خيارات يطلع عرض او تصميم او سكويل شوف الصور

عملت نسخ ولصق ثم غيرت اسمه وبعدها غيرت ما هو موضح بالصورة

برغم الموضوع مخالف وهو في شروط المنتدى ممنوع استخدام مساعدة ولكن بعد اذن المشرفين شوف المرفق كان لازم تضيف استعلام وتغير فيه اسم التقرير ProgAssit40.mdb

اتفضل اخي رمهان AZAZ.accdb بالتوفيق اخي

اتفضل هذا حسب فهمي للسوال Dim d As String If Not IsNull(DLookup("[txtD1]&[txtD2]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ")) Then MsgBox "هذا التاريخ سبق ادخالة في طباعة المسيرات" Me.ID1 = DLookup("[ID1]", "tbl1", "[txtD1]=forms!FSERSH!txtD1 and [txtD2]=forms!FSERSH!txtD2 ") Me.txtD1 = Null Me.txtD2 = Null Me.txtD1.SetFocus Exit Sub End If AZAZ.rar