اذهب الي المحتوي
أوفيسنا

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


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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information