MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

    Abrindo um formulário do Access 2010 com senha.

    avatar
    Marcos Brandão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 26/07/2013

    Abrindo um formulário do Access 2010 com senha. Empty Abrindo um formulário do Access 2010 com senha.

    Mensagem  Marcos Brandão 30/7/2013, 03:03

    Oi gente. Tudo bem?

    Preciso muito de uma informação.

    Como faço para abrir um formulário do Access tendo que digitar uma senha?

    Uso o Access 2010 64bits.

    Alguém poderia me ajudar?
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Abrindo um formulário do Access 2010 com senha. Empty Re: Abrindo um formulário do Access 2010 com senha.

    Mensagem  Cláudio Machado 30/7/2013, 13:03

    Bom dia.
    Seja mais específico.
    Como você abre este form? Ao Clicar em um botão?
    A senha para abrir este form será padrão, ou mudará de acordo com usuário?
    É um form de login em seu sistema?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Abrindo um formulário do Access 2010 com senha. 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    Marcos Brandão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 26/07/2013

    Abrindo um formulário do Access 2010 com senha. Empty Re: Abrindo um formulário do Access 2010 com senha.

    Mensagem  Marcos Brandão 30/7/2013, 13:22

    Pode funcionar da seguinte forma:

    Ao clicar em um botão para abrir um formulário, ele peça uma senha, o formulário só vai abrir se digitar a senha correta.

    Tenho que ter a possibilidade de aplicar senhas diferentes para outros formulários.

    Seria assim +-.
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    Abrindo um formulário do Access 2010 com senha. Empty Re: Abrindo um formulário do Access 2010 com senha.

    Mensagem  Lupércio 30/7/2013, 14:04

    Bom dia amigos!
    Crie um fomulário onde você colocara os botões para abrir os demais formulários! "Painel".

    NO CLICK DO BOTÃO DEFINA:

    UsrResposta = InputBoxDK("Senha do administrador", "Senha requerida")
    'A mensagem acima entre os parênteses pode ser alterada
    If UsrResposta = "4321" Then 'este valor entre parenteses é a senha
    DoCmd.OpenForm "Frm_Teste" 'este valor entre parenteses é o nome do formulário protegido
    DoCmd.Close acForm, "Painel"
    Else
    MsgBox "Senha incorreta", vbCritical, "Senha incorreta"
    'aqui a mensagem de senha incorreta. Pode alterar
    End If






    EM UM MÓDULO NOVO COLE:

    '////////////////////////////////////////////////////////////////////
    'Password masked inputbox
    'Allows you to hide characters entered in a VBA Inputbox.
    '
    'Code written by Daniel Klann
    'http://www.danielklann.com/
    'March 2003

    '// Kindly permitted to be amended
    '// Amended by Ivan F Moala
    '// http://www.xcelfiles.com
    '// April 2003
    '// Works for Xl2000+ due the AddressOf Operator
    '////////////////////////////////////////////////////////////////////

    'API functions to be used
    Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
    ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

    Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" ( _
    ByVal lpModuleName As String) As Long

    Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _
    ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) _
    As Long

    Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

    Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" ( _
    ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _
    ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

    Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long

    'Constants to be used in our API functions
    Private Const EM_SETPASSWORDCHAR = &HCC
    Private Const WH_CBT = 5
    Private Const HCBT_ACTIVATE = 5
    Private Const HC_ACTION = 0

    Private hHook As Long

    Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    Dim RetVal
    Dim strClassName As String, lngBuffer As Long

    If lngCode < HC_ACTION Then
    NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam)
    Exit Function
    End If

    strClassName = String$(256, " ")
    lngBuffer = 255

    If lngCode = HCBT_ACTIVATE Then 'A window has been activated
    RetVal = GetClassName(wParam, strClassName, lngBuffer)
    If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox
    'This changes the edit control so that it display the password character *.
    'You can change the Asc("*") as you please.
    SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0
    End If
    End If

    'This line will ensure that any other hooks that may be in place are
    'called correctly.
    CallNextHookEx hHook, lngCode, wParam, lParam

    End Function

    '// Make it public = avail to ALL Modules
    '// Lets simulate the VBA Input Function
    Public Function InputBoxDK(Prompt As String, Optional Title As String, Optional Default As String, _
    Optional Xpos As Long, Optional Ypos As Long, Optional Helpfile As String, _
    Optional Context As Long) As String

    Dim lngModHwnd As Long, lngThreadID As Long

    '// Lets handle any Errors JIC! due to HookProc> App hang!
    On Error GoTo ExitProperly
    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
    If Xpos Then
    InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context)
    Else
    InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context)
    End If

    ExitProperly:
    UnhookWindowsHookEx hHook

    End Function



    avatar
    Marcos Brandão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 26/07/2013

    Abrindo um formulário do Access 2010 com senha. Empty Limite de cadastramento no Access

    Mensagem  Marcos Brandão 30/7/2013, 15:33

    Pessoal, me tire uma dúvida.

    Qual o limite de registros no Access?

    Um analista disse para mim que é até 10.000 registros, depois disso ele começa a apresentar alguns problemas.

    Isso é verdade?
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    Abrindo um formulário do Access 2010 com senha. Empty Re: Abrindo um formulário do Access 2010 com senha.

    Mensagem  Fernando Bueno 30/7/2013, 15:52

    Marcos bom dia.

    Veja este artigo...

    http://office.microsoft.com/pt-br/access-help/especificacoes-do-access-2007-HA010030739.aspx


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Abrindo um formulário do Access 2010 com senha. 16rzeq

    Conteúdo patrocinado


    Abrindo um formulário do Access 2010 com senha. Empty Re: Abrindo um formulário do Access 2010 com senha.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 09:01