السلام عليكم
تفضل أخي هذا هو الكود
Dim str_code As String
Dim name_frm As String
Dim frm As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
For Each frm In dbs.AllForms
name_frm = frm.Name
DoCmd.OpenForm name_frm, acDesign
str_code = "Private Sub Form_Load()" & vbCrLf & _
"call Color_V(me)" & vbCrLf & _
"end sub"
Forms(name_frm).Module.AddFromString str_code
DoCmd.Close acForm, name_frm, acSaveYes
Next
صالح حمادي's post in كيف يمكن حذف جميع جداول قاعدة خارجية was marked as the answer