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.
2 participantes
Bloquear campo de formulário após autenticar
jeanalencar- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1
Registrado : 09/01/2015
- Mensagem nº1
Bloquear campo de formulário após autenticar
maguim- Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 449
Registrado : 15/05/2013
- Mensagem nº2
Re: Bloquear campo de formulário após autenticar
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.
botão pra validão
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 ?!
![Surprised](https://2img.net/i/fa/i/smiles/icon_surprised.gif)
» [Resolvido]Bloquear edição do campo após inserir data atual
» Bloquear formulário para edição após salvar
» [Resolvido]Bloquear preenchimento de um campo do formulário quando o outro campo tiver valor não
» Atualizar campo do formulário após o cálculo ser efetuado em um outro campo não acoplado
» [Resolvido]Auto completar um campo em meu formulário apos verificação
» Bloquear formulário para edição após salvar
» [Resolvido]Bloquear preenchimento de um campo do formulário quando o outro campo tiver valor não
» Atualizar campo do formulário após o cálculo ser efetuado em um outro campo não acoplado
» [Resolvido]Auto completar um campo em meu formulário apos verificação
|
|