Access - Formulario de login en Access

Bueno quiero hacer un formulario de login en Access teniendo dos cuadros de texto:

*Usuario
*Contraseña

y Dos botones:

*Aceptar
*Cancelar

Tengo una tabla llamado Usuarios con dos campos: Usuario y Password

y quiero que el formulario al poner los datos(usuario y contraseña) y dar aceptar abra un otro verifique si son correctos el usuario y la contraseña si no son correctos poner un mensagge que diga que son incorrectos y si son verdaderos que habra otro formulario llamado TheShrys y cierre el de login...
gracias y Saludos

Así lo hago yo:
Private Sub BtnAceptar_Click()
Dim ACCEDER As Variant
Dim GP2PLdb As Database
Dim MI_RS As Recordset
Set GP2PLdb = DBEngine.Workspaces(0).Databases(0)
Set MI_RS = GP2PLdb.OpenRecordset("Usuarios")
ACCEDER = False
MI_RS.MoveFirst
Do While Not MI_RS.EOF
If MI_RS("Usuario") = Me.USUARIOS And MI_RS("Clave") = Me.CLAVEUSUARIO Then
ACCEDER = True
Exit Do
End If
MI_RS.MoveNext
Loop
MI_RS.Close
If ACCEDER Then
Usuario = Me.USUARIOS
CLAVE = Me.CLAVEUSUARIO
DoCmd.Close
DoCmd.OpenForm "Principal"
Else
callfunc = MsgBox("ACCESO DENEGADO" & vbCrLf & "USUARIO INEXISTENTE O CLAVE INCORRECTA", vbCritical, "")
End If
End Sub

Lo podrias explicar paso a paso.... :p
esq no lo entiendo muy bien...

Mira lo quise hacer sin hacer una tabla y hacer atravez de puro codigo e hice algo asi...

If (txtUsuario = "Emejia") Then
If (txtContraseña = "Emejia2012") Then
DoCmd.Close
DoCmd.OpenForm "Entrada"
Else
If (txtUsuario = "Matero") Then
If (txtContraseña = "Matero2012") Then
DoCmd.Close
DoCmd.OpenForm "Entrada"
Else
If (txtUsuario = "Agalaviz") Then
If (txtContraseña = "Agalaviz2012") Then
DoCmd.Close
DoCmd.OpenForm "Entrada"
Else
MsgBox ("El usuario o la contraseña son incorrectas...")
End If
End If
End If
End If
End If
End If

Pero el sistema al ingresar el usuario y la contraseña y dar aceptar no pasa nada...
q podra estar mal o en que estoy mal....xD

yo tambien estoy liado con un formulario parecido para que verifique las entradas de los usuarios pero me gustaria que dependiendo de los usuarios que entraran, se ocultaran todos los objetos de access para que no se pudieran modificar nada por ciertos usuarios. Es posible? Gracias.

Lo que estás haciendo tiene el inconveniente de que cada par usuairo-contraseña lo tienes que introducir en el código y 2PL te aconseja hacerlo en una tabla o recordset.
La instrucción la estás haciendo mal. Debe ser:

If condición Then
[instrucciones]

[ElseIf condición-n Then
[instrucciones_elseif] ...

[Else
[instrucciones_else]]

End If

He probado el código de 2PL y no me funcionaba bien, por lo que he introducido lo siguiente:
Set GP2PLdb = currentdb()
y
If ACCEDER = True Then
Usuario = Me.USUARIOS
CLAVE = Me.CLAVEUSUARIO

Podrian enviarme un ejemplo claro de esto de favor

Hola.

quisiera que me ayudaras a generar un login, es urgente y ya vi muchos tutoriales pero ninguno me sale :(

Hola!
Si quieres puedes echarle un vistazo a este ejemplo. Está explicado paso a paso:
http://neckkito.eu5.org/index.php?option=com_content&view=article&id=55:formulario-de-accesso-con-password&catid=40:ejemplos-de-seguridad&Itemid=65

Suerte!

Neckkito (... http://neckkito.eu5.org ...)

Buen ejemplo... =D

Hola Nickkito,
Lo primero darte las gracias por tus aportaciones que me son de mucha utilidad. Gracias!
Quiero preguntarte por la aportación que haces sobre la contraseña en el apartado de seguridad. Me da unerror y no se que hacer. En la línea 44 está este código DoCmd.CloseacForm , Me.Name y no me deja avanzar. El error que me aparece es el siguiente no se encontró el método o el dato miembro
¿Cómo puedo solucionarlo?
Un saludo

Si el error esta en esta línea:
(copiada de forma fiel)
En la línea 44 está este código DoCmd.CloseacForm , Me.Name ....

Re-escríbela de forma correcta:
DoCmd.Close <== lo que se ejecutara (cerrar algo)
acForm <== El tipo de objeto (un formulario)
, <== el separador de parámetros
Me.Name <== implica al formulario en que se ejecuta el comando (si se llamase 'entradas' tomara ese nombre, si se llamase 'salidas' ídem y si se llama 'contraseña' ... mas de lo mismo, lo que lo convierte en un dato concreto y no uno abstracto
Corregido quedaría asi:
DoCmd.Close acForm, Me.Name

Je, je... Gracias Enrique por responder en mi nombre. Así tengo que trabajar menos ;-)

Saludos,

Neckkito

Cuando lo consideres adecuado, simplemente la solapas y punto ;-)

Gracias Enrique!
Y por supuesto Neckkito

Buenas noches me sale el siguiente error.

Por favor me podrian ayudar.

Gracias,.

Hola!

Tienes que unir la línea que te marca con la siguiente, así:

msgbox "Bla, bla", vbInformation, "AVISO"

Saludos,

Neckkito

Buenas Tardes a todos, tengo un problema con el codigo, al darle al boton aceptar me muestra un error en el codigo:

-------
SE HA PRODUCIDO UN ERROR "13" EN TIEMPO DE EJECUCIÓN

NO COINCIDEN LOS TIPOS
---------

El depurador me lleva hasta esta linea de codigo y no deja seguir,

---------------------------------
End If
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("TPass", dbOpenSnapshot)
If rst.RecordCount = 0 Then
MsgBox "NO EXISTEN USUARIOS", vbInformation, "AVISO"
GoTo Salida
End If
----------------------------------------------


Gracias a todos,

Hola:

Si tienes A2007 o superior intenta cambiar la línea

set rst as recordset

por

set rst as dao.recordset

A ver si así se arregla.

Saludos,

Neckkito

Arreglado, muchas gracias Neckkito

Le hice el cambio que propusiste y funcionó, aunque la version que utilizo es Access 2000, por lo cual, para versiones inferiores a 2007 tambien funciona.

Gracias nuevamente,