Function TestModulePresence (ByVal vstrModuleName As String) As Integer
     On Error GoTo TestModulePresence_Err
     Dim dbs As Database

     Set dbs = CurrentDB()
     TestModulePresence = (dbs.containers( "Modules").documents(vstrModuleName).name = vstrModuleName)
    
TestModulePresence_Exit:
     Set dbs = Nothing
     Exit Function
TestModulePresence_Err:
     Resume TestModulePresence_Exit
End Function

Copyright By AccessVision