اريد اغلاق النموذج الرئيسي بكود ... ممكن؟

[zoom10]

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

لدي نموذج رئيسي واسمه ArkamTakzeen ويوجد به زر خاص التقرير لمادة واحدة فقط وهذا هو كود الزر

 

Private Sub أمر12_Click()
On Error GoTo err_أمر12_Click
Dim stLinkCriteria As String
stLinkCriteria = "[ID] =" & Me![id]
DoCmd.OpenReport "TG", acViewPreview, , stLinkCriteria
stDocName = "PrintPreviewFrm"

    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "TG"
  

exit_أمر12_Click:
Exit Sub
err_ÃãÑ12_Click:
    If Err.Number = 3075 Then
        MsgBox "    لايوجد مادة لعرضها"
        Resume exit_أمر12_Click
        
    Else
     MsgBox Err.Number & vbCrLf & Err.Description
   
    End If
        
End Sub

 

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

ويفتح التقرير

قمت بإضافة DoCmd.Close ولكن لم تنفع معي

اتمنى مساعدتي وتحملونا بارك الله فيكم وفي علمكم .

 

 

[ابو جودي]

ممكن مرفق

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

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

تم تعديل مايو 15, 2019 بواسطه ابا جودى

[zoom10]

للأسف أخي الكريم ابا جودي لايمكن جعل الخاصية نعم لأنه يؤثر على زر آخر وهو التقرير الشامل .

 

[ابو جودي]

33 دقائق مضت, zoom10 said:

للأسف أخي الكريم ابا جودي لايمكن جعل الخاصية نعم لأنه يؤثر على زر آخر وهو التقرير الشامل .

 

طيب المرفق لو تكرمت الله يرضى عليك

[kaser906]

بعد أذن الاستاذ ابو جودي

استخدم الجملة التالية قبل فتح التقرير

        Me.Visible = False

وعند أغلاق التقرير

Forms![أسم النموذج].Visible = True

::بالتوفيق::

[zoom10]

بارك الله فيك أخي الكريم kaser906

ادخلت الكود الذي صنعته داخل الكود أعلاه ونجحت العملية وأصبح الكود كالتالي :

 

 

أكرر شكري وتقديري لك وللأخ الكريم أبا جودي .