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

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Qui 19 Jul 2018, 15:54


    Olá Pessoal
    Ja pesquisei no fórum e encontrei alguma coisa, mas não satisfez minha necessidade uma vez que preciso que seja bloqueado/desbloqueado mais de um campo.
    Caso o campo esteja em branco, permite inserir, caso já tenha dados, alteração só com permissão por uma senha (administrador)
    O amigo Gilberlanio postou um video sobre isso, previlegiando somente um campo, quem sabe o mesmo possa acrescentar mais esta duvida

    Grato
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4915
    Registrado : 20/04/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Silvio Seg 30 Jul 2018, 09:01

    Bom dia.

    Poste aqui o código que tens !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Seg 30 Jul 2018, 13:02

    Private Sub Comando428_Click()
    Dim x As Variant
    x = InputBox2("Entre com a senha...", "Senha", , "password")
    Me.DataRecebe.SetFocus
    If StrPtr(x) = 0 Then
    MsgBox "Você cancelou a entrada da senha...", vbInformation, "Aviso"
    Cancel = True 'impede a abertura do formulário

    Else
    If x = "1234" Then
    Me.DataRecebe.Locked = False
    ' MsgBox "Senha não confere...", vbInformation, "Aviso"
    Cancel = True 'impede a abertura do formulário
    End If
    End If
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4915
    Registrado : 20/04/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Silvio Seg 30 Jul 2018, 13:34

    Else
    If x = "1234" Then
    Me.DataRecebe.Locked = False
    Me.DataRecebe.Locked = False
    Me.campoqualqer.locked =False
    Me.campoqualqer1.locked =False
    Me.campoqualqer2.locked =False
    End If
    End If


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Seg 30 Jul 2018, 14:44

    Dúvida
    Se o campo não tiver preenchido é preciso deixar inserir, caso ja contenham dados só permitir alterar com senha.
    Os campos não podem ser carregado bloqueado uma vez que se tiver em branco pode ser preenchido normalmente
    como se da isso
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Assis Seg 30 Jul 2018, 16:02

    Boa tarde

    Testar no campo data.
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Ter 31 Jul 2018, 09:00

    Assis

    Esta apresentando alguma divergência nos comando em negrito

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Assis Ter 31 Jul 2018, 09:47

    Vanderlei

    Qual o seu Office ?

    Aqui no meu Office 2013 - 32 Bits não tem problema algum.

    Esperemos que alguém aqui no fórum teste e comente se tem problema

    Vamos aguardar

    Obrigado



    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Ter 31 Jul 2018, 16:07

    windows 10 - 64 bit
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4915
    Registrado : 20/04/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Silvio Qua 01 Ago 2018, 07:42

    Bom dia...

    Vanderlei, O Assis quer saber qual a tua versão do Office e não o sistema operacional !!!


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Qua 01 Ago 2018, 12:09

    Desculpa ai minha falta de atenção

    meu OFFICE é 2010
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Assis Qua 01 Ago 2018, 19:14

    Silvio

    Testou o meu exemplo da msg. nº 6

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Qui 02 Ago 2018, 12:22

    Testei deu erro nesta linha

    hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)

    na parte em negrito

    me perguntou qual era meu office

    meu office é 2010
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4915
    Registrado : 20/04/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Silvio Qui 02 Ago 2018, 13:34

    Boa tarde Assis, testei não. Estou enrolado aqui com um desenvolvimento de um sistema para cliente.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3665
    Registrado : 21/11/2016

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  DamascenoJr. Ter 02 Nov 2021, 10:04

    Vanderlei, conseguiu resolver?

    Aguardamos...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Vanderlei
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 20/01/2011

    [Resolvido]Alterar campos (mais de um) somente com permissão por senha Empty Re: [Resolvido]Alterar campos (mais de um) somente com permissão por senha

    Mensagem  Vanderlei Dom 07 Nov 2021, 07:34

    Resolvido

      Data/hora atual: Seg 04 Jul 2022, 09:11