roma
2022-06-29 13:10:22 UTC
Buonasera a tutti
Ho il seguente problema:
Dato un campo il quale ci vado a mettere il percorso di un file tramite questo codice
===============================================
Private Sub Comando121_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.InitialFileName = CurrentProject.Path & "\DOCUMENTI\"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "ANYFILE", "*.*,"
If .Show Then
Me.NOTEASSOCIATO.Value = .SelectedItems.Item(1)
End If
End With
Me.NOTEASSOCIATO.Requery
End Sub
================================================
Che poi vado ad aprire con il seguente codice
=================================================
Private Sub NOTEASSOCIATO_DblClick(Cancel As Integer)
ret = Shell("rundll32.exe url.dll, FileProtocolHandler " & Me.NOTEASSOCIATO, vbMaximizedFocus)
End Sub
=================================================
Codice funzionante e suggeritomi da questo forum
=================================================
Siccome nel campo dove va a mettere il percorso del file mi mette tutta la radice cioè “C:\Users\SM\FILEPERSONALE\DOCUMENTI\nome del file”
Volevo sapere , visto che prima o poi questo DB riempito dovrò spostarlo per l’utilizzo su computer diversi, se c’è la possibilità di poter far sempre aprire il file associato.
Questa è la directory dove attualmente utilizzo il DB in questione
C:\Users\SM\FILEPERSONALE\
Ho creato una directory “\DOCUMENTI” all’interno dove conservare tutti i documenti
C:\Users\SM\FILEPERSONALE\DOCUMENTI\
Sostanzialmente le parti che conserverei sarebbero le seguenti
\FILEPERSONALE\ (dove conservo il file del DB)
\FILEPERSONALE\DOCUMENTI\ (dove conserverei tutti i file associati)
Grazie
Ho il seguente problema:
Dato un campo il quale ci vado a mettere il percorso di un file tramite questo codice
===============================================
Private Sub Comando121_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.InitialFileName = CurrentProject.Path & "\DOCUMENTI\"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "ANYFILE", "*.*,"
If .Show Then
Me.NOTEASSOCIATO.Value = .SelectedItems.Item(1)
End If
End With
Me.NOTEASSOCIATO.Requery
End Sub
================================================
Che poi vado ad aprire con il seguente codice
=================================================
Private Sub NOTEASSOCIATO_DblClick(Cancel As Integer)
ret = Shell("rundll32.exe url.dll, FileProtocolHandler " & Me.NOTEASSOCIATO, vbMaximizedFocus)
End Sub
=================================================
Codice funzionante e suggeritomi da questo forum
=================================================
Siccome nel campo dove va a mettere il percorso del file mi mette tutta la radice cioè “C:\Users\SM\FILEPERSONALE\DOCUMENTI\nome del file”
Volevo sapere , visto che prima o poi questo DB riempito dovrò spostarlo per l’utilizzo su computer diversi, se c’è la possibilità di poter far sempre aprire il file associato.
Questa è la directory dove attualmente utilizzo il DB in questione
C:\Users\SM\FILEPERSONALE\
Ho creato una directory “\DOCUMENTI” all’interno dove conservare tutti i documenti
C:\Users\SM\FILEPERSONALE\DOCUMENTI\
Sostanzialmente le parti che conserverei sarebbero le seguenti
\FILEPERSONALE\ (dove conservo il file del DB)
\FILEPERSONALE\DOCUMENTI\ (dove conserverei tutti i file associati)
Grazie