Turnos para estudiantes
Tengo un formulario en Microsoft Access para apartar turnos en un Sala de Informática, como hago para validar el dato entrante con el existente en la tabla y de paso me muestre un mensaje en caso de estar ocupado el turno y de igual manera un usuario no pueda usar el equipo dos veces el mismo día.
1 Respuesta
Respuesta de teroles
1
Veamos
Explícame un poco más como lo has montado hasta ahora, es decir, como almacenas los turnos, si es por usuario, si es por número, que es lo que quieres que muestre, etc
Cada problema tiene una o a veces más de una solución
Explícame un poco más como lo has montado hasta ahora, es decir, como almacenas los turnos, si es por usuario, si es por número, que es lo que quieres que muestre, etc
Cada problema tiene una o a veces más de una solución
Con base al siguiente código me gustaría saber como hago para llamar al dato (98632955, esta subrayado en el código) que se encuentra en una tabla llamada Buscar y no escribirlo directamente en el where.
Option Compare Database
Private Sub Cod_Est_Exit(Cancel As Integer)
If (Duplicado.Value = 2) Then
MsgBox "El usuario ya tiene turno resrvado para esa fecha"
Duplicado.Value = "0"
DeleteDuplicateTurnos
End If
End Sub
Sub DeleteDuplicateTurnos()
Dim dbsNorthwind As DAO.Database
Dim rstTurnos As DAO.Recordset
Dim rstBuscar As DAO.Recordset
Dim strSQL As String
Dim strName As String
Dim strBuscar As String
On Error GoTo ErrorHandler
Set dbsNorthwind = CurrentDb
strSQL = "SELECT * FROM Turnos WHERE Cod_Est=98632955"
Set rstTurnos = dbsNorthwind.OpenRecordset(strSQL, dbOpenDynaset)
If rstTurnos.EOF Then Exit Sub
strName = rstTurnos![Cod_Est]
rstTurnos.MoveNext
Do Until rstTurnos.EOF
If rstTurnos![Cod_Est] = strName Then
rstTurnos.Delete
Else
strName = rstTurnos![Cod_Est]
End If
rstTurnos.MoveNext
Loop
Exit Sub
ErrorHandler:
MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub
Option Compare Database
Private Sub Cod_Est_Exit(Cancel As Integer)
If (Duplicado.Value = 2) Then
MsgBox "El usuario ya tiene turno resrvado para esa fecha"
Duplicado.Value = "0"
DeleteDuplicateTurnos
End If
End Sub
Sub DeleteDuplicateTurnos()
Dim dbsNorthwind As DAO.Database
Dim rstTurnos As DAO.Recordset
Dim rstBuscar As DAO.Recordset
Dim strSQL As String
Dim strName As String
Dim strBuscar As String
On Error GoTo ErrorHandler
Set dbsNorthwind = CurrentDb
strSQL = "SELECT * FROM Turnos WHERE Cod_Est=98632955"
Set rstTurnos = dbsNorthwind.OpenRecordset(strSQL, dbOpenDynaset)
If rstTurnos.EOF Then Exit Sub
strName = rstTurnos![Cod_Est]
rstTurnos.MoveNext
Do Until rstTurnos.EOF
If rstTurnos![Cod_Est] = strName Then
rstTurnos.Delete
Else
strName = rstTurnos![Cod_Est]
End If
rstTurnos.MoveNext
Loop
Exit Sub
ErrorHandler:
MsgBox "Error #: " & Err.Number & vbCrLf & vbCrLf & Err.Description
End Sub
