Control
Private Sub Combo1_Click()
MODALIDADV = Left(Combo1.Text, 3)
jornadav = Combo2.Text
cursov = Left(Combo5.Text, 3)
seccionv= Combo6.Text
Vmod = 1
carga_seccion
carga_alumno
End Sub
Private Sub Combo2_Click()
MODALIDADV = Left(Combo1.Text, 3)
jornadav = Combo2.Text
cursov = Left(Combo5.Text, 3)
seccionv =Combo6.Text
vjor = 1
carga_seccion
carga_alumno
End Sub
Private Sub Combo3_Click()
Label2.Caption = Mid(Combo3.Text, 5, 36)
End Sub
Private Sub Combo5_Click()
MODALIDADV = Left(Combo1.Text,3)
jornadav = Combo2.Text
cursov = Left(Combo5.Text, 3)
seccionv = Combo6.Text
vcur = 1
carga_seccion
carga_alumno
End Sub
Private Sub Combo6_Click()
MODALIDADV = Left(Combo1.Text, 3)jornadav = Combo2.Text
cursov = Left(Combo5.Text, 3)
seccionv = Combo6.Text
vsec = 1
carga_alumno
End Sub
Private Sub Command1_Click()
carga_alumno
End Sub
Private Sub Command2_Click()'Set rsalumno = Con.OpenResultset("SELECT *FROM alumno ORDER BY circulo,sexo,nombre", rdOpenDynamic)
Set rsalumno = Con.OpenResultset("SELECT *FROM matricula ORDER BY circulo,sexo,nombre",rdOpenDynamic)
rsalumno.MoveFirst
Do While rsalumno.EOF = False
If IsNull(rsalumno!circulo) Then
Rem If (rsalumno!circulo) = "" Then
X = X + 1
Label3.Caption = X
c99 ="0000"
rnev = (rsalumno!rne)
'grabar = "update alumno set circulo ='" & c99 & "' where rne = '" & rnev & "' "
grabar = "update matricula set circulo ='"& c99 & "' where rne = '" & rnev & "' "
Con.Execute (grabar)
Con.CommitTrans
End If
rsalumno.MoveNext
Loop
End Sub
Private Sub Form_Activate()Dim ZZ As rdoResultset
Set ZZ = Con.OpenResultset("SELECT *FROM modalidad ORDER BY descripcion", rdOpenDynamic)
ZZ.MoveFirst
Do While ZZ.EOF = False
Combo1.AddItem (ZZ!codigo) + (" ") +...
Regístrate para leer el documento completo.