Turno estudiante
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 yescuder
1
Debes crear una función o procedimiento dentro del código del formulario que se ejecute cuando salgan del campo y que haga lo que necesites.
Con base al siguiente código como hago para para llamar un dato (98632955, subrayado en el código) desde una tabla llamada buscar y no colocar el dato directamente en la parte del 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
