Boton

[Jexica]

Como ago en este codigo para que en lugar de solo Buscar por medio de Horario tambien me busque por Fecha:

Y como ago que el If que puse con el msgbox me funcione mas de una vez, ya que lo pruebo y no pongo hora ni fecha o solo no pongo uno de los dos y me marca el msgbox pero al usarlo de nuevo me manda un error. ¿Como lo resuelvo?
************************************************** *********
Private Sub cmdBuscar_Click()
rst.Open "Select * from Vespertino where Horario='" & Me.cmbHorario & "'", CBD, adOpenKeyset, adLockBatchOptimistic

If cmbHorario = "" and txtFecha = "" Then
MsgBox ("Ingrese Hora y Fecha. Gracias")
Else

If Not rst.EOF Then

txtProfesor.Text = rst("NombreMaestro")
cmbHorario.Text = rst("Horario")
txtMateria.Text = rst("Materia")
txtGrupo.Text = rst("Grupos")
txtEquipo.Text = rst("Equipo")
txtFecha.Text = rst("Fecha")
txtFolio.Text = rst("NoReunion")
cmbHorarioSalida.Text = rst("HorarioSalida")
rst.Close

Else
MsgBox "HORA LIBRE"
txtProfesor = ""
cmbHorario.Text = ""
txtMateria.Text = ""
txtGrupo.Text = ""
txtEquipo.Text = ""
txtFecha.Text = ""
txtFolio.Text = ""
cmbHorarioSalida.Text = ""
rst.Close
End If

End Sub
************************************************** **********

Si me dejan el codigo correjido PERFECTO.

[pkj]

No entiendo mucho, pero imagino que será algo así:

Código vb:

Private Sub cmdBuscar_Click()
 
  If cmbHorario = "" and txtFecha = "" Then
    MsgBox ("Ingrese Hora y/o Fecha. Gracias")
    Exit Sub
  End If
 
  If cmbHorario <> "" and txtFecha = "" Then
    rst.Open "Select * from Vespertino where Horario='" & Me.cmbHorario & "'", CBD, adOpenKeyset, adLockBatchOptimistic
    If Not rst.EOF Then
      txtProfesor.Text = rst("NombreMaestro")
      cmbHorario.Text = rst("Horario")
      txtMateria.Text = rst("Materia")
      txtGrupo.Text = rst("Grupos")
      txtEquipo.Text = rst("Equipo")
      txtFecha.Text = rst("Fecha")
      txtFolio.Text = rst("NoReunion")
      cmbHorarioSalida.Text = rst("HorarioSalida")
    End If
  ElseIf cmbHorario = "" and txtFecha <> "" Then
    rst.Open "Select * from Vespertino where Fecha='" & Me.txtFecha & "'", CBD, adOpenKeyset, adLockBatchOptimistic
    If Not rst.EOF Then
      txtProfesor.Text = rst("NombreMaestro")
      cmbHorario.Text = rst("Horario")
      txtMateria.Text = rst("Materia")
      txtGrupo.Text = rst("Grupos")
      txtEquipo.Text = rst("Equipo")
      txtFecha.Text = rst("Fecha")
      txtFolio.Text = rst("NoReunion")
      cmbHorarioSalida.Text = rst("HorarioSalida")
    Else
      MsgBox "HORA LIBRE"
      txtProfesor = ""
      cmbHorario.Text = ""
      txtMateria.Text = ""
      txtGrupo.Text = ""
      txtEquipo.Text = ""
      txtFecha.Text = ""
      txtFolio.Text = ""
      cmbHorarioSalida.Text = ""
    End If
  Else
    rst.Open "Select * from Vespertino where Horario='" & Me.cmbHorario & "' and Fecha='" & Me.txtFecha & "'" , CBD, adOpenKeyset, adLockBatchOptimistic
    If Not rst.EOF Then
      txtProfesor.Text = rst("NombreMaestro")
      cmbHorario.Text = rst("Horario")
      txtMateria.Text = rst("Materia")
      txtGrupo.Text = rst("Grupos")
      txtEquipo.Text = rst("Equipo")
      txtFecha.Text = rst("Fecha")
      txtFolio.Text = rst("NoReunion")
      cmbHorarioSalida.Text = rst("HorarioSalida")
    Else
      MsgBox "HORA LIBRE"
      txtProfesor = ""
      cmbHorario.Text = ""
      txtMateria.Text = ""
      txtGrupo.Text = ""
      txtEquipo.Text = ""
      txtFecha.Text = ""
      txtFolio.Text = ""
      cmbHorarioSalida.Text = ""
    End If
 
  End If
  rst.Close
 
End Sub
 

Te falla el msgbox posiblemente porque te falta un End If.

Estructura el código para poder notar cuando una sección no se ha cerrado correctamente.
Ejm: un Do sin Loop, un For sin Next, etc.

Saludos