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

[النجاشي]

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

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

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

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

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

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

[ابوخليل]

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

 

[النجاشي]

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

هل صحيح هيك 

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