[Resolvido]Como mudar código

Olá bom dia a todos, como mudar o código de uma imputbox para colocar senha.

O que gostaria é que ao invez de abrir a imputbox, seja aberto um formulário para colocar a senha, o código é de um exemplo do mestre JPaulo.

segue:

Private Sub Command3_Click()
'By JPaulo ® Maximo Access - Outubro/2010
Dim strInput As String

strInput = InputBox("Entre com a senha para deletar o Registro com o ID Nº " & Me.ID & vbNewLine & "Cliente: " & Me.Cliente & vbNewLine & vbNewLine & "SENHA = 123", _
"Acesso Restrito")

If strInput = "" Or strInput = Empty Then
MsgBox "Não informou a senha - Cancelado...", vbCritical
Me.Cliente.SetFocus
Exit Sub
End If

If strInput = "123" Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox ("Registro excluído com Sucesso..."), vbInformation

Else

MsgBox ("Senha inválida..."), vbCritical

Exit Sub
End If
End Sub

Olá, se que fazer por formulario, terá que abandoná esse exemplo quase que por completo!

Me diga o que pretende fazer... Passando mais detalhes:

Ex: Quero que ao clicar no botão editar, ele abra o formulario frmSenha pedindo a senha... Ao digitar a senha e clicar no OK, que ele verifique a senha e autorize a edição.

Pois esse exemplo JPaulo e com Imputbox!

Oi Fabio, boa tarde é isso mesmo. gostaria de clicar no botão fosse aberto o formulario para inserir a senha, e se a senha estiver certa autorizar a exclusão.
Obrigada

Ola, construa o formulário... e poste aqui o exemplo para que possa fazer somente o codigo por favor...

Se possível poste somente as partes envolvidas!

crie um novo formulario e coloque um textbox renomei de acordo com seus dados
estou sem o acces instalado no momento mas da pra ter uma ideia...



strInput = Forms!NOMEDOSEUFORM.TXT_SENHA.TEXT



If strInput = "" Or strInput = Empty Then
MsgBox "Não informou a senha - Cancelado...", vbCritical
Me.Cliente.SetFocus
Exit Sub
End If

If strInput = "123" Then

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBox ("Registro excluído com Sucesso..."), vbInformation

Else

MsgBox ("Senha inválida..."), vbCritical

Exit Sub
End If
End Sub

Segue um exemplo:



https://www.maximoaccess.com/t29879-senha-de-liberacao-para-executar-exclusao-de-registros-em-formulario#207642
dropbox.com/s/gtisnpqiys07acm/Senha%20de%20Libera%C3%A7%C3%A3o.rar

Olá amigos, desculpe a demora para entrar mas vi as duas dicas que enviaram, gostaria de agradecer aos dois pela contribuição. Muito obrigada mesmo
Ficaram excelente. vou dar o tópico como resolvido até mais

Amandaalves

Grato pelo retorno amigo, até a próxima se Deus Quiser!