FILEDIALOG en VB sous ACCESS 2002
Jean-mat'
-
Richard -
Richard -
Salut,
j'ai développé une application sous Access Xp.
Sur le clic d'un bouton, je voudrais lancer la boite de dialogue pour ouvrir un fichier. Dans l'aide ils disent de déclarer une variable de type FileDialog et de lancer la fonction.
Ex:
Le compilateur me dit qu'il ne connait pas le type FileDialog. J'ai pourtant ajouter les librairie nécessaire.
De plus, quand on tappe sous VB "Ctrl+space" on obtient la liste des expression connue par VB. FileDialog ne figure pas toujours dedans, je ne comprend pas.
Merci d'avance à ceux qui m'aideront.
j'ai développé une application sous Access Xp.
Sur le clic d'un bouton, je voudrais lancer la boite de dialogue pour ouvrir un fichier. Dans l'aide ils disent de déclarer une variable de type FileDialog et de lancer la fonction.
Ex:
Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
Le compilateur me dit qu'il ne connait pas le type FileDialog. J'ai pourtant ajouter les librairie nécessaire.
De plus, quand on tappe sous VB "Ctrl+space" on obtient la liste des expression connue par VB. FileDialog ne figure pas toujours dedans, je ne comprend pas.
Merci d'avance à ceux qui m'aideront.
A voir également:
- FILEDIALOG en VB sous ACCESS 2002
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Mysqli::real_connect(): (hy000/2002): aucune connexion n’a pu être établie car l’ordinateur cible l’a expressément refusée. - Forum PHP
1 réponse
Essaie d'ajouter cette référence dans VBA outils>référence
coche Microsoft Office 11.0 Object Library
ex :
Private Sub parcourir_Click()
Dim jaq As FileDialog
Dim Chemin As String
Set jaq = Application.FileDialog(msoFileDialogFilePicker)
Dim chJaq As Variant
With jaq
.Title = "Sélectionnez la jaquette"
.AllowMultiSelect = False
.Filters.Add "Fichiers images", "*.jpg;*.bmp;*.gif"
.InitialView = msoFileDialogViewThumbnail
If .show = -1 Then
For Each chJaq In .SelectedItems
Chemin = chJaq
Next
Else
End If
End With
If Chemin = "" Then
Exit Sub
Else
'enregistre jaquette
With Me.jaqu
.Class = ""
.OLETypeAllowed = acOLEEmbedded
.SourceDoc = Chemin
.Action = acOLECreateEmbed
End With
End If
End Sub
Ciao
coche Microsoft Office 11.0 Object Library
ex :
Private Sub parcourir_Click()
Dim jaq As FileDialog
Dim Chemin As String
Set jaq = Application.FileDialog(msoFileDialogFilePicker)
Dim chJaq As Variant
With jaq
.Title = "Sélectionnez la jaquette"
.AllowMultiSelect = False
.Filters.Add "Fichiers images", "*.jpg;*.bmp;*.gif"
.InitialView = msoFileDialogViewThumbnail
If .show = -1 Then
For Each chJaq In .SelectedItems
Chemin = chJaq
Next
Else
End If
End With
If Chemin = "" Then
Exit Sub
Else
'enregistre jaquette
With Me.jaqu
.Class = ""
.OLETypeAllowed = acOLEEmbedded
.SourceDoc = Chemin
.Action = acOLECreateEmbed
End With
End If
End Sub
Ciao