| johhan16 |  |
|
2008-08-25 23:20 - Respuestas: 0 - Tema nº: 2538250
Características: Windows XP Profesional memoria 1024, 3.0 Ghz, 80 Gb Disco Duro.
necesito saber como hacer para poder insertar imagenes partiendo de un campo llamado "cedula", explico, al escribir en el campo cedula y darle enter, me muestra todos los datos que pido y la foto que tengo en la tabla2, si es que tengo alguna, o en blanco para insertar alguna en caso de que no posea foto
este codigo es el que utilizo para los campos de texto
Option Compare Database
Private Sub cedula_Exit(Cancel As Integer)
If IsNull(cedula) = False Then
If IsNull(DFirst("id", "tabla1", "cedula='" & cedula & "'")) = False Then
nombre = DFirst("nombre", "tabla1", "cedula='" & cedula & "'")
codigo = DFirst("codigo", "tabla1", "cedula='" & cedula & "'")
centro = DFirst("centro", "centro", "codigo='" & codigo & "'")
municipio = DFirst("municipio", "centro", "codigo='" & codigo & "'")
parroquia = DFirst("parroquia", "centro", "codigo='" & codigo & "'")
fecha = DFirst("fecha", "tabla1", "cedula='" & cedula & "'")
telefono = DFirst("telefono", "tabla2", "cedula='" & cedula & "'")
email = DFirst("email", "tabla2", "cedula='" & cedula & "'")
parroquia1 = DFirst("parroquia1", "tabla2", "cedula='" & cedula & "'")
direccion = DFirst("direccion", "tabla2", "cedula='" & cedula & "'")
edad = DFirst("edad", "tabla2", "cedula='" & cedula & "'")
estado = DFirst("estado", "tabla2", "cedula='" & cedula & "'")
instruccion = DFirst("instruccion", "tabla2", "cedula='" & cedula & "'")
ocupacion = DFirst("ocupacion", "tabla2", "cedula='" & cedula & "'")
gf = DFirst("gf", "tabla2", "cedula='" & cedula & "'")
adultos = DFirst("adultos", "tabla2", "cedula='" & cedula & "'")
niños = DFirst("niños", "tabla2", "cedula='" & cedula & "'")
trabaja_usted = DFirst("trabaja_usted", "tabla2", "cedula='" & cedula & "'")
nombre2 = DFirst("nombre2", "tabla2", "cedula='" & cedula & "'")
coordinacion = DFirst("coordinacion", "tabla2", "cedula='" & cedula & "'")
cargo = DFirst("cargo", "tabla2", "cedula='" & cedula & "'")
codigo1 = DFirst("codigo1", "tabla2", "cedula='" & cedula & "'")
centro1 = DFirst("centro1", "tabla2", "cedula='" & cedula & "'")
sexo = DFirst("sexo", "tabla2", "cedula='" & cedula & "'")
Else
MsgBox "El Numero de Cédula " & cedula & " no aparece registrada entre los Municipios Lagunillas, Valmore Rodriguez, Simon Bolivar y Baralt"
End If
End If
End Sub
Private Sub Comando4_Click()
If IsNull(cedula) = True Or IsNull(nombre) = True Then
MsgBox "Introduce todos los datos"
ElseIf IsNull(DFirst("id", "tabla2", "cedula='" & cedula & "'")) = False Then
If MsgBox("La cédula " & cedula & " ya está procesada." & Chr(13) & Chr(13) & "¿Actualizar los datos?", 36) = vbYes Then
DoCmd.RunSQL "UPDATE tabla2 SET nombre='" & nombre & "',fecha='" & fecha & "',telefono='" & telefono & "',email='" & email & "',codigo='" & codigo & "',centro='" & centro & "',municipio='" & municipio & "',parroquia='" & parroquia & "',centro1='" & centro1 & "',codigo1='" & codigo1 & "',cargo='" & cargo & "',coordinacion='" & coordinacion & "',nombre2='" & nombre2 & "',trabaja_usted='" & trabaja_usted & "',niños='" & niños & "',adultos='" & adultos & "',gf='" & gf & "',ocupacion='" & ocupacion & "',instruccion='" & instruccion & "',edad='" & edad & "',sexo='" & sexo & "',estado='" & estado & "',parroquia1='" & parroquia1 & "',direccion='" & direccion & "' WHERE id=" & DFirst("id", "tabla2", "cedula='" & cedula & "'")
cedula = Null
nombre = Null
telefono = Null
email = Null
fecha = Null
codigo = Null
centro = Null
municipio = Null
parroquia = Null
parroquia1 = Null
direccion = Null
edad = Null
sexo = Null
estado = Null
instruccion = Null
ocupacion = Null
gf = Null
adultos = Null
niños = Null
trabaja_usted = Null
nombre2 = Null
coordinacion = Null
cargo = Null
codigo1 = Null
centro1 = Null
cedula.SetFocus
End If
Else
DoCmd.RunSQL "INSERT INTO tabla2(cedula,nombre,fecha,telefono,email,codigo,centro,municipio,parroquia,parroquia1,direccion,edad,sexo,estado,instruccion,ocupacion,gf,adultos,niños,trabaja_usted,nombre2,coordinacion,cargo,codigo1,centro1) VALUES('" & cedula & "','" & nombre & "','" & fecha & "','" & telefono & "','" & email & "','" & codigo & "','" & centro & "','" & municipio & "','" & parroquia & "','" & parroquia1 & "','" & direccion & "','" & edad & "','" & sexo & "','" & estado & "','" & instruccion & "','" & ocupacion & "','" & gf & "','" & adultos & "','" & niños & "','" & trabaja_usted & "','" & nombre2 & "','" & coordinacion & "','" & cargo & "','" & codigo1 & "','" & centro1 & "')"
cedula = Null
nombre = Null
fecha = Null
telefono = Null
email = Null
codigo = Null
centro = Null
municipio = Null
parroquia = Null
parroquia1 = Null
direccion = Null
edad = Null
sexo = Null
estado = Null
instruccion = Null
ocupacion = Null
gf = Null
adultos = Null
niños = Null
trabaja_usted = Null
nombre2 = Null
coordinacion = Null
cargo = Null
codigo1 = Null
centro1 = Null
cedula.SetFocus
End If
End Sub
Como hago para hacer lo mismo que hago alli con texto, para la imagen (Datos Adjunto)
Disculpen por lo extenso de la pregunta
| |
|
|
