هل الماكرو موجود ام لا

[SABER_EDP]

السلام عليكم

اريد كود يختبر هل الماكرو موجود فى قاعدة البيانات ام لا؟

فاذا كان موجود يقوم بتشغيلة ثم يحذفة

وان كان غير موجود يتم الغاء العملية

ارجو المساعدة

اخوكم صابر

[osama457]

كود

Function FoundMacro(InMacroName As String) As Boolean
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    For Each obj In dbs.AllMacros
            If obj.Name = InMacroName Then
                FoundMacro = True
                Exit For
             End If
    Next obj
End Function

Sub FindRunDeleteMacro(InMacroName As String)
If FoundMacro(InMacroName) Then
    DoCmd.RunMacro InMacroName
    DoCmd.DeleteObject acMacro, InMacroName
Else
    MsgBox "لم يتم العثور على ماكرو باسم  " & InMacroName, , ""
End If
End Sub

وبرفقه ملف

FindMacro33.zip

تم تعديل مارس 1, 2004 بواسطه osama457