Newsgroup: it.comp.appl.access
Titolo: Collegamento ipertesuale da excel

Chiedo aiuto poichè mi sono incagliato in un problema , credo stupidi,
ma che fi stà facendo perdere molto tempo.
Ho creato un pulsante in excel che mi dovrebbe impostare un
collegamento ipertestuale su una maschera acces aperta. Senonchè
l'esecuzione del codice mi dà errore poiche il campo in oggetto è di
sola lettura. Il codice in oggetto è il seguente:
Sub Salva()
Dim appAccess As Access.Application
Dim strName As String
Dim strDB As String
    strName = Worksheets("Misure").Range("C1").Value
    ActiveWorkbook.SaveAs Filename:="L:\MISURAZIONI\" & strName, _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Const strConPathToSamples = "C:\Documents and Settings\Fulvio
\Desktop\"
    strDB = strConPathToSamples & "Copia di Preventivi in Work.mdb"
    Set appAccess = _
        GetObject(strDB)
    appAccess.DoCmd.OpenForm ("NewPreventivo")
    appAccess.DoCmd.GoToControl ("CollExcel")
    appAccess.Screen.ActiveControl = "L:\MISURAZIONI\" & strName
End Sub
l'errore avviene sull'ultima riga.
Grazie per l'aiuto

 ha scritto nel messaggio 
news:1184106903.4...@d55g2000hsg.googlegroups.com...

Sub Salva()


End Sub

Grazie per l'aiuto
[risposta]
Se leggi nell'help il linea del VBA di access (F1 su ActiveControl), noterai 
che l'ActiveControl non può ricevere input; invece restituisce il nome del 
controllo che ha lo stato di "attivo". Dopo aver ottenuto il nome del 
controllo a questo gli assegni il valore.
Senza contare che sai già il nome del controllo, ci vai con il GotoControl!
Quindi le istruzioni si ridurrebbero a:
...
with appAccess
    .DoCmd.OpenForm "NewPreventivo"
    .forms!newPreventivo!CollExcel = "L:\MISURAZIONI\" & strName
end with
...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1184106903.4...@d55g2000hsg.googlegroups.com...

Grazie innanzi tutto per la risposta
Il problema, a parte i miei errori concettuali, non è risolto, poichè
viene aggiornato il collegamento ipertestuale solo come testo e non
come hyperlink.
Grazie

 ha scritto nel messaggio news:1184941101....@r34g2000hsd.googlegroups.com...
Grazie innanzi tutto per la risposta
Il problema, a parte i miei errori concettuali, non è risolto, poichè
viene aggiornato il collegamento ipertestuale solo come testo e non
come hyperlink.
[risposta]
Il problema è risolto visto che lo indicavi nel precedente messaggio: "...l'errore avviene sull'ultima riga...".
Ora hai un altro problema.
La casella di testo "CollExcel" è associata ad un campo di tipo "Collegamento Ipertestuale"?
Grazie
[risposta]
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggionews:1184941101....@r34g2000hsd.googlegroups.com...

Ciao Sergio
Grazie tanto per l'interessamento, ma non riesco proprio a farlo
funzionare nonostante CollExcel sià associata a un campo ipertestuale.
Il collegamento viene gestito solamente come Testo da visualizzare, ma
non come Indirizzo
Ciao
Fulvio

 ha scritto nel messaggio 
news:1186393450.8...@d55g2000hsg.googlegroups.com...
Ciao Sergio
Grazie tanto per l'interessamento, ma non riesco proprio a farlo
funzionare nonostante CollExcel sià associata a un campo ipertestuale.
Il collegamento viene gestito solamente come Testo da visualizzare, ma
non come Indirizzo
Ciao
Fulvio
[risposta]
Ho fatto delle prove; se il campo nella tabella (in access) è definito come 
"collegamento ipertestuale", il valore inserito sia a mano che tramite VBA 
viene registrato come ipertestuale.
(da excel)
Dim oApp As Access.Application
Set oApp = CreateObject("Access.Application")
oApp.OpenCurrentDatabase "C:\Documenti\nomeFile.mdb"
oApp.DoCmd.OpenForm "FormConCampoIpertestuale"
oApp.Forms!FormConCampoIpertestuale!collIper = "f:\cartella\cicco.pdf"
oApp.Visible = True
Ciao.
-- 
Sergio MAZZA