اضافة إلي كود

[الشربيني 123]

السلام عليكم ورحمة الله 

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

يعني اما يفتح التقرير يغلق النموذج اللي في الخلف  .....مع الشكر للجميع

Private Sub GO152_Click()
On Error Resume Next
 & _ DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE
                                                              "and [NOV]=" & Me.SX                                                                                              
End Sub

تم تعديل أغسطس 31, 2022 بواسطه الشربيني 123

[أبو ألين]

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]

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

 

[الشربيني 123]

لم يفلح

7 دقائق مضت, أبو ألين said:

DoCmd.Close acForm, Me.Name

لم يفلح للأسف

8 دقائق مضت, Barna said:

DoCmd.Close

لم يفلح  للأسف

[أبو ألين]

ضع المثال كمرفق ، حتى تتضح المشكلة .

لأن الكود الذي وضعناه لك سليم .

[Barna]

هل النموذج المراد اغلاقة به هذا الزر الذي يحوي الكود السابق ؟؟؟؟؟

 

[الشربيني 123]

12 دقائق مضت, أبو ألين said:

On Error Resume Next
DoCmd.Close acForm, Me.Name

للأسف لم تفلح عند الفتح لا يظهر التقرير

6 دقائق مضت, Barna said:

هل النموذج المراد اغلاقة به هذا الزر الذي يحوي الكود السابق ؟؟؟؟؟

نعم به هذا الزر

[Barna]

ارفق مثال للنموذج والتقربر

[الشربيني 123]

7 دقائق مضت, rockjone33 said:

واعتقد ان يوجد خطأ في كودك واعلاه  ؟!

 

سوف ارفق لكم نموذج

[jjafferr]

السلام عليكم 🙂

 

الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂

المفروض يكون:

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

[أبو ألين]

1 دقيقه مضت, jjafferr said:

الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂

😅

[jjafferr]

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 ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير.

 

جعفر

[jjafferr]

13 دقائق مضت, rockjone33 said:

خلي رجلك على البريك ..🙂

.

.

جعفر

[الشربيني 123]

منذ ساعه, rockjone33 said:

.فتح التقرير يغلق 

 

 

تم تعديل أغسطس 31, 2022 بواسطه الشربيني 123

[الشربيني 123]

57 دقائق مضت, jjafferr said:

لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ،

ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير.

 

فتح و غلق.accdb

منذ ساعه, rockjone33 said:

فتح التقرير يغلق النموذج .. 

وتقرير حدث عند الاغلاق يفتح نموذج ..

 

فتح و غلق.accdb

منذ ساعه, Barna said:

ارفق مثال للنموذج والتقربر

تم ارفاق النموذج

[Barna]

تفضل <><><><><>

On Error Resume Next
DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI
DoCmd.Close acForm, Me.Name

 

[الشربيني 123]

58 دقائق مضت, Barna said:

تفضل

تسلم بجد الله ينور عليك

[Barna]

3 ساعات مضت, الشربيني 123 said:

تسلم بجد الله ينور عليك

اخي @الشربيني 123 من يستحق افضل اجابة هي اجابة استاذي الفاضل @jjafferr بارك الله بك وبه .....

[jjafferr]

شكرا اخوي محمد 🙂

9 ساعات مضت, Barna said:

DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI
DoCmd.Close acForm, Me.Name

 

الآن عرفنا وين الخطأ !!

اخونا الشربيني كان واضع كل كائنات امر الطباعة خطأ 🙄

 

جعفر

[الشربيني 123]

17 ساعات مضت, jjafferr said:

اخونا الشربيني كان واضع كل كائنات امر الطباعة خطأ 🙄

حبيبي يا جعفر يا هندسة طبعا كل الشكر لك ولكل لإخوتي اللي دائما ينقذوني ....أخوك مصطفى عاشق أهل عمان

تم تعديل سبتمبر 1, 2022 بواسطه الشربيني 123