Access - cruce de horarios

   
Vista:

cruce de horarios

Publicado por alfredo gruposia400@gmail.com (1 intervención) el 14/01/2014 19:00:09
hola estoy desarrollando una base de datos en access para un control de horarios de materias y tengo que verificar que al momento de ingresar el horario verifique que no existe un cruce de horarios realice un boton que me ayuda a verificar el evento pero tengo error de sintaxis si me pudieras ayudar

Option Compare Database

Private Sub Comando10_Click()
Dim Sql As String
Dim CadenaI, CadenaF As Date
CadenaI = Me.FInicio & " " & Me.HInicio
CadenaF = Me.FFin & " " & Me.HFin
If DCount("*", "Eventos", "SalonEventos = '" & Me.Salones & "' and FechaFin> #" & CadenaI & "#") = False Then 'aqui es el error de la sintaxis
Sql = " INSERT INTO Eventos (FechaInicio,FechaFin,SalonEventos) VALUES (#" & CadenaI & "# , #" & CadenaF & "# , '" & Me.Salones & "');"
DoCmd.RunSQL Sql
Else
MsgBox "Este Salon esta ocupado para esta fecha"
Exit Sub
End If
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

cruce de horarios

Publicado por Lucas Felipe (59 intervenciones) el 17/01/2014 02:59:09
Hola , pruebe el campo fecha reemplazando el # por el '
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar