Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 5 su 5

Impiego di application.followHyperlink in maschera e sottomaschera

  1. #1
    marcello1 non è in linea Novello
    Post
    8
    Like Inviati  
    0
    Like Ricevuti  
    0
    buongiorno, visto la mia molto limitata conoscenza del preziosissimo strumento di VBA per access, ho il seguente problema: ho creato un db in access per la gestione delle pratiche. Vi sono 2 tabelle.

    La prima tabella

    id_pratiche (contatore)
    Nome_pratica =Testo =Qua riporto il nome della singola pratica
    copertina_pratica = testo =Qua scrivo il nome della copertina
    Estensione_copertina = Testo = Qua riporto l’estensione del file (in quanto nel percorso ho specificato sia il nome del file che la relativa estensione perché altrimenti il follower hiperlink non mi funziona

    La seconda tabella (collegata una a molti con la precedente ) contiene tutti i documenti di ogni singola pratica :

    id_documenti = (contatore)
    Nome_documento1 = Testo = Qua riporto il nome del singolo documento
    estensione1 = testo = Qua scrivo il tipo di estensione (.doc , .pdf ,ecc.)
    Nome_documento2 = Testo = Qua riporto il nome del singolo documento
    estensione2 = testo = Qua scrivo il tipo di estensione (.doc , .pdf ,ecc.)
    Nome_documento3 = Testo = Qua riporto il nome del singolo documento
    estensione3 = testo = Qua scrivo il tipo di estensione (.doc , .pdf ,ecc.)

    (collegamento pratiche-documenti uno a molti).

    Nella prima tabella nessun problema. Inserendo questo codice riesco a visualizzare perfettamente la copertina_pratica tramite un bottone di comando collegato a una casella di testo:

    Private Sub Comando35_Click()
    If IsNull([testo1]) Then
    MsgBox ("SCRIVI IL NOME DEL FILE CHE DESIDERI APRIRE")
    Exit Sub
    End If
    Dim percorso As String
    percorso = "\\srv\GESTIONE PRATICHE DAL 2021\"
    On Error GoTo Err_Comando35_Click
    Application.FollowHyperlink percorso & Me!testo1 & “ “ & Me!testo2 & “\” & Me!
    copertina_pratica & Me!estensione_copertina
    Exit_Comando35_Click:
    Exit Sub
    Err_Comando35_Click:
    MsgBox ("CONTROLLA CHE IL NOME DEL FILE SIA CORRETTO")
    End Sub
    
    però quando vado a cliccare su un bottone di comando posto su una sottomaschera (e perciò nella seconda tabella) mi dice che non trova il percorso. Come posso scrivere per fare capire che voglio aprire il documento che voglio? Io ho provato il seguente schema ma non funziona:


    Private Sub Comando58_Click()
    If IsNull([testo1]) Then
    MsgBox ("SCRIVI IL NOME DEL FILE CHE DESIDERI APRIRE")
    Exit Sub
    End If
    Dim percorso As String
    percorso = "\\srv\GESTIONE PRATICHE DAL 2021\"
    On Error GoTo Err_Comando35_Click
    Application.FollowHyperlink percorso & Me!testo1 & “ “ & Me!testo2 & “\” &  nome_documento1.value & estensione1.value
     Exit_Comando35_Click:
    Exit Sub
    Err_Comando35_Click:
    MsgBox ("CONTROLLA CHE IL NOME DEL FILE SIA CORRETTO")
    End Sub
    
    specifico che testo 1 e testo 2 sono rispettivamente il numero e la relativa sottocartella delle pratiche GESTIONE PRATICHE DAL 2021\"

    rimango in attesa di una vostra possibile aiuto . Spero di essere stato chiaro. Buona giornata a tutti
    Ultima modifica di AntonioG; 07-01-2021 11:09  Motivo: Tag CODE

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,392
    Blogs
    5
    Like Inviati  
    5
    Like Ricevuti  
    32
    Benvenuto, dai un'occhiata al regolamento. Esiste una sezione per le Presentazioni.

    Il codice deve essere racchiuso tra tag CODE e sarebbe meglio indentarlo perché sia più chiaro.
    Questa prima volta correggo io.

    Per il problema, visualizza in una MsgBox il valore della stringa risultato del percorso e nome file.
    Usa una variabile per comporre il nome e una Msgbox per visualizzarla e mostrala
    ℹ️ Leggi di più su AntonioG ...

  3. #3
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Post
    3,072
    Like Inviati  
    0
    Like Ricevuti  
    0
    Application.FollowHyperlink percorso & Me!testo1 & “ “ & Me!testo2 & “\” & nome_documento1.value & estensione1.value
    
    Hai detto che Documenti è sottomaschera. Devi dichiarare in modo completo così:
    Me!NomeSottomaschera!nome_documento1.value
    Me!NomeSottomaschera!estensione1.value

    Osservazioni varie:
    1. Immagino la tabella si chiami Documenti
    Quote Originariamente inviato da marcello1
    id_documenti = (contatore)
    Nome_documento1 = Testo = Qua riporto il nome del singolo documento
    estensione1 = testo = Qua scrivo il tipo di estensione (.doc , .pdf ,ecc.)
    Nome_documento2 = Testo = Qua riporto il nome del singolo documento
    estensione2 = testo = Qua scrivo il tipo di estensione (.doc , .pdf ,ecc.)
    Nome_documento3 = Testo = Qua riporto il nome del singolo documento
    estensione3 = testo = Qua scrivo il tipo di estensione (.doc , .pdf ,ecc.)
    Possiamo essere certi al 100% che i Documenti non saranno mai più di 3?

    2. Quando scrivi codice VBA o SQL, abbi cura di selezionarlo, poi clicca in alto sul tasto # in modo tale che poi apparirà con i tipici caratteri monotype più familiari ai programmatori.
    ℹ️ Leggi di più su OsvaldoLaviosa ...

  4. #4
    marcello1 non è in linea Novello
    Post
    8
    Like Inviati  
    0
    Like Ricevuti  
    0
    "Benvenuto, dai un'occhiata al regolamento. Esiste una sezione per le Presentazioni."
    Per la verità ho inviato un messaggio di saluto a tutti però probabilmente l'invio non è andato a buon fine.

    "Il codice deve essere racchiuso tra tag CODE e sarebbe meglio indentarlo perché sia più chiaro.
    Questa prima volta correggo io."
    sinceramente non so neanche come si fa. Faccio una ricerca e per la prossima volta lo racchiudo come si deve

  5. #5
    marcello1 non è in linea Novello
    Post
    8
    Like Inviati  
    0
    Like Ricevuti  
    0
    ad ogni modo grazie in quanto sono riuscito a risolvere il problema. A presto e complimenti per la competenza.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Application.FollowHyperlink
    Da drainoa nel forum Microsoft Access
    Risposte: 3
    Ultimo Post: 25-07-2015, 08:30
  2. Maschera-sottomaschera
    Da John nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 19-10-2006, 21:40
  3. Maschera-sottomaschera
    Da John nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 13-10-2006, 16:14
  4. Maschera e sottomaschera
    Da mag79 nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 21-03-2006, 20:58
  5. Maschera e Sottomaschera
    Da salvo1971 nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 18-07-2005, 10:05