Newsgroup: it.comp.appl.access
Titolo: impostare da VBA riferimenti a file MDE

Buongiorno, come da oggetto, la procedura in sviluppo tenta di impostare un
riferimento ad un file .mde il quale contiene una serie di functions che
vengono poi richiamate nel codice. In altre parole, una specie di dll.
Il codice incriminato si riassume in una riga:
 Access.References.AddFromFile("d:\common\classez_03.mde")
purtroppo access arrivato a questo punto mi da l'errore "file non trovato".
Ovviamente path e file esistono eccome!
Dopo aver passato un (bel) po di tempo sulla rete, diove ho trovato esempi
di codice sostanzialmente identici, ho provato questa sub, scaricata da un
sito e modificata con il solo path+nomefile, che ho messo in un modulo
standard e che viene richiamata con un'istruzione call da un'altro modulo
standard:
Sub AddReference()
Dim r As Reference
Dim bIsLoaded As Boolean
For Each r In References
   If r.FullPath = "d:\common\classez_03.mde" Then
      bIsLoaded = True
      Exit For
   End If
Next
 
If Not bIsLoaded Then
   Set r = Application.References.AddFromFile("d:\common\classez_03.mde")
End If
End Sub
Purtroppo l'errore è sempre il maledetto "file non trovato". Per completezza
preciso che lo stesso file MDE, se inserito "a mano" nei riferimenti tramite
il menù strumenti, diventa immediatamente accessibile e funziona a
meraviglia (ho 5 applicazioni che lo usano contemporaneamente come libreria
da oltre un anno, senza il minimo problema).
Sinceramente, oltre ad un bug di Access (e magari del sottoscritto....) non
so più che pensare, anche perchè tutti gli esempi di codice trovati in giro
fanno riferimento a librerie "vere" (dll, ecc) e non ho trovato nulla con
gli MDE, sempre ammesso che la differenza stia nel tipo di file.
Un'ultima cosa, scontata, ma non si sa mai: il file mde non è registrato
tramite Regsvr32 come si farebbe con una libreria standard.
Siete la mia ultima speranza, altimenti mi tocca telefonare a zio
Bill.......
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Inviato via 
http://arianna.libero.it/usenet/
Vedi:
http://www.accessgroup.it/HomeArgomenti.asp?ID=139&Oggetto2=Riferimenti%20in%20VBA
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Grazie mille, ho studiato il tuo esempio e, dannazione (per me), funziona...
ma c'è una cosa che è strana.
Ho escluso l'uso della classe, ed il prg funziona, poi ho sostituito
l'assegnazione del valore della variabile strFile, escludendo l'uso della
finestra di dialogo ed assegnano direttamente da codice la stringa con il
path ed il nomefile (usando lo stesso file che avrei scelto nella finestra
di dialogo), e mi ritorna l'errore "file non trovato"... Per qualche motivo
che non capisco sembra che non supporti l'assegnazione del valore da codice,
ma unicamente tyramite selezione nella finestra di dialogo (non ho provato
con la lettura di recordset)
HAi qualche esperienza a proposito?


 sv
AGGIORNAMENTO:
[testa bassa]
ho scoperto il perchè.... sto b*@!##!o vuole il percorso "case sensitive",
altrimenti non trova nulla......
però, potevano anche scriverlo da qualche parte quelli di
M$...................
:-(
p.s. grazie per l'esempio, mi tornerà utile


 p.s. grazie per l'esempio, mi tornerà utile
Di nulla.... c'è lì proprio per questo..
:-)))
