Private Sub NombreIngresado_AfterUpdate()
Dim db As Database
Dim rs As Recordset
Dim nombreIngresado As String
Dim encontrado As Boolean
' Obtén el valor ingresado en el campo
nombreIngresado = Me.NombreIngresado.Value
' Abre la base de datos y la consulta de usuarios
Set db = CurrentDb
Set rs = db.OpenRecordset("ConsultaNombresUsuarios")
' Compara el nombre ingresado con los nombres de usuarios de la consulta
encontrado = False
rs.MoveFirst
Do While Not rs.EOF
If rs!NombreUsuario = nombreIngresado Then
encontrado = True
Exit Do
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
' Si no se encontró el nombre, muestra un mensaje de error
If Not encontrado Then
MsgBox "Nombre de usuario no válido. Verifique e intente de nuevo.", vbExclamation, "Error"
Me.NombreIngresado.Value = ""
Me.NombreIngresado.SetFocus
End If
Set db = Nothing
End Sub