Propiedades Formulario
Origen del registro: personas01tab
Título: PERSONA
Emergente: Si
Modal: Si
Ancho: 17,501cm
Centrado automático: Sí
Selectores de registro: No
Botones de desplazamiento: No
Barras de desplazamiento: Ninguna
Propiedades Encabezado del Formulario
Alto: 0cm
Propiedades Detalle
Alto: 8cm
Campo: idpersona
Etiqueta:
Título: ID:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 0,499cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: idpersona
Origen del control: idpersona
Ancho: 2cm
Alto: 0,556cm
Superior: 0,499cm
Izquierda: 4cm
Alineación del texto: Centro
Espesor de la fuente: Grueso
Activado: No
Bloqueado: Si
Campo: nombre
Etiqueta:
Título: Nombre:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 1,199cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: nombre
Origen del control: nombre
Formato: > (Texto en mayúscula)
Ancho: 6cm
Alto: 0,556cm
Superior: 1,199cm
Izquierda: 4cm
Campo: apellidoP
Etiqueta:
Título: Apellido Paterno:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 1,899cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: apellidoP
Origen del control: apellidoP
Formato: > (Texto en mayúscula)
Ancho: 3cm
Alto: 0,556cm
Superior: 1,899cm
Izquierda: 4cm
Campo: apellidoM
Etiqueta:
Título: Apellido Materno:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 2,6cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: apellidoM
Origen del control: apellidoM
Formato: > (Texto en mayúscula)
Ancho: 3cm
Alto: 0,556cm
Superior: 2,6cm
Izquierda: 4cm
Campo: sexo
Etiqueta:
Título: Sexo:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 3,298cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Cambiar a: Cuadro combinado
Nombre: sexo
Origen del control: sexo
Ancho: 1,501cm
Alto: 0,556cm
Superior: 3,298cm
Izquierda: 4cm
Origen de la fila: M;F
Tipo de origen de la fila: Lista de valores
Permitir ediciones de lista de valores: No
Campo: nace
Etiqueta:
Título: Nace: Fecha de nacimiento
Ancho: 3,199cm
Alto: 0,556cm
Superior: 3,998cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: nace
Origen del control: nace
Ancho: 2cm
Alto: 0,556cm
Superior: 3,998cm
Izquierda: 4cm
Alineación del texto: Centro
Campo: muere
Etiqueta:
Título: Muere: Fecha de muerte
Ancho: 3,199cm
Alto: 0,556cm
Superior: 4,698cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: muere
Origen del control: muere
Ancho: 2cm
Alto: 0,556cm
Superior: 4,698cm
Izquierda: 4cm
Alineación del texto: Centro
Campo: cedula
Etiqueta:
Título: Cédula:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 5,399cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: cedula
Origen del control: cedula
Ancho: 3cm
Alto: 0,556cm
Superior: 5,399cm
Izquierda: 4cm
Alineación del texto: Centro
Máscara de entrada: 90.000.000;;_
Campo: padre
Etiqueta:
Título: Padre:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 6,099cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Cambiar a: Cuadro combinado
Nombre: padre
Origen del control: padre
Origen de la fila: SELECT personas01tab.idpersona, [nombre] & " " & [apellidoP] & " " & [apellidoM] AS Padre FROM personas01tab WHERE (((personas01tab.sexo)="M"));
Columna dependiente: 1
Número de columnas: 2
Ancho de columnas: 0cm;6cm
Formato: > (Texto en mayúscula)
Ancho: 6cm
Alto: 0,556cm
Superior: 6,099cm
Izquierda: 4cm
Campo: madre
Etiqueta:
Título: Madre:
Ancho: 3,199cm
Alto: 0,556cm
Superior: 6,799cm
Izquierda: 0,501cm
Alineación del texto: Derecha
Espesor de la fuente: Grueso
Cuadro de texto:
Cambiar a: Cuadro combinado
Nombre: madre
Origen del control: madre
Origen de la fila: SELECT personas01tab.idpersona, [nombre] & " " & [apellidoP] & " " & [apellidoM] AS Madre FROM personas01tab WHERE (((personas01tab.sexo)="F"));
Columna dependiente: 1
Número de columnas: 2
Ancho de columnas: 0cm;6cm
Formato: > (Texto en mayúscula)
Ancho: 6cm
Alto: 0,556cm
Superior: 6,799cm
Izquierda: 4cm
Campo: foto
Etiqueta:
Título: Foto:
Ancho: 2cm
Alto: 0,556cm
Superior: 0,501cm
Izquierda: 11cm
Espesor de la fuente: Grueso
Datos adjuntos:
Nombre: foto
origen del control: foto
Ancho: 6cm
Alto: 6cm
Superior: 1,101cm
Izquierda: 11cm
Estilo de los bordes: Sólido
Ancho de los bordes: 6 pt
Color de los bordes: #727272
Efecto especial: Sombreado
Propiedades Pie del Formulario
Alto: 1,501cm
Botón de comando:
Nombre: CerrarFormulario
Título: &Cerrar formulario
Ancho: 5cm
Alto: 0,801cm
Superior: 0cm
Izquierda: 6cm
Tamaño de la fuente: 14
Espesor de la fuente: Grueso
Al hacer clic: [Procedimiento de evento]
Private Sub CerrarFormulario_Click()
On Error GoTo Err_CerrarFormulario_Click
DoCmd.Close
Exit_CerrarFormulario_Click:
Exit Sub
Err_CerrarFormulario_Click:
MsgBox Err.Description
Resume Exit_CerrarFormulario_Click
End Sub
Propiedades Formulario
Origen del registro: personas01tab
Título: PERSONAS
Emergente: Si
Modal: Si
Ancho: 24,501cm
Centrado automático: Sí
Selectores de registro: No
Botones de desplazamiento: No
Barras de desplazamiento: Ninguna
Propiedades Encabezado del Formulario
Alto: 0cm
Propiedades Detalle
Alto: 9,6cm
Cuadro de texto: Independiente
Etiqueta:
Título: Buscador:
Ancho: 2cm
Alto: 0,556cm
Superior: 1cm
Izquierda: 1cm
Espesor de la fuente: Grueso
Cuadro de texto:
Nombre: txtBuscar
Ancho: 5cm
Alto: 0,556cm
Superior: 1cm
Izquierda: 3cm
Cuadro de lista: Independiente
Nombre: ListaPersona
Origen de la fila: SELECT personas01tab.idPersona, personas01tab.nombre, personas01tab.apellidoP, personas01tab.apellidoM, personas01tab.nace, personas01tab.muere FROM personas01tab ORDER BY personas01tab.[nombre];
Número de columnas: 6
Ancho de columnas: 1cm;4cm;2,6cm;2,6cm;2,6cm;2,6cm
Ancho: 15cm
Alto: 7cm
Superior: 2cm
Izquierda: 1cm
Al hacer clic: [Procedimiento de evento]
Private Sub ListaPersona_Click()
Me.img.Requery
End Sub
Sub-formulario:
Nombre: img
Objeto de origen: personas03for
Ancho: 7cm
Alto: 7cm
Superior: 2cm
Izquierda: 17cm
Botón de comando:
Nombre: btnBuscar
Título: &Buscar
Ancho: 3cm
Alto: 0,7cm
Superior: 0,951cm
Izquierda: 8,501cm
Al hacer clic: [Procedimiento de evento]
Private Sub btnBuscar_Click()
Dim Consulta As String
Consulta = "SELECT idPersona,nombre,apellidoP,apellidoM,nace,muere "
Consulta = Consulta & "FROM personas01tab "
Consulta = Consulta & "WHERE idPersona Like '*" & Me.txtBuscar & "*' or nombre Like '*" & Me.txtBuscar & "*' or apellidoP Like '*" & Me.txtBuscar & "*' or apellidoM Like '*" & Me.txtBuscar & "*' or nace Like '*" & Me.txtBuscar & "*' or muere Like '*" & Me.txtBuscar & "*' "
Consulta = Consulta & "ORDER BY nombre ASC"
Me.ListaPersona.RowSource = Consulta
End Sub
Botón de comando:
Nombre: btnCancelar
Título: &Cancelar
Ancho: 3cm
Alto: 0,7cm
Superior: 0,951cm
Izquierda: 12cm
Al hacer clic: [Procedimiento de evento]
Private Sub btnCancelar_Click()
Me.ListaPersona.RowSource = "SELECT idPersona,nombre,apellidoP,apellidoM,nace,muere FROM personas01tab ORDER BY nombre ASC"
txtBuscar.Value = Null
End Sub
Propiedades Pie del Formulario
Alto: 1,501cm
Botón de comando:
Nombre: Nuevo
Título: &Nuevo
Ancho: 3cm
Alto: 0,801cm
Superior: 0cm
Izquierda: 2cm
Tamaño de la fuente: 14
Espesor de la fuente: Grueso
Al hacer clic: [Procedimiento de evento]
Private Sub Nuevo_Click()
On Error GoTo Err_Nuevo_Click
DoCmd.OpenForm "personas02for", acNormal, , , acFormAdd
Exit_Nuevo_Click:
Exit Sub
Err_Nuevo_Click:
MsgBox Err.Description
Resume Exit_Nuevo_Click
End Sub
Botón de comando:
Nombre: Editar
Título: &Editar
Ancho: 3cm
Alto: 0,801cm
Superior: 0cm
Izquierda: 6cm
Tamaño de la fuente: 14
Espesor de la fuente: Grueso
Al hacer clic: [Procedimiento de evento]
Private Sub Editar_Click()
On Error GoTo Err_Editar_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![ListaPersona]) Then
MsgBox "Seleccione un registro de la lista"
ListaPersona.SetFocus
Else
stDocName = "personas02for"
stLinkCriteria = "[idPersona]=" & Me![ListaPersona]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_Editar_Click:
Exit Sub
Err_Editar_Click:
MsgBox Err.Description
Resume Exit_Editar_Click
End Sub
Botón de comando:
Nombre: CerrarFormulario
Título: Cerrar &Formulario
Ancho: 5cm
Alto: 0,801cm
Superior: 0cm
Izquierda: 10cm
Tamaño de la fuente: 14
Espesor de la fuente: Grueso
Al hacer clic: [Procedimiento de evento]
Private Sub CerrarFormulario_Click()
On Error GoTo Err_CerrarFormulario_Click
DoCmd.Close
Exit_CerrarFormulario_Click:
Exit Sub
Err_CerrarFormulario_Click:
MsgBox Err.Description
Resume Exit_CerrarFormulario_Click
End Sub
