أبوبسمله

اها معلش اخى فايز عدله من Me.ZTeacher2.Column(1) الى Me.ZTeacher2.Column(0) Private Sub Command14_Click() On Error GoTo Err_Command14_Click Dim stDocName As String Me.Visible = False ' stDocName = "مجموع المصروفات لكل معلم" ' DoCmd.OpenReport stDocName, acPreview DoCmd.OpenReport "مجموع المصروفات لكل معلم", acViewPreview, , "Teacher = '" & Me.ZTeacher2.Column(0) & "'" Exit_Command14_Click: Exit Sub Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub بالتوفيق اخى فايز

قمت بالتعديل ايضا ع المرفق الذى به الخطأ 2501 عند الغاء الاجراء ارجو رؤيه التعديلات اخوانى واساتذتى @jjafferr و @kha9009lid وهل هناك ملاحظات جزاكم الله خيرا Private Sub f1_Click() On Error GoTo Err_f1_Click Dim X As String X = Me.ZTeacher2.Column(0) & ".pdf" If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then DoCmd.CancelEvent Else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End If Else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X Exit_f1_Click: Exit Sub Err_f1_Click: If Err.Number = 2501 Then Resume Next Else MsgBox Err.Description Resume Exit_f1_Click End If End If End Sub A_Library1_1.rar

جزاك الله خيرا اخى خالد جزاك الله خيرا اخى خالد

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

نعم اخى فايز لقد ذكرت ذلك بالاعلى انه يوجد مشكله الخطأ 2501 عند الالغاء ومرفق التعديل الذى ذكره اخى خالد @kha9009lid جزاه الله خيرا A_Library2.rar

اخى خالد قمت بالتعديل على المرفق بتعديل عادى وجعل التقرير مبنى على استعلام داخلى واضافه المعيار له الاسم المختار من النموذج سوف اجرب ما تفضلت به ولكن هناك مشكله رساله الخطأ 2501 سوف احاول معها جازكم الله خيرا اخوانى واساتذتى A_Library1.rar

ههههههه يمكن اللهم آمين منا ومنكم ان شاء الله اخى واستاذى @kha9009lid جزاك الله خيرا ع التنبيه فلم الاحظه الا الان ولعل ذلك لان التقرير مينى على الجدول Stationary_Table مباشر فلا تتم تصفيته اخى ومعلمنا @jjafferr جزاك الله خيرا

التعديل الاخير كان يعمل لدى بشكل جيد والان لا سوف اراه بعد الافطار ان شاء الله

واياكم اخى فايز اذا كنت فاتح التقرير وانت بتجرب اغلقه وجرب مره اخرى ووافنا بالنتيجه

اتفضل اخى فايز Private Sub f1_Click() Dim X As String X = Me.ZTeacher2.Column(1) & ".pdf" If Len(Dir(CurrentProject.Path & "\" & X, vbDirectory)) <> 0 Then If MsgBox("هناك ملف محفوظ من قبل هل تريد استبداله", vbYesNo + vbDefaultButton2 + vbMsgBoxRight, "تنبيه") = vbNo Then DoCmd.CancelEvent Else DoCmd.OutputTo acOutputReport, "تقرير المصروفات فردي1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X End If End If End Sub بالتوفيق ان شاء الله

وفيك بارك الله اخى حسين بالتوفيق ان شاء الله

جزاك الله خيرا استاذ شيفان نعم هذه الداله ليست ضمن الاكسس هى بالاكسيل يمكنك اخى الفاضل الاستعانه بالداله السابقه الذكر من الاستاذ شيفان وهى للعد وليست للجمع وان كنت تريد الجمع استعن باختها Dsum 😀 بالتوفيق اخوانى

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

وعليكم السلام اخى حسين عند الفتح ضغط نعم لعرض الاستعلام ولا لعدم العرض ثم قم بافراغ جدول details وافتح الفورم تانى ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Acopy.rar

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

عليه افضل الصلاه والسلام صدق رسول الله صل الله عليه وسلم اللهم آمين جزاك الله خيرا اخى واستاذى خالد واسعد الله اوقاتكم كلها بذكره ورضوانه وانا يجمعنا ويظلنا يوم لا ظل الا ظله

الحمدلله الذى بنعمته تتم الصالحات ههههههههههههههه طب الحمد لله ان مفيش ام بسمله والا كنا هنتضرب سوا 😀 عدل الكود للتالى Dim X As String X = Me.ZTeacher2.Column(1) & ".pdf" DoCmd.OutputTo acOutputReport, "ÊÞÑíÑ ÇáãÕÑæÝÇÊ ÝÑÏí1", "PDFFormat(*.pdf)", CurrentProject.Path & "\" & X بالتوفيق ان شاء الله اخى فايز حصل هو انا هعيده تانى ابدا ههههههههههههههههههههه

اخى فايز قمت بتجربه الكود تبعك الان وانا اعمل على مرفقك الاخير بالموضوع الاخر وشغال تمام زى الفل بالتوفيق ان شاء الله

وعليكم السلام اخى فايز اطلع على المرفق هل هذا ما تريد؟ تقبل تحياتى ly.rar

جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr ربنا يبارك لنا فيك ويبارك لك فى جميع ما تحب وان يجمعنا ويظلنا يوم لا ظل الا ظله اهلا اخى حمدى @Khalf حمدالله على السلامه منور المنتدى

جزاك الله خيرا اخى صالح @ابوآمنة وبارك الله فيك من خلال الاطلاع عالمثال للاخ بلال فقد قام بوضع مربع قائمه لايتم فتح نموذج خلال مربع قائمه يا اخى بلال بل فى عنصر نموذج فرعى اضف عنصر نموذج فرعى ولا تسند اليه اى نماذج وقم باسناد النموذج المراد فتحه من خلال الكود فالزر الذى سيقوم بفتحه Me.mf.SourceObject = "frm2" مثلا لدينا عنصر نموذج فرعى مسمى mf ولدينا نموذج فرعى اسمه frm2 فقمنا باستدعائه بالكود السابق عند النقر عالزر تبعه لفتحه هذا والله اعلى واعلم تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق 20199.rar

وعليكم السلام اخى فايز ان كان يعمل معك بصوره طبيعيه فتمام ان كان بيظهر لك مشاكل فقم بعرضها بالتوفيق اخى فايز

الشكرلله ثم لاخواننا واساتذتنا جزاهم الله خيرا وفيك بارك الله اخى فايز

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

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