اغلاق النموذج الفرعي

[Mostafa Yeheya]

السلام عليكم اخواتى 

لدى زرار "X"  فى الفورم الرئسى "frmHome"

اريد تمكينه من اغلاق الفروم المفتوحه فى الsubform

هل من طريقة

😙

تعديل.rar

تم تعديل يناير 25, 2020 بواسطه Mostafa Yeheya
إضافة صورة للتوضيح

[Gamor]

عليكم السلام ورحمه الله وبركاته

صباح الخير اخي Mostafa 

راجع المرفق بعد التعديل

اتمنا ان اكون وفقت في مساعدتك

تعديل 1.rar

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

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

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

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

Private Sub Command41_Click()
        
        Me.FRM.SourceObject = ""
        
        Dim FormCount As Integer
        Dim i As Integer

        FormCount = Forms.Count
        For i = FormCount - 1 To 0 Step -1
        If Forms(i).Name <> FormName Then
        DoCmd.Close acForm, Forms(i).Name
        End If
        Next i
        DoCmd.OpenForm "frmHome"

End Sub

تعديل.rar

تحياتي

[Mostafa Yeheya]

13 ساعات مضت, محمد ابوعبد الله said:

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

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

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

Private Sub Command41_Click()
        
        Me.FRM.SourceObject = ""
        
        Dim FormCount As Integer
        Dim i As Integer

        FormCount = Forms.Count
        For i = FormCount - 1 To 0 Step -1
        If Forms(i).Name <> FormName Then
        DoCmd.Close acForm, Forms(i).Name
        End If
        Next i
        DoCmd.OpenForm "frmHome"

End Sub

تعديل.rar 349.51 kB · 4 تنزيلات

تحياتي

صح هو دا الحل ممكن بعد إذنك تشرحلى الكود بعد إذنك جزاك الله كل خير 

حابب استذيد من العلم وافهم الكود 

شكرا أ/ محمد ابو عبدالله

[Mostafa Yeheya]

استاذى الفاضل الكود سليم 100با 100 

بس هو بيغلق اى نموزج مفتوح 

وانا لا اريده ان يغلق نموزج تسجيل الدخول

لانى اخفيه للإحتفاظ باسم المستخدم 

هل يوجد حل 

لتجاهل نموزج [login]  بدلا من اغلاقة

 

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

السلام عليكم

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

Private Sub Command41_Click()
        
        Me.frm.SourceObject = ""
        
        Dim FormCount As Integer
        Dim i As Integer

        FormCount = Forms.Count
        For i = FormCount - 1 To 0 Step -1
        If Forms(i).Name <> "frmHome" And Forms(i).Name <> "login" Then
        DoCmd.Close acForm, Forms(i).Name
        End If
        Next i
End Sub

تعديل_2.rar

تحياتي

[Mostafa Yeheya]

بارك الله فيك يامعلم

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

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

Private Sub Command41_Click()

        ' تفريغ مصدر النموذج الفرعي SourceObject
        Me.frm.SourceObject = ""
        
		' اعلان عن متغيير عددي
        Dim FormCount As Integer
        Dim i As Integer
		'سيكون  المتغيير FormCount = عدد النماذج المفتوحة
        FormCount = Forms.Count
		
		' عمل خلقة تكريرية
        For i = FormCount - 1 To 0 Step -1
		
		' استثناء نماذج محددة من الاغلاق وذلك بالشرط التالي
		' اذا كان النموذح المفتوح غير النموذج  frmHome  login ونموذج
		If Forms(i).Name <> "frmHome" And Forms(i).Name <> "login" Then
		
		' تنفيذ امر الاغلاق
        DoCmd.Close acForm, Forms(i).Name
        
		' انهاء الشرط
		End If
		
		' تشغيل الحلقة التكرارية
        Next i
End Sub

والله اعلم

تحياتي