
cruce de horarios
Publicado por alfredo (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
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


0