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

حل وسط بارك الله فيك تسلم هو هذا المطلوب

يلغي فلترة البيان فقط او انه يعطي رساله ادخل كلمه البحث اذا ضغط اوكي المهم اذا ضغط لا يلغي مع رساله تم الالغاء ونعم واحد من الاثنين اما ان يطي رساله ادخل كلمه او لا يفلتر البيان ولك جزيل الشكر

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

للاسف لم ينجح الامر اذا ضغط نعم يقفل واذ ضغط لا يقفل التقرير ليس بنتيجه

MsgBox "تـم الـغـاء الامـر" ممتاز اخي رمهان بارك الله فيك واذا اردنا اضافه رساله

اريد عند الغاء الامر ان لا يفتح التقرير

الاول ليس له علاقه انا اللي عملته كل هو موجود في مدويل 1

للرفع

المهم لا ترجع تقول عايزها بدون كتابه بدون حروف ههههههههههه طلبك بالمرفق كتابة المبلغ (2).accdb

نظامي 64 الم تشتهد الصورة وللمعلومه يعمل عندي في 32 و64 ولكني انا منصب اكسس32

اخي انا عندي نظام 64 وجربته قبل ارساله اليك شوف الصور انا ارسلت لك البرنامج عندما فتحته ماذا صار فيه لم تختفي شاشه اكسس

اخي انا عندي نظام 64 وجربته قبل ارساله اليك شوف الصور

استاذ رمهان باقي لدي مشكله انه عند الضغط على cancel لا يعمل

اتفضل اتمنى يكون المطلوب اخفاء.accdb

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

اظن هذا حسب طلبك المكتبة.rar

عندما عملت كل الاكوداد في وحده نمطيه هل عملتهم حسب الترتيب اقصد زر فتح السجلات ثم الامر

ممكن شرح المطلوب وماهي النيجه كي نفهم

اتفضل حسب طلبك كتابة المبلغ.accdb

اتفضل اتمنى يكون حسب طلبك حماية.rar

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

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

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

اخي انا عدلت لك بالكود انسخه واستبدله في المدويل اللي عملته انت 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