اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Mostafa Yeheya

الردود الموصى بها

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

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

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

هل من طريقة

😙

تعديل.rar

Untitled1.png

تم تعديل بواسطه Mostafa Yeheya
إضافة صورة للتوضيح
رابط هذا التعليق
شارك

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

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

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

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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

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 تنزيلات

تحياتي

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

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

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

رابط هذا التعليق
شارك

استاذى الفاضل الكود سليم 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

تحياتي

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

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

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

والله اعلم

تحياتي

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information