MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Bloquear campo de formulário após autenticar

    Compartilhe

    jeanalencar
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 09/01/2015

    Bloquear campo de formulário após autenticar

    Mensagem  jeanalencar em Qua 19 Jul 2017, 04:59

    Preciso Bloquear campo de formulário após autenticar com determinado usuário e como criar essa autenticação, se houver algum exemplo agradeço.

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 205
    Registrado : 15/05/2013

    Re: Bloquear campo de formulário após autenticar

    Mensagem  maguim em Ter 25 Jul 2017, 14:23

    ve se isso te ajuda !

    faz a validação se tiver algo no textbox caso não deixa aberto pra validação constituído por 2 form

    form 1 (mascara de dados)
    Form 2 (se nao tiver entao botao de validação)


    .enanbled fica impossibilitado de clicar
    .block para não sobre escrever em textbox

    em baixo tem um dinâmica de validação.




    Código:
    If Not IsNull(Forms!PAINEL!data3 = Me.DT_INICIO_ANaLISE_CLaUSULA) = True Then
    Forms!PAINEL!data3.Enabled = False
    Forms!PAINEL!data3.Visible = True
    Forms!PAINEL!validarnome3.Enabled = True
    Forms!PAINEL!validarnome3.Visible = True
    Forms!PAINEL!Comando2.Enabled = False
    Forms!PAINEL!Rótulo26.Visible = False
    Forms!PAINEL!Comando2.Visible = True
    Else
    Forms!PAINEL!data3.Enabled = True
    Forms!PAINEL!data3.Visible = False
    Forms!PAINEL!validarnome3.Enabled = False
    Forms!PAINEL!validarnome3.Visible = False
    Forms!PAINEL!Comando2.Enabled = True
    End If



    botão pra validão

    Código:
    If IsNull(Me.data1) Then
         If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
            Me.data1.Visible = True
            Me.data1 = Date
            Me.validarnome1.Visible = True
            Me.validarnome1 = getUsuarioAtual()
            Me.data1.Enabled = False
            Me.validarnome1.Enabled = False
            Me.Comando0.Enabled = False
            Me.Comando1.Visible = True
            Me.Rótulo25.Visible = True
              
            Dim rs As Recordset
            Set rs = CurrentDb.OpenRecordset("select numeroprest, DT_ENTRADA_CONTRATO_PARA_EQUIPE from planilha1 where numeroprest = " & Me.nmprest & "")
            rs.Edit
            rs("DT_ENTRADA_CONTRATO_PARA_EQUIPE") = Me.data1
            rs.Update
            rs.Close
            
          Else
            Me.data1 = Empty
            MsgBox "Informação Cancelada !!!", vbInformation, "Cancel"

    End If
    End If
        
    End Sub


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Ter 21 Nov 2017, 17:33