M0101tipoRifTab 14-08-2022
Campo: tipoRif
Tipo de datos: Texto
Clave principal
Tamaño del campo: 2
| tipoRif |
|---|
| J |
| G |
| V |
| E |
| P |
M0102clienteTab 14-08-2022
Campo: IdCliente
Tipo de datos: Autonumérico
Clave principal
Campo: nombre
Tipo de datos: Texto
Tamaño del campo: 100
Formato: > (Texto en mayúscula)
Campo: tipoRif
Tipo de datos: Texto
Tamaño del campo: 2
Indexado: Sí (Con duplicados)
Campo: rif
Tipo de campo: Texto
Tamaño del campo: 15
Máscara de entrada: 99999999\-9;0;_
Campo: direccion
Tipo de campo: Texto
Tamaño del campo: 160
Campo: tlf
Tipo de campo: Texto
Tamaño del campo: 15
Máscara de entrada: 9999\-9999999;0;_
M0103clienteFor 14-08-2022
Propiedades del Formulario
Origen del registro: M0102clienteTab
Título: CLIENTE
Emergente: Si
Modal: Si
Ancho: 13,501cm
Centrado automático: Si
Selectores de registro: No
Botones de desplazamiento: No
Barras de desplazamiento: Ninguna
Cuadro de control: No
Movible: No
Menú contextual: No
Al abrir: [Procedimiento de evento]
Private Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "M0106clienteFor"
End Sub
Propiedades del Encabezado del formulario
Alto: 0cm
Propiedades del Detalle
Alto: 5,501cm
Campo: IdCliente
Etiqueta:
Título: ID:
Ancho: 2,501cm
Alto: 0,556cm
Superior: 0,501cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: IdCliente
Origen del control: IdCliente
Ancho: 3cm
Alto: 0,556cm
Superior: 0,501cm
Izquierda: 3cm
Alineación del texto: Centro
Espesor de la fuente: Negrita
Color del texto: #000000
Activado: No
Bloqueado: Si
Campo: nombre
Etiqueta:
Título: Nombre:
Ancho: 2,501cm
Alto: 0,556cm
Superior: 1,199cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: nombre
Origen del control: nombre
Formato: > (Texto en mayúscula)
Ancho: 10cm
Alto: 0,556cm
Superior: 1,199cm
Izquierda: 3cm
Al recibir el enfoque: [Procedimiento de evento]
Private Sub nombre_GotFocus()
nombre.BackColor = RGB(242, 161, 152)
End Sub
Al perder el enfoque: [Procedimiento de evento]
Private Sub nombre_LostFocus()
nombre.BackColor = RGB(255, 255, 255)
End Sub
Campo: tipoRif
Etiqueta:
Título: RIF:
Ancho: 2,501cm
Alto: 0,556cm
Superior: 1,905cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto: Cambiar a cuadro combinado:
Nombre: tipoRif
Origen del control: tipoRif
Origen de la fila: M0101tipoRifTab
Ancho: 1cm
Alto: 0,556cm
Superior: 1,905cm
Izquierda: 3cm
Al recibir el enfoque: [Procedimiento de evento]
Private Sub tipoRif_GotFocus()
tipoRif.BackColor = RGB(242, 161, 152)
End Sub
Al perder el enfoque: [Procedimiento de evento]
Private Sub tipoRif_LostFocus()
tipoRif.BackColor = RGB(255, 255, 255)
End Sub
Campo: rif
Etiqueta: NO
Cuadro de texto:
Nombre: rif
Origen del control: rif
Ancho: 3cm
Alto: 0,556cm
Superior: 1,905cm
Izquierda: 4,101cm
Al recibir el enfoque: [Procedimiento de evento]
Private Sub rif_GotFocus()
rif.BackColor = RGB(242, 161, 152)
End Sub
Al perder el enfoque: [Procedimiento de evento]
Private Sub rif_LostFocus()
rif.BackColor = RGB(255, 255, 255)
End Sub
Campo: direccion
Etiqueta:
Título: Dirección:
Ancho: 2,501cm
Alto: 0,556cm
Superior: 2,619cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: direccion
Origen del control: direccion
Ancho: 10cm
Alto: 1,501cm
Superior: 2,619cm
Izquierda: 3cm
Al recibir el enfoque: [Procedimiento de evento]
Private Sub direccion_GotFocus()
direccion.BackColor = RGB(242, 161, 152)
End Sub
Al perder el enfoque: [Procedimiento de evento]
Private Sub direccion_LostFocus()
direccion.BackColor = RGB(255, 255, 255)
End Sub
Campo: tlf
Etiqueta:
Título: Teléfono:
Ancho: 2,501cm
Alto: 0,556cm
Superior: 4,392cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: tlf
Origen del control: tlf
Ancho: 3cm
Alto: 0,556cm
Superior: 4,392cm
Izquierda: 3cm
Al recibir el enfoque: [Procedimiento de evento]
Private Sub tlf_GotFocus()
tlf.BackColor = RGB(242, 161, 152)
End Sub
Al perder el enfoque: [Procedimiento de evento]
Private Sub tlf_LostFocus()
tlf.BackColor = RGB(255, 255, 255)
End Sub
Propiedades del Pie de formulario
Alto: 1cm
Botón de comando
Nombre: CerrarFormulario
Título: &Cerrar formulario
Ancho: 5cm
Alto: 0,7cm
Superior: 0,101cm
Izquierda: 4,25cm
Tamaño de la fuente: 14
Espesor de la fuente: Negrita
Color del texto: #BA1419
Al hacer clic: [Procedimiento de evento]
Private Sub CerrarFormulario_Click()
On Error GoTo Err_CerrarFormulario_Click
DoCmd.Close
DoCmd.OpenForm "M0106clienteFor"
Exit_CerrarFormulario_Click:
Exit Sub
Err_CerrarFormulario_Click:
MsgBox Err.Description
Resume Exit_CerrarFormulario_Click
End Sub
M0104clienteFor 14-08-2022
Propiedades del Formulario
Origen del registro: SELECT M0102clienteTab.IdCliente, M0102clienteTab.nombre, [M0101tipoRifTab]![tipoRif] & "-" & [M0102clienteTab]![rif] AS Registro, M0102clienteTab.direccion, M0102clienteTab.tlf FROM M0102clienteTab RIGHT JOIN M0101tipoRifTab ON M0102clienteTab.tipoRif=M0101tipoRifTab.tipoRif WHERE (((M0102clienteTab.IdCliente)=[Formularios]![M0106clienteFor]![ListaCliente]));
Ancho: 13cm
Selectores de registro: No
Botones de desplazamiento: No
Barras de desplazamiento: Ninguna
Cuadro de control: No
Movible: No
Menú contextual: No
Propiedades del Detalle
Alto: 5cm
Campo: IdCliente
Etiqueta:
Título: ID:
Ancho: 1cm
Alto: 0,556cm
Superior: 0,501cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: IdCliente
Origen del control: IdCliente
Ancho: 3cm
Alto: 0,556cm
Superior: 0,501cm
Izquierda: 1,501cm
Alineación del texto: Centro
Espesor de la fuente: Negrita
Color del texto: #000000
Activado: No
Bloqueado: Si
Campo:nombre
Etiqueta:
Título: Cliente:
Ancho: 2cm
Alto: 0,556cm
Superior: 1,296cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: nombre
Origen del control: nombre
Formato: > (Texto en mayuscula)
Ancho: 10cm
Alto: 0,556cm
Superior: 1,296cm
Izquierda: 2,501cm
Activado: No
Bloqueado: Si
Campo: Registro
Etiqueta:
Título: RIF:
Ancho: 1cm
Alto: 0,556cm
Superior: 2,116cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: Registro
Origen del control: Registro
Ancho: 3cm
Alto: 0,556cm
Superior: 2,116cm
Izquierda: 1,501cm
Activado: No
Bloqueado: Si
Campo: tlf
Etiqueta:
Título: Teléfono:
Ancho: 2cm
Alto: 0,556cm
Superior: 2,116cm
Izquierda: 6cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: tlf
Origen del control: tlf
Ancho: 3cm
Alto: 0,556cm
Superior: 2,116cm
Izquierda: 8cm
Activado: No
Bloqueado: Si
Campo: direccion
Etiqueta:
Título: Dirección:
Ancho: 2cm
Alto: 0,556cm
Superior: 2,91cm
Izquierda: 0,501cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: direccion
Origen del control: direccion
Ancho: 10cm
Alto: 1cm
Superior: 2,91cm
Izquierda: 2,501cm
M0105clienteCon 14-08-2022
SELECT M0102clienteTab.IdCliente, M0102clienteTab.nombre FROM M0102clienteTab WHERE (((M0102clienteTab.nombre) Like "*" & [Formularios]![M0106clienteFor]![Buscar] & "*")) ORDER BY M0102clienteTab.nombre;
M0106clienteFor 14-08-2022
Propiedades del Formulario
Título: CLIENTES
Emergente: Si
Modal: Si
Ancho: 25cm
Centrado automático: Si
Selectores de registro: No
Botones de desplazamiento: No
Barras de desplazamiento: Ninguna
Cuadro de control: No
Movible: No
Menú contextual: No
Propiedades del Detalle
Alto: 12cm
Cuadro de texto Independiente
Etiqueta:
Título: Buscar:
Ancho: 2cm
Alto: 0,556cm
Superior: 1cm
Izquierda: 1cm
Espesor de la fuente: Negrita
Color del texto: #000000
Cuadro de texto:
Nombre: Buscar
Ancho: 7cm
Alto: 0,556cm
Superior: 1cm
Izquierda: 3cm
Espesor de la fuente: Negrita
Color del texto: #000000
Después de actualizar: [Procedimiento de evento]
Private Sub Buscar_AfterUpdate()
Me!ListaCliente.Requery
End Sub
Al recibir el enfoque: [Procedimiento de evento]
Private Sub Buscar_GotFocus()
Buscar.BackColor = RGB(242, 161, 152)
End Sub
Al perder el enfoque: [Procedimiento de evento]
Private Sub Buscar_LostFocus()
Buscar.BackColor = RGB(255, 255, 255)
End Sub
Cuadro de listaIndependiente
Nombre: ListaCliente
Origen de la fila: M0105clienteCon
Número de columnas: 2
Ancho de columnas: 0cm;5cm
Ancho: 9cm
Alto: 9cm
Superior: 2cm
Izquierda: 1cm
Al hacer clic: [Procedimiento de evento]
Private Sub ListaCliente_Click()
Me!subfCliente.Requery
End Sub
Subformulario
Nombre: subfCliente
Objeto de origen: M0104clienteFor
Ancho: 13cm
Alto: 6cm
Superior: 1cm
Izquierda: 11cm
Activado: No
Bloqueado: Si
Botón de comando
Nombre: Nuevo
Título: &Nuevo
Ancho: 4cm
Alto: 1cm
Superior: 8cm
Izquierda: 11cm
Tamaño de la fuente: 18
Espesor de la fuente: Negrita
Color del texto: #758C48
Punto de tabulación: No
Al hacer clic: [Procedimiento de evento]
Private Sub Nuevo_Click()
DoCmd.OpenForm "M0103clienteFor, acNormal, , , acFormAdd
End Sub
Botón de comando
Nombre: Editar
Título: &Editar
Ancho: 4cm
Alto: 1cm
Superior: 8cm
Izquierda: 16cm
Tamaño de la fuente: 18
Espesor de la fuente: Negrita
Color del texto: #758C48
Punto de tabulación: No
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![ListaCliente]) Then
MsgBox "Seleccione un registro de la lista"
ListaCliente.SetFocus
Else
stDocName = "M0103clienteFor"
stLinkCriteria = "[IdCliente]=" & Me![ListaCliente]
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: 6cm
Alto: 1cm
Superior: 10cm
Izquierda: 11cm
Tamaño de la fuente: 18
Espesor de la fuente: Negrita
Color del texto: #903C39
Punto de tabulación: No
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
Botón de comando
Nombre: SalirPrograma
Título: &Salir del programa
Ancho: 6cm
Alto: 1cm
Superior: 10cm
Izquierda: 18cm
Tamaño de la fuente: 18
Espesor de la fuente: Negrita
Color del texto: #903C39
Punto de tabulación: No
Al hacer clic: [Procedimiento de evento]
Private Sub SalirPrograma_Click()
On Error GoTo Err_SalirPrograma_Click
DoCmd.Quit
Exit_SalirPrograma_Click:
Exit Sub
Err_SalirPrograma_Click:
MsgBox Err.Description
Resume Exit_SalirPrograma_Click
End Sub
Relaciones 14-08-2022
- Tipo de relación: uno a varios
- Exigir integridad referencial
- Actualizar en cascada los campos relacionados
- Eliminar en cascada los registros relacionados
- Tipo de combinación:
- 1: Incluir sólo las filas donde los campos combinados de ambas tablas sean iguales.