22/05/2008, 08:59
|
| | | Fecha de Ingreso: febrero-2008
Mensajes: 397
Antigüedad: 16 años, 10 meses Puntos: 1 | |
Respuesta: añadir imagen Bueno he estado revisando el código y lo he intentado implementar a lo que es mi base de datos. Para no hacerme mucho lío he puesto los mismos nombres exceptuando el campo que se llama firma en vez de Foto. El caso es que me da errores en esta parte:
Sub getFileName()
'Muestre el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo para el registro. 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 = "Selecciona una firma"
.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![ImagePath].Visible = False
End If
End With
End Sub
Me da error en la primera línea que he puesto como rojo y si por ejemplo le pongo ' para hacerlo comentario, me va marcando en amarillo las siguientes líneas.
El mensaje que me sale de error es el siguiente:
Se ha producido el erro '2110' en tiempo de ejecución:
Base de Clientes no puede mover el enfoque al control ImagePath
Alguna idea de cuál puede ser el fallo? |