Pulsante che apra hyperlink da maschera principale

Question

Buonasera, ho un problema di cui non riesco a venire a capo con un DB .accdb

Ho una serie di tabelle, tra le quali ne ho una che ha al suo interno una colonna di tipo "Collegamento ipertestuale" ed una colonna con dei nominativi.

Vorrei mettere nella maschera che uso per visualizzare i vari dati di questo database un pulsante che mi apre il link del campo "Collegamento ipertestuale" del nominativo selezionato.

Al momento riesco solamente a visualizzare questo hyperlink (quindi poi a cliccarlo) in una maschera a parte da quella dove seleziono il nominativo interessato.

Spero di essermi spiegato.

Grazie a chi mi vorrà aiutare.

Answer 1

ciao Luca,

[...]

1. Ho bisogno dell'id_azienda per il richiamo delle altre maschere (che ho tolto dal db inviato), non posso quindi modificare l'origine dati come da te indicato

[...]

imposta il rowSource della listbox come segue :

SELECT Aziende.ID, Aziende.Azienda, Aziende.ArchivioClienti FROM Aziende;

[...]

2. vorrei avere un pulsante che mi apra il link perché più facile per gli utenti, senza usare il doppio click

[...]

modifica come segue il codice del commandButton che apre il folder: 

private Sub cmdOpenFolder_Click()

On Error GoTo errorHandler

Dim strFolder As String

Dim bool      As Boolean

If Me.ElencoAziende.ListIndex = -1 Then

    VBA.MsgBox "Selezione mancante!", vbCritical, "Attenzione!"

    Exit Sub

End If

With Me.ElencoAziende

    strFolder = .Column(2, .ListIndex)

End With

bool = CBool(((GetAttr(strFolder) And vbDirectory) = vbDirectory))

Shell "explorer.exe " & strFolder, vbNormalFocus

ext_errorHandler:

    Exit Sub

errorHandler:

    With Err

     Select Case .Number

            Case 53

                    VBA.MsgBox "la cartella non esiste!", vbCritical, "Attenzione"

            Case Else

                MsgBox "ERR#" & .Number _

                    & vbNewLine & .Description _

                    , vbOKOnly Or vbCritical

      End Select

    End With

    Resume ext_errorHandler

End Sub

nell'evento change della txtRicerca modifica come segue la stringa sql che assegna il rowSource dinamicamente :

strSQL = "SELECT ID, Azienda, ArchivioClienti" & _

    "FROM [Aziende] " & _

    "WHERE (Azienda Like " & Chr$(34) & "*" & _

    strR & "*" & Chr$(34) & ")ORDER BY Aziende.Azienda;"

[...]

3. anche eseguendo quanto da te indicato, la procedura funziona solo sull'elenco delle aziende che si apre all'apertura della maschera; se uso il campo di ricerca e seleziono la stessa azienda selezionata in precedenza, va in errore

[...]

dovremmo esserci ora.

Facci sapere.

Ciao, Sandro.

Answer 2

Ciao Sandro, trovi a questo link il mio DB opportunamente ripulito

https://1drv.ms/u/s!AoTr0qFLciMyiEkMX6hfc62sLrYv

Ti ringrazio.

Answer 3

ciao Luca,

....mmmm....ho come la sensazione che tu non abbia risposto alle domande che ti ho posto....

se la selezione dell'azienda viene effettuata con una comboBox che la cui origine dati punta alla tabella aziende, puoi estrarre la colonna link e puntare ad essa sfruttando la proprietà column, e applicare il metodo proposto in precedenza, del tipo :

Application.FollowHyperlink me!tuaCombo.Column(1)

Temo però di non avere inteso il tuo problema...per cui sarebbe meglio valutare una tua demo.

Se decidi per questa via, vedi qui per OneDrive ad esempio.

https://support.office.com/it-it/article/Condividere-file-e-cartelle-di-OneDrive-9fcc2f7d-de0c-4cec-93b0-a82024800c07

Nessun dato sensibile e ricordati il link.

ciao, Sandro.

Answer 4

ciao Luca,

non mi è chiarissimo lo scenario onestamente...

in particolare :

Al momento riesco solamente a visualizzare questo hyperlink (quindi poi a cliccarlo) in una maschera a parte da quella dove seleziono il nominativo interessato.

Puoi spiegare meglio....?

Inoltre a cosa punta l'hyperLink? 

Comunque...prova un semplice :

Application.FollowHyperlink Me!tuoControlloHyperLink 

su evento click del command button, personalizzando  Me!tuoControlloHyperLink  con il nome del controllo della form che contiene l'hyperlink.

Facci sapere.

Ciao, Sandro.

Ciao Sandro, ti ringrazio per la risposta, provo a spiegarmi meglio.

Ho una tabella "Aziende" con un campo "nome" ed un campo "link".

Ho poi diverse tabelle collegate alla tabella aziende che contengono altri dati.

Ho creato una maschera "iniziale" nella quale seleziono l'azienda e poi ho una serie di pulsanti che non fanno altro che aprire maschere che mi visualizzano i dati presenti in una delle tabelle collegate alla tabella "Aziende".

Vorrei mettere, invece, nella maschera "iniziale" un pulsante o qualcosa di simile, il quale mi apre il link del campo "link" della tabella "Aziende" dell'azienda selezionata.

Spero di essere stato più chiaro, ma sono poco esperto e sto impazzendo !

Grazie.

Answer 5

ciao Luca,

non mi è chiarissimo lo scenario onestamente...

in particolare :

Al momento riesco solamente a visualizzare questo hyperlink (quindi poi a cliccarlo) in una maschera a parte da quella dove seleziono il nominativo interessato.

Puoi spiegare meglio....?

Inoltre a cosa punta l'hyperLink? 

Comunque...prova un semplice :

Application.FollowHyperlink Me!tuoControlloHyperLink 

su evento click del command button, personalizzando  Me!tuoControlloHyperLink  con il nome del controllo della form che contiene l'hyperlink.

Facci sapere.

Ciao, Sandro.