Hola amigos expertos, fijense que estoy haciendo una pequeña aplicacion de un sistema de horarios de profesores, la base de datos la tengo hecha en access 2000 y tiene las siguientes tablas: Delegaciones, Dias, Estados, Materias, Pagos, Profesores, Turnos y Usuarios.
Donde estoy haciendo el modulo de altas de profeores y donde aqui trabajo con cuatro tablas Delegaciones, Estados, Pagos y Profesores y estas tablas estan compuestas de la siguiente manera:
Estados
IdEstado
DescEst Descripcion
Pagos
IdPago
DescPago Descripcion
Delegaciones
IdDelegacion
DescDel Descripcion
Profesores
Nombre
Apellidos
Direccion
Telefono
Cp
Rfc
Ahora les pongo la pantalla de mi modulopara que vean que controles ocupo
[IMG]C:\Horarios2\modulos profesores.jpg[/IMG]
La duda es que como hago para que cuando le de en boton guardar me guarde todo los registros incluyendo lo que son estados, pagos, delegaciones ya que me manda un error por no saber como ligar esto ya que utilizo el control DataCombo y afecto otras tablas y asi sucesivamente con el boton de nuevo de hecho les dejo todo mi codigo y espero que me puedan ayudar ya que me urge muchisimo y le agradecere su ayuda enormemente o si me pueden orientar por otro medio les dejo mi msn si alguien se apiada de mi,
[email protected]
A continuacion les dejo el codigo:
Dim cn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Private Sub Anterior_Click()
rs1.MovePrevious
Posterior.Enabled = True
desabilitar
If rs1.BOF = True Then
rs1.MoveFirst
Primero.Enabled = False
Anterior.Enabled = False
Else
refrescar
End If
End Sub
Private Sub Cancelar_Click()
rs1.CancelUpdate
refrescar
desabilitar
End Sub
Private Sub Eliminar_Click()
n = MsgBox("Esta Seguro que desea eliminar el registro?", vbYesNo, "Confirme Eliminacion")
If n = vbYes Then
rs1.Delete
End If
rs1.MovePrevious
rs1.MoveNext
refrescar
End Sub
Private Sub Form_Load()
cn1.Provider = "Microsoft.Jet.OLEDB.4.0"
cn1.ConnectionString = "C:\Horarios2\Horarios.mdb"
cn1.Open
rs1.Open "select * from profesores", cn1, adOpenKeyset, adLockOptimistic
rs1.MoveFirst
refrescar
desabilitar
End Sub
Private Sub Guardar_Click()
rs1.Fields("IdProfesor") = Text1.Text
rs1.Fields("Nombre") = Text2.Text
rs1.Fields("Apellidos") = Text3.Text
rs1.Fields("Direccion") = Text4.Text
rs1.Fields("Telefono") = Text5.Text
rs1.Fields("Cp") = Text6.Text
rs1.Fields("Rfc") = Text7.Text
rs1.Fields("Curp") = Text8.Text
rs1.Fields("GradoAcademico") = Text9.Text
rs1.Fields("Especialidad") = Text10.Text
rs1.Fields("HorarioLabores") = Text11.Text
rs1.Fields("Historial1") = Text12.Text
rs1.Fields("Historial2") = Text13.Text
rs1.Fields("Itfp") = Text14.Text
rs1.Fields("Ssp") = Text15.Text
rs1.Update
desabilitar
End Sub
Private Sub listadelegaciones_Click(Area As Integer)
Dim rs1 As New ADODB.Recordset
rs1.Open "select * from delegaciones order by DescDel", cn1, adOpenKeyset, adLockOptimistic
Set listadelegaciones.DataSource = rs1
Set listadelegaciones.RowSource = rs1
listadelegaciones.ListField = ("DescDel")
End Sub
Private Sub listaestados_Click(Area As Integer)
Dim rs1 As New ADODB.Recordset
rs1.Open "select * from estados order by DescEst", cn1, adOpenKeyset, adLockOptimistic
Set listaestados.DataSource = rs1
Set listaestados.RowSource = rs1
listaestados.ListField = ("DescEst")
End Sub
Private Sub listapagos_Click(Area As Integer)
Dim rs1 As New ADODB.Recordset
rs1.Open "select * from pagos", cn1, adOpenKeyset, adLockOptimistic
Set listapagos.DataSource = rs1
Set listapagos.RowSource = rs1
listapagos.ListField = ("DescPag")
End Sub
Public Sub refrescar()
Text1.Text = rs1!IdProfesor
Text2.Text = rs1!Nombre
Text3.Text = rs1!Apellidos
Text4.Text = rs1!Direccion
Text5.Text = rs1!Telefono
Text6.Text = rs1!Cp
Text7.Text = rs1!Rfc
Text8.Text = rs1!Curp
Text9.Text = rs1!GradoAcademico
Text10.Text = rs1!Especialidad
Text11.Text = rs1!HorarioLabores
Text12.Text = rs1!Historial1
Text13.Text = rs1!Historial2
Text14.Text = rs1!Itfp
Text15.Text = rs1!Ssp
End Sub
Private Sub limpiar()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
listadelegaciones.Text = ""
listapagos.Text = ""
listaestados.Text = ""
End Sub
Public Sub desabilitar()
If Primero.Value = True Then
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = False
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = False
Modificar.Enabled = True
Else
If Nuevo.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = False
Nuevo.Enabled = False
Guardar.Enabled = True
Cancelar.Enabled = True
Primero.Enabled = False
Salir.Enabled = False
Eliminar.Enabled = False
Modificar.Enabled = False
Else
If Guardar.Value = True Or Cancelar.Value = True Then
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Salir.Enabled = True
Eliminar.Enabled = True
Modificar.Enabled = True
Else
If Ultimo.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Else
If Modificar.Value = True Then
Posterior.Enabled = False
Ultimo.Enabled = False
Anterior.Enabled = False
Nuevo.Enabled = False
Guardar.Enabled = True
Cancelar.Enabled = True
Primero.Enabled = False
Eliminar.Enabled = False
Else
Posterior.Enabled = True
Ultimo.Enabled = True
Anterior.Enabled = True
Nuevo.Enabled = True
Guardar.Enabled = False
Cancelar.Enabled = False
Primero.Enabled = True
Eliminar.Enabled = True
End If
End If
End If
End If
End If
End Sub
Public Function validar() As Boolean
If rs.BOF = True Or rs.EOF = True Then
validar = False
Else
validar = True
End If
End Function
Private Sub Modificar_Click()
desabilitar
End Sub
Private Sub Nuevo_Click()
rs1.AddNew
limpiar
desabilitar
End Sub
Private Sub Posterior_Click()
rs1.MoveNext
desabilitar
If rs1.EOF = True Then
rs1.MoveLast
Ultimo.Enabled = False
Posterior.Enabled = False
Else
refrescar
End If
End Sub
Private Sub Primero_Click()
rs1.MoveFirst
refrescar
desabilitar
End Sub
Private Sub Salir_Click()
End
End Sub
Private Sub Ultimo_Click()
rs1.MoveLast
refrescar
desabilitar
End Sub
