** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Error de compilación
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoError de compilación

 Responder Responder
Autor
Mensaje
voninet Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 13/Junio/2006
Localización: Argentina
Estado: Sin conexión
Puntos: 362
Enlace directo a este mensaje Tema: Error de compilación
    Enviado: 08/Mayo/2019 a las 16:16

Hola en la base de Neptuno (que viene con Microsoft), tiene un botón para cargar una imagen.

Sub getFileName()
    ' Muestre el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo
    ' para el registro del empleado actual. Si el usuario selecciona un archivo,
    ' muéstrelo en el control de imagen.
    Dim fileName As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione la imagen del empleado"
        .Filters.Add "All Files", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .FilterIndex = 3
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![ImagePath].Visible = True
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
            Me![Nombre].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub

Cuando lo apreto me tira: Error de compilación, no se ha definido la variable.

Alguien que me pueda ayudar???

Desde ya muchas gracias
Verónica
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: en línea
Puntos: 3137
Enlace directo a este mensaje Enviado: 08/Mayo/2019 a las 16:41
Hola.
Prueba de sustituir msoFileDialogFilePicker por su valor 3
Ya comentas.
Un saludo a todos
Arriba
voninet Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 13/Junio/2006
Localización: Argentina
Estado: Sin conexión
Puntos: 362
Enlace directo a este mensaje Enviado: 08/Mayo/2019 a las 17:06
Fantástico!!!, mil millones de gracias se puede cerrar el hiloClap
Verónica
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable