Enlazar 3 combobox en vb con bd access
Estoy realizando un proyecto sobre un instituto en visual b. Con conexión access
Tengo un formulario (SSTab - 1 solo formulario con pestañas ) y mi problema es que quiero enlazar los datos de 3 combos. El 1r Combo me tendría que mostrar los alumnos del centro, el 2º el ciclo formativo que realiza y el 3º el crédito que esta cursando.
He conseguido que me muestre los datos del 1r y 2º combo con el GotFocus pero no se como relacionarlos para que al pulsar el 1º -alumnos- me muestre los datos del 2º-ciclo- y entonces dependiendo de lo seleccionado els los otros 2, en el 3º me muestre los créditos del alumno de ese ciclo. Una vez mostrado, dependiendo del crédito elegido, ( Ej: c4, c6, c9 ) me mostrase la nota en un textbox
Le paso el código que pongo para rellenar los dos primeros combos:
Private Sub cmbnotes_alumne_GotFocus()
notes = cmbnotes_alumne.Text
cicles = cmbnotes_cicle.Text
cmbnotes_alumne.Clear
cmbcodi_cicle.Clear
rs_a.MoveFirst
Do While Not rs_a.EOF
If notes <> rs_a!cognoms_nom Then
cmbnotes_alumne.AddItem rs_a!cognoms_nom
cmbnotes_cicle.AddItem rs_a!codi_cicle
End If
rs_a.MoveNext
Loop
cmbnotes_alumne.Text = notes
notes = cmbnotes_cicle.Text
cmbnotes_alumne.Clear
cmbnotes_cicle.Clear
rs_a.MoveFirst
Do While Not rs_a.EOF
If notes2 <> rs_a!cognoms_nom Then
cmbnotes_alumne.AddItem rs_a!cognoms_nom
cmbnotes_cicle.AddItem rs_a!codi_cicle
End If
rs_a.MoveNext
Loop
cmbnotes_alumne.Text = notes
cmbnotes_cicle.Text = cicles
End Sub
Se que debo hacer una consulta SQL pero no como ni dónde para así tener un indice del elemente seleccionado
Muchas gracias de antemano. Espero obtener respuesta suya ya que me urge porque es un proyecto final.
Tengo un formulario (SSTab - 1 solo formulario con pestañas ) y mi problema es que quiero enlazar los datos de 3 combos. El 1r Combo me tendría que mostrar los alumnos del centro, el 2º el ciclo formativo que realiza y el 3º el crédito que esta cursando.
He conseguido que me muestre los datos del 1r y 2º combo con el GotFocus pero no se como relacionarlos para que al pulsar el 1º -alumnos- me muestre los datos del 2º-ciclo- y entonces dependiendo de lo seleccionado els los otros 2, en el 3º me muestre los créditos del alumno de ese ciclo. Una vez mostrado, dependiendo del crédito elegido, ( Ej: c4, c6, c9 ) me mostrase la nota en un textbox
Le paso el código que pongo para rellenar los dos primeros combos:
Private Sub cmbnotes_alumne_GotFocus()
notes = cmbnotes_alumne.Text
cicles = cmbnotes_cicle.Text
cmbnotes_alumne.Clear
cmbcodi_cicle.Clear
rs_a.MoveFirst
Do While Not rs_a.EOF
If notes <> rs_a!cognoms_nom Then
cmbnotes_alumne.AddItem rs_a!cognoms_nom
cmbnotes_cicle.AddItem rs_a!codi_cicle
End If
rs_a.MoveNext
Loop
cmbnotes_alumne.Text = notes
notes = cmbnotes_cicle.Text
cmbnotes_alumne.Clear
cmbnotes_cicle.Clear
rs_a.MoveFirst
Do While Not rs_a.EOF
If notes2 <> rs_a!cognoms_nom Then
cmbnotes_alumne.AddItem rs_a!cognoms_nom
cmbnotes_cicle.AddItem rs_a!codi_cicle
End If
rs_a.MoveNext
Loop
cmbnotes_alumne.Text = notes
cmbnotes_cicle.Text = cicles
End Sub
Se que debo hacer una consulta SQL pero no como ni dónde para así tener un indice del elemente seleccionado
Muchas gracias de antemano. Espero obtener respuesta suya ya que me urge porque es un proyecto final.
1 respuesta
Respuesta de emperador20
1