Validacion con SQL
Publicado por Luis (15 intervenciones) el 06/03/2019 22:26:58
Hola Buen dia Desarrolladores, necesito mucho de su ayuda estoy tratando de validar el acceso de un empleado el cual solo puede acceder una vez al dia a un sitio restringido, pero no logro hacer que el codigo de validacion funcione correctamente en el formulario, tengo una tabla llamada Registro con los campos Nombre y Fecha, me pueden ayudar ????
Ayuda!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Validacion_Click()
If Me.Buscador.Value = "" Then
MsgBox "Desliza tu tarjeta"End If
Dim RS As Recordset
Set RS = CurrentDb.OpenRecordset("SELECT Usuario FROM Registro WHERE Usuario =' " & Me.Buscador & " ' AND Registro = # " & Me.Auto_Date & " # ")
If RS.EOF Then MsgBox "Bienvenido"Else
MsgBox "lo sentimos ya no tienes acceso"Set RS = NothingEnd If
End Sub
Ayuda!
Valora esta pregunta
0
