Hola amigos , eh estado rompiendome la cabeza itentando y a lo máximo fue a nada
xq el visual se me vuelve loco y me tira errores por doquier...
A lo que quiero llegar es a lo siguiente.
Mi botón guardar hace ésto:
Código:
Command4_Click
Call Asignar_Datos
rs1.Update
MsgBox " Registro guardado", vbInformation, "Grabar"
Command4.Enabled = False
End Sub
Mi asignar datos hace ésto:
Código:
Private Sub Asignar_Datos()
With rs1
If rs1.State = 1 Then rs1.Close
rs1.Open "select * from alumnos", cn, adOpenDynamic, adLockOptimistic
rs1.AddNew
rs1("dni") = dni.Text
rs1("fecha matr") = Mfecha.Text
rs1("apellido") = ape.Text
rs1("nombre") = nom.Text
.......
end with
end sub
Me guarda perfecto , todo en la tabla de Alumnos...y los campos de "
dni, fecha_matr, apellido, nombre" Bien lo que ahora quiero hacer es lo siguiente:
Quiero que se me guarde ése dni , en las tablas llamadas --> libretas , y matriculas....
Como debo hacerlo??
....
Intente haciendo despues del
end with del primer rs1
Código:
rs2.Open "Insert into libretas (dni) values ('dni')
select * from alumnos", cn, adOpenDynamic, adLockOptimistic
rs2.AddNew
rs2("dni") = dni
Ya vi la mayoría de tutoriales en internet, y llegue a la conclusión de ponerlo de esa forma...pero no pasa nada...
Alguien tiene alguna idea..para aportarme??
Muchas gracias desde ya!