وحده نمطيه لاغلاق النماذج

**النجاشي** · أكتوبر 1, 2018

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

احبتي لقد قرات ان كلما قلت الاكواد كان افضل لقاعده البيانات

ممكن احد يعمل لنا مثال لاغلاق النماذج

بوحده نمطيه ونستدعيها

بدل ما نكتب الكودDoCmd.Colse بكل نموذج

شاكرين لكم احبتي

**ابوخليل** · أكتوبر 2, 2018

 Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop

**النجاشي** · أكتوبر 2, 2018

3 ساعات مضت, ابوخليل said:
 Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop

بارك الله فيك استاذنا الغالي ابو خليل

عملتها هكذا

Function CloseRecord()
Do While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name
Loop

End Function

واستدعيتها

Call CloseRecord

هل صحيح هيك

تحياتي يالغالي

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