Olá! Tenho um form principal no access que possui diversos botões, para acessar os botões é necessário digitar uma senha. Eu usei o seguinte código para fazer isso:
Código:
Private Sub Command25_Click()
Dim strRet As String
strRet = InputBox("Enter the password to access Updates", "Password")
If strRet = "1234" Then ' 1234 é sua senha
'Senha correta libera o formulário
DoCmd.OpenForm "Update"
Else
'Senha incorreta fecha a BD
MsgBox "Incorrect Password", vbInformation, "Click OK to continue"
End If
Ele funciona perfeitamente, porém quando salvo o banco como um arquivo executável .accde, simplismente não funciona mais.
Alguém pode me ajudar a resolver este problema?
Código:
Private Sub Command25_Click()
Dim strRet As String
strRet = InputBox("Enter the password to access Updates", "Password")
If strRet = "1234" Then ' 1234 é sua senha
'Senha correta libera o formulário
DoCmd.OpenForm "Update"
Else
'Senha incorreta fecha a BD
MsgBox "Incorrect Password", vbInformation, "Click OK to continue"
End If
Ele funciona perfeitamente, porém quando salvo o banco como um arquivo executável .accde, simplismente não funciona mais.
Alguém pode me ajudar a resolver este problema?