Como hacer para verificar que la hora del turno este disponible

Cerrado
Denunciar
Message postés
3
Date d'inscription
sábado, 23 de marzo de 2013
Estatus
Miembro
Última intervención
viernes, 10 de mayo de 2013
-
Hola, estoy haciendo un programita para emitir turnos, y quiero hacer que cuando la secretaria elija la hora del turno el sistema verifique que este disponible esa hora en la fecha que eligió. Intente hacer de esta manera pero me tira este error no coinciden los tipos de datos en la expresión de criterios. Este es el codigo que utilice

La hora la selecciona de un combo que en este caso se llama combo1 y la fecha de un calendar y lo muestra en una caja de texto

a = Combo1.Text
b = fecha.Text
Dataturnos.Recordset.MoveFirst 'Se posiciona en el 1er registro
Dataturnos.Recordset.FindFirst "[Fecha] = '" & Trim$(b) & " ' " 'busca
If Not Dataturno.Recordset.NoMatch Then 'verifica si encontró el cliente
Dataturnos.Recordset.MoveFirst 'Se posiciona en el 1er registro
Dataturnos.Recordset.FindFirst "[Hora] = '" & Trim$(a) & " ' " 'busca
If Dataturnos.Recordset.Fields("Hora") = a Then
MsgBox "LA HORA NO ESTA DISPONIBLE"
Exit Sub
End If