Access: ¿Cómo puedo crear in ID al iniciar Access?

[abrahamvj]

Pues en realidad, y con sinceridad, no lo veo "tan" complicado.

Veamos:

- Primero create una tabla (tblusuario), con 2 campos: Usuario y Clave)

- Segundo, create un formulario (FrmInicio), con 2 textbox (txtusuario y txtclave) ,y un boton (CmdAceptar). Al txtclave, en su propiedad "mascara de entrada" colocale "contraseña". Luego, en el modulo del formulario, algo asi:


Private Sub CmdAceptar_Click()

On Error GoTo errorusuario

Dim strvalorclave$

strvalorclave$ = DLookup("clave", "tblusuario", "Usuario=txtusuario")

If strvalorclave$ = Txtclave Then
DoCmd.OpenForm "FrmMenu", acNormal, "", "", , acNormal
strusuario$ = Txtusuario
DoCmd.Close acForm, "FrmInicio"
Exit Sub
End If

errorusuario:
MsgBox "Error de usuario y/o clave"
Txtusuario = "": Txtclave = ""

End Sub

Ojo algunas cosas:

* FrmMenu es el nombre del formulario que se abre si la clave y el usuario son correctos
* Yo uso textbox, pero, cuestion de que uses un combobox que "jale" los usuarios de la tabla respectiva
* PAra que tu frormulario (FrmInicio) salga apenas abras el respectivo archivo de access, pues, en HERRAMIENTAS - INICIO , colocalo como el de inicio (Obvio!!!)

Abraham