de que nivel buscas????? basico????? medio????? o avanzado?????
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic mensaje As String
Private Sub Combo1_Click()
Command1.Enabled = Not Combo1.Text = ""
End Sub
Private Sub Command1_Click()
If Form11.mensaje = "Escuela" Then
Form11.Adodc1.RecordSource = "Select *from Pasante Where " & Label1.Caption & "= '" & Combo1.Text & "'"
Else
Form11.Adodc1.RecordSource = "Select *from Pasante Where " & Label1.Caption & "= '" & Text1.Text & "'"
End If
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
Form2.Show
End Sub
Private Sub Command3_Click()
Form11.Adodc1.RecordSource = "Select *from Pasante"
Adodc1.Refresh
DataGrid1.Refresh
End Sub
Private Sub Text1_Change()
Command1.Enabled = Not Text1.Text = ""
End Sub