22/05/20 15:22
alip1
Buon di scusatemi se non ho postato nel forum corretto.
Ho un piccolo problema VBA in Access. Ho realizzato questa routine per consentire ad un utente dell'app di poter scegliere un file immagine (bmp, o jpg, o ico..) ed ho utilizzato FileDialog:
Ora il Dialog non tiene conto della DirIniziale settata, ma apre sempre nella Dir Documents dell'utente..
Come mai? Dov'é l'errore?
Grazie a tutti
Ho un piccolo problema VBA in Access. Ho realizzato questa routine per consentire ad un utente dell'app di poter scegliere un file immagine (bmp, o jpg, o ico..) ed ho utilizzato FileDialog:
Public Function FotoOpen(DirStart As String, SubDir As String) As String ' Questa procedura apre il file dialog per la selezione della foto Dim PathDir As String PathDir = DirStart If SubDir <> "" Then PathDir = PathDir & "\" & SubDir & "\" End If ' Dim fDialog As Office.FileDialog Dim Fp As Office.FileDialog Set Fp = Application.FileDialog(msoFileDialogFilePicker) With Fp .Title = "Selezionare file immagine" .ButtonName = "Conferma" .InitialView = msoFileDialogViewPreview .Filters.Clear .Filters.Add "Tutti i Files (*.*)", "*.*" .Filters.Add "Images Files (*.jpg)", "*.jpg" ' .Filters.Add "Images Files (*.bmp)", "*.BMP" .Filters.Add "Images Files (*.png)", "*.png" .Filters.Add "Images Files (*.ico)", "*.ico" .FilterIndex = 2 .AllowMultiSelect = False .InitialView = msoFileDialogViewPreview .InitialFileName = PathDir If .Show = -1 Then FotoOpen = CStr(.SelectedItems.Item(1)) Else Beep ' MsgBox "La selezione è stata annullata", vbInformation, "Informazione" End If End With Set Fp = Nothing End Function
Ora il Dialog non tiene conto della DirIniziale settata, ma apre sempre nella Dir Documents dell'utente..
Come mai? Dov'é l'errore?
Grazie a tutti
aaa