VBE vBproject Thisworkbook alternative in Access

[Chance1234]

Have a bit of code in excel which runs fine

Dim vbProj As VBProject
Set vbProj = ThisWorkbook.VBProject

having a bit of trouble getting this working in access

where does the VBproject fit with in access ?

Chance,

Filmmaker, taken gentleman and He tan e epi tas all change on monday

 

[CautionMP]

It fits in the same way, did you add a reference to the Microsoft Visual Basic for Applications Extensibility x.x library?

CMP

(GMT-07:00) Mountain Time (US & Canada)

 

[Remou]

A few notes (Office 2000), as I am not sure I get your point. I tried these three, and they seem to work.

'Access Module:
strModuleName = "Module1"
DoCmd.OpenModule strModuleName
Set mdl = Modules(strModuleName)
Debug.Print strModuleName & ": " & mdl.CountOfLines
DoCmd.Close acModule, strModuleName

'Access Form:
strFormName = "Customers1"
DoCmd.OpenForm strFormName, acDesign
If Forms(strFormName).HasModule Then
    Set mdl = Forms(frmName).Module
    Debug.Print strFormName & ": " & mdl.CountOfLines
End If
DoCmd.Close acForm, strFormName
End Sub

'Excel module:
'Needs Reference to Excel Library
    Dim oApp As Excel.Application
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    
    oApp.Workbooks.Open FileName:= _
        "C:\Tek-Tips\Book1.xls"
    Set vbProj = oApp.VBE.ActiveVBProject