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

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

قام بنشر

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

DoCmd.Close ObjectType:=acForm, ObjectName:=(0), Save:=acSavePrompt

 

انا عايز يغلق جميع النماذج ما عادا نموذج واحد اسمه nam

 

قام بنشر

اخي الكريم لماذا تفتح موضوعين بنفس الموضوع

شوف هذا طلبك

 With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> strExcept Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 DoCmd.OpenForm "nam"
 End With

 

قام بنشر
1 ساعه مضت, ابو ياسين المشولي said:

اخي الكريم لماذا تفتح موضوعين بنفس الموضوع

شوف هذا طلبك


 With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> strExcept Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 DoCmd.OpenForm "nam"
 End With

 

اخي الكريم مش هينفع اغلق النموذج وافتحه تاني عشان له مصدر وهيطلب المصدر من جديد

قام بنشر

السلام عليكم

بعد إذنك أخي ابو ياسين تعديل بسيط على الكود الذي استعملته:

With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> "nam" Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 End With

 

  • Like 3
  • Thanks 1
قام بنشر

اخي الكريم اشكلرك علي الاهتمام ولاكن هذا ليس المطلوب انا عايز اغلق جميع النماذج ما عادا نموج الشاشة فقط مش هينفع اقفله وافتحه تاني 

قام بنشر
منذ ساعه, moamen salem said:

اخي الكريم اشكلرك علي الاهتمام ولاكن هذا ليس المطلوب انا عايز اغلق جميع النماذج ما عادا نموج الشاشة فقط مش هينفع اقفله وافتحه تاني 

اخي الكريم هذا يغلق جميع النماذج ماعد نموذج اسمه nam

With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .NAME <> "nam" Then
 DoCmd.Close acForm, .NAME
 End If
 End With
 Next i
 End With

 

قام بنشر

اتفضل اخي انا عايز يغلق كل النماذج ما عادة النموذج الرئيسي ويكون الكود في الرئيسي

New Microsoft Access Database.rar

5 دقائق مضت, sandanet said:

تفضل

example.mdb

والله انك صقر وشكرا للاخواة شكر جزيلا

 

قام بنشر

اخي الفاضل كل الطرق تعطيك نفس النتيجه

With Application.Forms
 For i = .Count - 1 To 0 Step -1
 With .Item(i)
 If .Name <> "الشاشة الرئيسية" Then
 DoCmd.Close acForm, .Name
 End If
 End With
 Next i
 End With

  • Like 1
قام بنشر

حفظكم الله اين ما كنتم كم انت طيبن تحبون الخير للناس  بارك الله فيكم

الف تحيه لكم

  • Like 1

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information