Error de compilación
Publicado por Roberto (81 intervenciones) el 14/11/2012 14:29:33
Hola!
Me conseguí un código para insertar fotos a un formulario, Pero me sale un error.Agradecería su buena voluntad en orientarme sobre el error que me arroja."No se encontró el método o el dato miembro" acá les dejo el código:
VARIABLES
BOTÓN PARA CARGAR LA FOTO DEL PERSONAL NUEVO
CÓDIGO AL ACTIVAR REGISTRO EN PROPIEDADES DEL FORMULARIO
.cedula_id = Es el campo clave principal de mi formulario (11.111.111-1)
Me conseguí un código para insertar fotos a un formulario, Pero me sale un error.Agradecería su buena voluntad en orientarme sobre el error que me arroja."No se encontró el método o el dato miembro" acá les dejo el código:
VARIABLES
1
2
3
Option Compare Database
Dim Foto
Dim CI_def
BOTÓN PARA CARGAR LA FOTO DEL PERSONAL NUEVO
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Cargar_Foto_Click()
If IsNull(Me.cedula_id) Or Me.cedula_id = 0 Then
MsgBox "Falta la cedula de identidad", vbInformation, "Error al Cargar Foto"
Me.cedula_id.SetFocus
Exit Sub
End If
Foto = "C:\Fotos_Trab\" & Me.cedula_id & ".jpg"
If Dir(Foto) = "" Then
CI_def = "00000000"
Foto = "C:\Fotos_Trab\" & CI_def & ".jpg"
End If
Me.foto_form.Picture = Foto
End Sub
CÓDIGO AL ACTIVAR REGISTRO EN PROPIEDADES DEL FORMULARIO
1
2
3
4
5
6
7
8
Private Sub Form_Current()
Foto = "C:\Fotos_Trab\" & Me.cedula_id & ".jpg"
If Dir(Foto) = "" Then
CI_def = "00000000"
Foto = "C:\Fotos_Trab\" & CI_def & ".jpg"
End If
Me.foto_form.Picture = Foto
End Sub
.cedula_id = Es el campo clave principal de mi formulario (11.111.111-1)
Valora esta pregunta
0