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


5 participantes

    [Resolvido]Senha no Menu de Controle

    avatar
    andreweigert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/02/2011

    [Resolvido]Senha no Menu de Controle Empty [Resolvido]Senha no Menu de Controle

    Mensagem  andreweigert 24/2/2011, 12:42

    Olá,

    Sou iniciante em accsess e montei um banco de dados na versão 2007 para minha escola, utilizando as ferramentas básicas a disposição no programa e está funcionando bem legal. Meu problema é que gostaria que alguns relatórios financeiros não ficassem com acesso total. Então pensei em colocar uma senha simples de 4 ou 6 digitos no próprio botão do menu de controle para restringir o acesso a esses dados. Vi que nos fóruns existem diversas explicações mas não estou conseguindo inserir uma senha pois não conheço nada de programação e não sei como inserir os códigos. Gostaria de saber se alguém poderia me ajudar com um procedimento fácil para realizar esta tarefa. Agradeço desde já a atenção despendida.

    Grande abraço,

    André
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  vieirasoft 24/2/2011, 12:49

    Bom dia

    Você quer que ao clicar no botão, verifique a senha e entre na aplicação, é isso?
    avatar
    andreweigert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/02/2011

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  andreweigert 24/2/2011, 13:13

    È isso mesmo.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  vieirasoft 24/2/2011, 13:48

    Então no evento click()

    If txtpassword="xxxxxxxxxxxxxx" Then
    DoCmd.OpenForm"xxxxxxxxxxxx"
    Else
    Call MsgBox("A password inserida não é válida",vbCVritical,"Aviso")
    End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  JPaulo 24/2/2011, 13:53

    Em vez de ser no botão, coloque este código no evento VBA ao abrir no seu relatorio ou relatorios...

    Private Sub Report_Open(Cancel As Integer)
    'By JPaulo ® Maximo Access
    Dim strResposta As String
    strResposta = InputBox("Entre com a senha...", "Senha", _
    "", 2000, 1000)
    Select Case strResposta
    Case Is = ""
    DoCmd.CancelEvent
    Case Is = "jpaulo"
    Exit Sub
    Case Else
    MsgBox "Senha incorreta...", vbCritical
    DoCmd.CancelEvent
    End Select
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Senha no Menu de Controle Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Senha no Menu de Controle Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Senha no Menu de Controle Folder_announce_new Instruções SQL como utilizar...
    avatar
    andreweigert
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/02/2011

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  andreweigert 24/2/2011, 14:30

    Olá pessoal,

    Obrigado pela atenção mas não consegui inserir os códigos que os srs. me enviaram e fazer funcionar.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  vieirasoft 24/2/2011, 15:14

    Então é simples

    1- o que enviei....No evento clique do botão que referiu


    2- O que O Mestre enviou...No evento ao abrir do seu Relatório.

    Basta colocar lá o código escolhido e que melhor se adapte às suas necessidades
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  Assis 24/2/2011, 23:35

    Boa noite

    Só é pena a máscara de introdução não ser "*******"


    .................................................................................
    *** Só sei que nada sei ***
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  criquio 24/2/2011, 23:59

    Assis, aqui no forum tem um exemplo que coloca máscar na inputbox.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  Assis 27/2/2011, 15:24

    Olá Criquio

    Resolvi assim para a máscara ser " ******** "

    Adaptado de um exemplo do Mestre JPaulo

    Private Sub Form_Open(Cancel As Integer)
    'Créditos JPaulo
    Dim strResposta As String
    strResposta = InputBoxDK(" © Insira a Senha © ", "© Password ©", "© Password ©")
    Select Case strResposta
    Case Is = ""
    DoCmd.CancelEvent
    Case Is = "jpaulo"
    Exit Sub
    Case Else
    MsgBox "Senha Incorreta...", vbCritical
    DoCmd.CancelEvent
    End Select
    End Sub


    Colar num Modulo Novo

    Option Compare Database
    Option Explicit

    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


    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


    .................................................................................
    *** Só sei que nada sei ***

    Conteúdo patrocinado


    [Resolvido]Senha no Menu de Controle Empty Re: [Resolvido]Senha no Menu de Controle

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:25