Password en formulario
Buenas noches-
Discuñpa te moleste pero deseo que un formulario me habrá otro formulario en donde me pida password y usuario para mostrármelo lo que me falta es el código en visual basic para el botón aceptar porque el código que le pongo me menda un error de compilación en el findfirst:
Private Sub Comando4_Click()
On Error GoTo Err_Comando4_Click
Dim registro As Recordset
Set registro = CurrentDb.openrecordset("contraseña")
registro.FindFirst "usuario='" & usuario.Value & "'"
If registro.nomacth Then
MsgBox "El nombre de usuario no existe"
ElseIf registro!clave = clave.Value Then
DoCmd.OpenForm "Formulario principal"
DoCmd.Close acForm, "Contraseña"
Else
MsgBox "La contraseña no es correcta"
End If
registro.Close
Set registro = Nothing
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "utilidades"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando4_Click:
Exit Sub
Err_Comando4_Click:
MsgBox Err.Description
Resume Exit_Comando4_Click
End Sub
Mucho te agradezco me apoyes
Gracias
Discuñpa te moleste pero deseo que un formulario me habrá otro formulario en donde me pida password y usuario para mostrármelo lo que me falta es el código en visual basic para el botón aceptar porque el código que le pongo me menda un error de compilación en el findfirst:
Private Sub Comando4_Click()
On Error GoTo Err_Comando4_Click
Dim registro As Recordset
Set registro = CurrentDb.openrecordset("contraseña")
registro.FindFirst "usuario='" & usuario.Value & "'"
If registro.nomacth Then
MsgBox "El nombre de usuario no existe"
ElseIf registro!clave = clave.Value Then
DoCmd.OpenForm "Formulario principal"
DoCmd.Close acForm, "Contraseña"
Else
MsgBox "La contraseña no es correcta"
End If
registro.Close
Set registro = Nothing
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "utilidades"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando4_Click:
Exit Sub
Err_Comando4_Click:
MsgBox Err.Description
Resume Exit_Comando4_Click
End Sub
Mucho te agradezco me apoyes
Gracias
1 respuesta
Respuesta de andresmaga
1