Colelgamento Ipertestuale su Maschera Access

di il
3 risposte

Colelgamento Ipertestuale su Maschera Access

Un saluto a tutti
sono nuovissimo di questa community, ho letto molto del vostro forum da quando mi sono avvicinato all'access e al vba, e ho sempre trovato tutto molto utilissimo, ma adesso vengo a chiedere aiuto direttamente.

ho in parte risolto il problema con questo codice:
Private Sub Num_Fatt_Click()
Dim V_Dir As String
Dim V_Est As String
V_Dir = "C:\943.pdf"
V_Est = ".pdf"

Dim RetVal
RetVal = Shell("C:\Programmi\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe" & " V_Dir & matr & V_Est")
End Sub
in poche parole mi serve cliccare sul numero fattura di una maschera, per aprire direttamente la fattura in pdf, dopo il click mi apre Acrobat ma mi dice che è impossibile trovare il file.

non capisco dove sta l'errore, ho provato anche a mettere il file in altri percorsi ma sempre lo stesso problema


EDIT:

ho notato un altro problema, che cliccando su qualsiasi n° fattura della colonna mi esegue sempre lo stesso comando, ma io ogni numero fattura vorrei che si aprisse un file diverso, vi allego immagine cosi capite un po meglio se non riesco a spiegarmi:


Uploaded with ImageShack.us

3 Risposte

  • Re: Colelgamento Ipertestuale su Maschera Access

    Ciao.
    Lavoro da 10 anni con VB6 e forse posso aiutarti (dandoti degli input).
    Quello che mi salta agli occhi subito è che intanto assegando:
    V_Dir = "C:\943.pdf"
    V_Est = ".pdf"
    è chiaro che facendo
    V_Dir & matr & V_Est
    t troverai la somma e quindi avrai:
    "C:\943.pdf.pdf"

    Intanto prova a sostiruire nella riga della Shell() direttamente un nome file.... e vedi cosa succede, es.:
    RetVal = Shell("C:\Programmi\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe C:\file.pdf"

    Luciano.
  • Re: Colelgamento Ipertestuale su Maschera Access

    EDIT:
    mi correggo questo che segue è il comando perfetto funziona il collegamento ipertestuale
    Private Sub Num_Fatt_Click()
    Dim RetVal
    RetVal = Shell("C:\Programmi\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe C:\943.pdf")

    End Sub
    mai ci sta sempre lo stesso problema che mi prende il comando su tutta la colonna Num_Fatt_ dando il comando Private Sub Num_Fatt_Click() non capisco come si da il comando per singola cella di numerazione fattura.
  • Re: Colelgamento Ipertestuale su Maschera Access

    Ciao.
    Adesso, il secondo passo è quello d verificare se ti funziona passando una variabile anzichè scrivere direttamente il percorso e nome file nella riga della funzione Shell().
    Tipo:
    Private Sub Num_Fatt_Click()
    Dim RetVal, NomeFile
    NomeFile = "C:\943.pdf"
    RetVal = Shell("C:\Programmi\Adobe\Acrobat 8.0\Acrobat\Acrobat.exe " & NomeFile)

    End Sub

    Funziona...?!
    Luciano.
Devi accedere o registrarti per scrivere nel forum
3 risposte