PortalÍndiceFAQBuscarMiembrosGrupos de UsuariosChateaRegistrarseConectarse
Gracias a todos los que nos apoyan y nunca nos escriben Smile ...
Y a los que si también!!....
Conectarse
Nombre de Usuario:
Contraseña:
Entrar automáticamente en cada visita: 
:: Recuperar mi contraseña
Temas similares
Mejores posteadores
Diego (55)
 
Jexi (49)
 
Martello (49)
 
chn666 (30)
 
Serekos (11)
 
yunier_722 (7)
 
luysk8 (7)
 
Angelillo (5)
 
xulinho (4)
 
José Carlos (4)
 
Últimos temas
» Drivers de Audio de mi Tarjeta desaparecen al conectar tarjeta de audio externa
Jue Oct 24, 2013 4:19 pm por DjCarlosMix

» BIENVENID...
Miér Feb 27, 2013 5:36 pm por ale

» No logro introducir un Int en una matriz de byte
Vie Ene 25, 2013 6:59 pm por DanielC#

» INSERTAR TOTAL VENDIDO DURANTE EL DIA
Vie Oct 28, 2011 12:16 am por Jexi

» ALGUIEN ME PUEDE AYUDAR CON ESTE PROGRAMA EN C¿?
Miér Oct 26, 2011 8:35 pm por krojas

» contador del 00 al 99 con debug
Lun Abr 25, 2011 8:47 pm por ayon1969

» Libreria de audio para C# .NET
Jue Feb 24, 2011 12:37 pm por Tzero

» hola ... me ayudan porfavor Simulacion
Sáb Nov 13, 2010 8:23 pm por Jexi

» Windows XP , pasara a la segunda decada..??
Vie Ago 13, 2010 7:30 pm por Diego

Visitantes

casino Contador encuestas

Comparte | 
 

 Problema con Boton de Buscar

Ver el tema anterior Ver el tema siguiente Ir abajo 
AutorMensaje
Angelillo

avatar

Soy : Masculino
Mensajes : 5
Coeficiente Intelectual : 13
Llegué el : 12/06/2010
Edad : 23

MensajeTema: Problema con Boton de Buscar   Dom Jun 13, 2010 6:40 pm

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.

Gracias.
Volver arriba Ir abajo
Ver perfil de usuario
 
Problema con Boton de Buscar
Ver el tema anterior Ver el tema siguiente Volver arriba 
Página 1 de 1.
 Temas similares
-
» Problema con la barra de navegacion, el menu buscar...
» problema con macro para actualizar datos
» Problema con el cursor
» Problema Fpse
» Problema con el messenger

Permisos de este foro:No puedes responder a temas en este foro.
DEBUGGERS :: LENGUAJES DE PROGRAMACION :: Visual Basic 6.0-
Cambiar a: