Admin CliCours
Cours gestion des images dans Access, tutoriel & guide de travaux pratiques en pdf.
Extraction du nom du Fichier
Extraction du nom du fichier sélectionné pour la copie.
strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), « \ »))
Copie de l’image sélectionnée et ajout dans la table
Copie de l’image sélectionnée dans le dossier images du répertoire courant de la base.
FileCopy .SelectedItems(1), CurrentProject.Path & « \images » & strFichier
Chargement du chemin de l’image du sous dossier dans le champ de la table.
Me.Photos = CurrentProject.Path & « \images » & strFichier
Rafraichissement du Formulaire.
Me.Refresh
Code Complet
Voici le code complet à mettre dans l’événement sur clic du bouton Insérer.
Private Sub btnInserer_Click()
‘Déclaration des variables Dim strFichier As String Dim oFD As FileDialog
‘Paramètre la fenêtre Ouvrir Set oFD = Application.FileDialog(msoFileDialogOpen) With oFD
‘Ajoute les filtres pour fichiers images et tous
With .Filters .Clear .Add « Fichiers images », « *.jpg;*.jpeg;*.bmp;*.gif », 1 .Add « Tous », « *.* », 2 End With ‘Renseignement du titre .Title = « Insérer une image »
‘Ouvre l’explorateur dans le fichier ‘Mes documents’ du User connecté.
.InitialFileName = Environ(« USERPROFILE ») & « \Mes documents\Mes images »
‘Interdit la multi sélection .AllowMultiSelect = False ‘Permet de choisir le mode d’affichage dans l’explorateur (ici apperçu) .InitialView = msoFileDialogViewPreview ‘Permet de personnaliser le bouton. .ButtonName = « Insérer » ‘Affiche la fenêtre If .Show Then On Error GoTo fini ‘gestion erreur pour control importation ‘Retourne un erreur si pas fichier image. Me.Image1.Picture = .SelectedItems(1)
‘Vide du cadre image. Me.Image1.Picture = « » ‘Extraction du nom du fichier à copier. strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), « \ »)) ‘Copie du fichier sélectionné vers le sous dossier de la base. FileCopy .SelectedItems(1), CurrentProject.Path & « \images » & strFichier
‘Chargement dans control du chemin de l’image (sous dossier base). Me.Photos = CurrentProject.Path & « \images » & strFichier ‘Rafraîchit le Formulaire. Me.Refresh End If End With Exit Sub fini: Select Case Err Case 2220 MsgBox « L’importation du fichier ne c’est pas effectué normalement. », _ vbCritical, « Erreur fichier Image » Case Else MsgBox Err.Number & Chr(13) & Err.Description End Select End Sub
Conclusion
Comme vous avez pu le constater, la gestion des images a été largement améliorée dans Access 2007 avec la possibilité de mettre des images dans des formulaires continus.
Télécharger le cours complet
