طلب طريقة اغلاق جميع النماذج والتقارير المفتوحة دفعة واحدة وفتح نموذج FXY

[ازهر عبد العزيز]

طلب طريقة اغلاق جميع النماذج والتقارير المفتوحة ,بالاضافة الى النموذج المتواجد بة دفعة واحدة وفتح نموذج FXY

تم تعديل أكتوبر 1, 2021 بواسطه ازهر عبد العزيز

[محمد أبوعبدالله]

تفضل اخي الكريم

    Dim i As Integer
    
    With Application.Forms
     For i = .Count - 1 To 0 Step -1
        With .Item(i)
            If .Name <> "FXY" Then
                DoCmd.Close acForm, .Name
            End If
        End With
        Next i
     End With
     DoCmd.OpenForm "FXY"
     
    With Application.Reports
     For i = .Count - 1 To 0 Step -1
        With .Item(i)
            DoCmd.Close acReport, .Name
        End With
     Next i
     End With

تحياتي