Guardar Registros
Publicado por Javier Hernández Aguilar (33 intervenciones) el 23/11/2007 22:04:56
Haber
- Tengo una tabla "Profesores"
- Y genero una consulta llamada "Profesores Todo"
- Ahora creo un formulario llamado "Editar Profesor"
- En este formulario tengo un ComboBox llamado "EditarNombre", el cual me permite elegir el nombre del profesor en base a la consulta "Profesores Todo".
- Una vez seleccionado un nombre, me actualiza los cuadros de texto restantes en el formulario mediante el siguiente código:
Private Sub EditNombre_AfterUpdate() ' Aquí los campos son:
Me!EditRFC = Me![EditNombre].Column(1) ' RFC
Me!EditSexo = Me![EditNombre].Column(2) ' Sexo
Me!EditFechadeNacimiento = Me![EditNombre].Column(3) ' FechadeNacimiento
Me!EditFechadeIngreso = Me![EditNombre].Column(5) ' FechadeIngreso
Me!EditTituloActual = Me![EditNombre].Column(7) ' TituloActual
Me!EditGradoActual = Me![EditNombre].Column(8) ' GradoActual
Me!EditCategoria = Me![EditNombre].Column(9) ' Categoria
Me!EditSuspendido = Me![EditNombre].Column(10) ' Suspendido
Me!EditConLicencia = Me![EditNombre].Column(11) ' ConLicencia
End Sub
al hacer esto puedo modificar cualquier valor, sin estar ligado a la tabla "Profesores" o a la consula "Profesores Todo".
En el mismo formulario pongo un Boton llamado "Guardar" y quiero que cuando le de click me actualice el registro con lo contenido en los cuadros de texto. Como le hago???
Private Sub Guardar_Click()
.
.
.
End Sub
Espero alguien pueda ayudarme!!!
Saludos!!!
- Tengo una tabla "Profesores"
- Y genero una consulta llamada "Profesores Todo"
- Ahora creo un formulario llamado "Editar Profesor"
- En este formulario tengo un ComboBox llamado "EditarNombre", el cual me permite elegir el nombre del profesor en base a la consulta "Profesores Todo".
- Una vez seleccionado un nombre, me actualiza los cuadros de texto restantes en el formulario mediante el siguiente código:
Private Sub EditNombre_AfterUpdate() ' Aquí los campos son:
Me!EditRFC = Me![EditNombre].Column(1) ' RFC
Me!EditSexo = Me![EditNombre].Column(2) ' Sexo
Me!EditFechadeNacimiento = Me![EditNombre].Column(3) ' FechadeNacimiento
Me!EditFechadeIngreso = Me![EditNombre].Column(5) ' FechadeIngreso
Me!EditTituloActual = Me![EditNombre].Column(7) ' TituloActual
Me!EditGradoActual = Me![EditNombre].Column(8) ' GradoActual
Me!EditCategoria = Me![EditNombre].Column(9) ' Categoria
Me!EditSuspendido = Me![EditNombre].Column(10) ' Suspendido
Me!EditConLicencia = Me![EditNombre].Column(11) ' ConLicencia
End Sub
al hacer esto puedo modificar cualquier valor, sin estar ligado a la tabla "Profesores" o a la consula "Profesores Todo".
En el mismo formulario pongo un Boton llamado "Guardar" y quiero que cuando le de click me actualice el registro con lo contenido en los cuadros de texto. Como le hago???
Private Sub Guardar_Click()
.
.
.
End Sub
Espero alguien pueda ayudarme!!!
Saludos!!!
Valora esta pregunta
0