أغلاق نموذج خارجي

[محمدنجار]

الأخوة الأعزاء السلام عليكم

:: هناك نموذجين مفتوحين احدهما في الامام والاخر في الخلف ..

:: كيف اغلق النموذج الامامي فقط بواسطة رز موجود في النموذج الخلفي دون ذكر اسم النموذج في كود زر الأمر ؟ ... مع الشكر

[Shivan Rekany]

16 دقائق مضت, محمدنجار said:

الأخوة الأعزاء السلام عليكم

:: هناك نموذجين مفتوحين احدهما في الامام والاخر في الخلف ..

:: كيف اغلق النموذج الامامي فقط بواسطة رز موجود في النموذج الخلفي دون ذكر اسم النموذج في كود زر الأمر ؟ ... مع الشكر

ممكن تعطينا مثال على ذلك .. لكي نعمل التجربة عليه 

[محمدنجار]

8 دقائق مضت, Shivan Rekany said:

ممكن تعطينا مثال على ذلك .. لكي نعمل التجربة عليه 

:: اهلا اخ شفان ... بمعنى اخر الزر في الفورم يغلق اي نموذج مفتوح في الامام .

CloseForm.rar

[Shivan Rekany]

3 دقائق مضت, محمدنجار said:

:: اهلا اخ شفان ... بمعنى اخر الزر في الفورم يغلق اي نموذج مفتوح في الامام .

CloseForm.rar

اتفضل اليك هذا الكود

Private Sub Command0_Click()
    Dim obj As AccessObject, dbs As Object
        Set dbs = Application.CurrentProject
    For Each obj In dbs.AllForms
        If obj.IsLoaded = True And obj.Name <> Me.Name Then
            DoCmd.Close acForm, obj.Name, acSaveYes
        End If
    Next obj
End Sub

واليك ملفك بعد تعديل

 

CloseForm.rar

[محمدنجار]

7 دقائق مضت, Shivan Rekany said:

اتفضل

:: شكرا اخي العزيز شفان ... لا اعلم ماذا افعل بعد انفصال اقليم كردستان ؟!

[Shivan Rekany]

6 دقائق مضت, محمدنجار said:

:: شكرا اخي العزيز شفان ... لا اعلم ماذا افعل بعد انفصال اقليم كردستان ؟!

هنا في المنتدى سنكون معاً ان شاء الله