Come si fa a vedere la versione di Access in VB?

[allejo]

Come si fa a vedere la versione di Access in VB?

Esempio di Word

Private Sub Form_Load()
'Versione Word
Dim objword As Word.Application
Dim objdoc As Word.Document
Set objword = New Word.Application
Set objdoc = New Word.Document
x = objdoc.Application.Version
MsgBox "La versione di Word è : " & x
'Fine Versione Word
End Sub

Access come si fa?
Non esiste dim objAccess as Access.Document

Potete Aiutarmi
Per favore

[thebass]

    
    Set Access_App = CreateObject("Access.Application")
    MsgBox Access_App.Application.Version

[allejo]

Mi dà un errore!
Dim Access_App As Access.Application
Set Access_App = CreateObject(Access.Application)
MsgBox Access_App.Application.Version

di Version e mi dice che Impossibile trovare il mettodo o il membro di dati

[thebass]

Originariamente inviato da allejo
Mi dà un errore!
Dim Access_App As Access.Application
Set Access_App = CreateObject(Access.Application)
MsgBox Access_App.Application.Version

di Version e mi dice che Impossibile trovare il mettodo o il membro di dati

Dim Access_App As Object

[allejo]

Dim Access_App As Object
Set Access_App = CreateObject("Access.Application")
MsgBox Access_App.Application.Version

Mi dà lo stesso errore!

[thebass]

Originariamente inviato da allejo
Dim Access_App As Object
Set Access_App = CreateObject("Access.Application")
MsgBox Access_App.Application.Version

Mi dà lo stesso errore!

Controlla che nei riferimenti del progetto siano spuntati almeno i seguenti elementi:

- Visual Basic for Applications
- Visual Basic runtime objects and procedures
- Visual Basic objects and procedures
- Ole Automation

Non saprei indicarti altro; io utilizzo VB6, e a me funziona perfettamente.

[thebass]

Scusa: Ole Automation non c'entra... :quipy:

[allejo]

Ho tutti i riferimenti!
E uso VB6 e sei sicuro che sul tuo funziona???????

[thebass]

Originariamente inviato da allejo
Ho tutti i riferimenti!
E uso VB6 e sei sicuro che sul tuo funziona???????

non so cosa dirti, a me funziona. Tutto quello che ho fatto è stato aprire un nuovo progetto, una nuova form, inserirci un Command Button contenente il seguente codice:

Private Sub Command1_Click()
    
     Dim Access_App As Object
     Set Access_App = CreateObject("Access.Application")
     MsgBox Access_App.Application.Version
    
End Sub

quando faccio clic sul bottone, la MsgBox mi ritorna la versione di Access, che nel mio caso è la 10.0. Però sei liberissimo di dubitarne...

[allejo]

Access mi apre però non conosce Application.Version
ma come mai?