Bom dia,
É possivel criar uma senha simples para abrir uma tabela a partir de um botão no Formulario.
Procurei no Forum e não consegui compreender nenhuma.
Atenciosamente ,
Rudi

Boas...

Porque não faz um formulário sobre a tabela a abrir e noutro formulário coloca um botão e uma caixa de texto, depois faz um IF... Then... Else... para testar a senha, caso esteja correcta abre abre, caso contrário da uma mensagem


Espero ter ajudado

Amigos Bom dia,

Sempre gosto de mostrar aqui no FORUM as situações que foram resolvidas com a grande ajuda de vcs. Agradeço a todos que contribuiram para o exito.
Está funcionando perfeitamente, é bem simples, assim que eu queria:
ption Compare Database
Option Explicit

'----------------------------------------------------------------------
'Senha
'----------------------------------------------------------------------
Private Const SENHA As String = "CADASTRAR"

Private Sub Cadastrar_Valor_Click()
On Error GoTo Err_Cadastrar_Valor_Click

Dim stDocName As String

If UCase(InputBox("Digite a Senha:", "Senha")) = SENHA Then

stDocName = "Cadastrar(Ação-Item-Valor)"
DoCmd.RunMacro stDocName
Else
MsgBox "Senha incorreta", vbInformation, "Senha"
End If

Exit_Cadastrar_Valor_Click:
Exit Sub

Err_Cadastrar_Valor_Click:
MsgBox Err.Description
Resume Exit_Cadastrar_Valor_Click

End Sub

Private Sub cadastrar_ações_Click()
Dim stDocName As String

If UCase(InputBox("Digite a Senha:", "Senha")) = SENHA Then

stDocName = "CADASTRAR AÇÕES"
DoCmd.RunMacro stDocName
Else
MsgBox "Senha incorreta", vbInformation, "Senha"
End If

End Sub

'----------------------------------------------------------------------

Um grande abraço a todos e continuem assim, para o nosso bem.
Até