الشربيني 123 قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 (معدل) السلام عليكم ورحمة الله هل من الممكن اضيف عبارة لغلق النموذج وفتح هذا التقرير يعني اما يفتح التقرير يغلق النموذج اللي في الخلف .....مع الشكر للجميع Private Sub GO152_Click() On Error Resume Next & _ DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE "and [NOV]=" & Me.SX End Sub تم تعديل أغسطس 31, 2022 بواسطه الشربيني 123
أبو ألين قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 Private Sub GO152_Click() On Error Resume Next DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & _ "and [NOV]=" & Me.SX End Sub نعم تستطيع اغلاق النموذج ثم فتح التقرير المراد بهذه الطريقة اعلاه .. جرب . تحياتي،
Barna قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 8 دقائق مضت, الشربيني 123 said: السلام عليكم ورحمة الله هل من الممكن اضيف عبارة لغلق النموذج وفتح هذا التقرير يعني اما يفتح التقرير يغلق النموذج اللي في الخلف .....مع الشكر للجميع Private Sub GO152_Click() On Error Resume Next DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & _ "and [NOV]=" & Me.SX End Sub جرب ................ DoCmd.Close DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & _ "and [NOV]=" & Me.SX 2
الشربيني 123 قام بنشر أغسطس 31, 2022 الكاتب قام بنشر أغسطس 31, 2022 لم يفلح 7 دقائق مضت, أبو ألين said: DoCmd.Close acForm, Me.Name لم يفلح للأسف 8 دقائق مضت, Barna said: DoCmd.Close لم يفلح للأسف
أبو ألين قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 ضع المثال كمرفق ، حتى تتضح المشكلة . لأن الكود الذي وضعناه لك سليم .
Barna قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 هل النموذج المراد اغلاقة به هذا الزر الذي يحوي الكود السابق ؟؟؟؟؟ 2
الشربيني 123 قام بنشر أغسطس 31, 2022 الكاتب قام بنشر أغسطس 31, 2022 12 دقائق مضت, أبو ألين said: On Error Resume Next DoCmd.Close acForm, Me.Name للأسف لم تفلح عند الفتح لا يظهر التقرير 6 دقائق مضت, Barna said: هل النموذج المراد اغلاقة به هذا الزر الذي يحوي الكود السابق ؟؟؟؟؟ نعم به هذا الزر
الشربيني 123 قام بنشر أغسطس 31, 2022 الكاتب قام بنشر أغسطس 31, 2022 7 دقائق مضت, rockjone33 said: واعتقد ان يوجد خطأ في كودك واعلاه ؟! سوف ارفق لكم نموذج
jjafferr قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 (معدل) السلام عليكم 🙂 الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂 المفروض يكون: Private Sub GO152_Click() On Error Resume Next DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & " and [NOV]=" & Me.SX DoCmd.Close acForm, Me.Name End Sub او Private Sub GO152_Click() On Error Resume Next dim GE2 as long,SX2 as long GE2=me.GE : SX2= me.SX DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & GE2 & " and [NOV]=" & SX2 End Sub جعفر تم تعديل أغسطس 31, 2022 بواسطه jjafferr 2
أبو ألين قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 1 دقيقه مضت, jjafferr said: الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂 😅
jjafferr قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 9 دقائق مضت, rockjone33 said: وين القلبه . اقتباس Private Sub GO152_Click() On Error Resume Next DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & " and [NOV]=" & Me.SX End Sub . يا طويل العمر : لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. جعفر 1 1
jjafferr قام بنشر أغسطس 31, 2022 قام بنشر أغسطس 31, 2022 13 دقائق مضت, rockjone33 said: خلي رجلك على البريك ..🙂 . . جعفر 1 2
الشربيني 123 قام بنشر أغسطس 31, 2022 الكاتب قام بنشر أغسطس 31, 2022 (معدل) منذ ساعه, rockjone33 said: .فتح التقرير يغلق تم تعديل أغسطس 31, 2022 بواسطه الشربيني 123
الشربيني 123 قام بنشر أغسطس 31, 2022 الكاتب قام بنشر أغسطس 31, 2022 57 دقائق مضت, jjafferr said: لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. فتح و غلق.accdb منذ ساعه, rockjone33 said: فتح التقرير يغلق النموذج .. وتقرير حدث عند الاغلاق يفتح نموذج .. فتح و غلق.accdb منذ ساعه, Barna said: ارفق مثال للنموذج والتقربر تم ارفاق النموذج
أفضل إجابة Barna قام بنشر أغسطس 31, 2022 أفضل إجابة قام بنشر أغسطس 31, 2022 تفضل <><><><><> On Error Resume Next DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name 3 1
الشربيني 123 قام بنشر أغسطس 31, 2022 الكاتب قام بنشر أغسطس 31, 2022 58 دقائق مضت, Barna said: تفضل تسلم بجد الله ينور عليك
Barna قام بنشر سبتمبر 1, 2022 قام بنشر سبتمبر 1, 2022 3 ساعات مضت, الشربيني 123 said: تسلم بجد الله ينور عليك اخي @الشربيني 123 من يستحق افضل اجابة هي اجابة استاذي الفاضل @jjafferr بارك الله بك وبه ..... 3
jjafferr قام بنشر سبتمبر 1, 2022 قام بنشر سبتمبر 1, 2022 شكرا اخوي محمد 🙂 9 ساعات مضت, Barna said: DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name الآن عرفنا وين الخطأ !! اخونا الشربيني كان واضع كل كائنات امر الطباعة خطأ 🙄 جعفر 1 1
الشربيني 123 قام بنشر سبتمبر 1, 2022 الكاتب قام بنشر سبتمبر 1, 2022 (معدل) 17 ساعات مضت, jjafferr said: اخونا الشربيني كان واضع كل كائنات امر الطباعة خطأ 🙄 حبيبي يا جعفر يا هندسة طبعا كل الشكر لك ولكل لإخوتي اللي دائما ينقذوني ....أخوك مصطفى عاشق أهل عمان تم تعديل سبتمبر 1, 2022 بواسطه الشربيني 123
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.