Access - para Chea o jcs - imagenes con campo texto

Hola JCS,
probé lo que tú me aconsejaste en un post anterior y funcionó.
Te recuerdo el tema: tú me aconsejaste que no usara ni marco dependiente ni independiente de imagen, sino Picture y que almacenara la ruta en un campo texto.
Ahora, el problema que tengo es como hago eso transparente para un usuario. Es decir, como puedo hacer para que a traves de un botón, el usuario seleccione el archivo (similar al Insertar -> Objeto), y poder almacenar la ruta + nombre de archivo en el campo texto.
Agradezco la ayuda.
Alejandro

Tendras que utilizar el componente CommonDialog

¿Entiendes algo el francés? Si entiendes algo, visita esta página, interesantísima, aunque está escrita para Access 2007:

http://dolphy35.developpez.com/article/access2007/formcontinus/

El código de ejemplo que pone para seleccionar la imagen es el siguiente:

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 documentsMes 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
' http://dolphy35.developpez.com/article/access2007/formcontinus/

End Sub

Ten en cuenta que para poder usar FileDialog debes haber incluido una referencia a "Microsoft Office X.x Object Library"

Saludos
José Bengoechea Ibaceta

Muchas gracias a ambos, lo voy a probar y después les cuento.
Gracias y Feliz 2008...

Alejandro