Microsoft Access 2000


         

Public Function funImportModule(strBasic As String, strModule As String) As Boolean


Dim sFullPath As String

On Error GoTo 999

sFullPath = appFolder & "\\" & strBasic '

If Dir(sFullPath) <> "" Then '

With appAccess '

.VBE.ActiveVBProject.VBComponents.Import sFullPath '

.DoCmd.Save acModule, strModule '

End With

Else

MsgBox ": " & sFullPath & " !" '

End If

Exit Function '

999:

MsgBox Err.Description '

Err.Clear '