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


2 participantes

    Adicionar prodecimento a tecla

    avatar
    emame
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 63
    Registrado : 05/11/2011

    Adicionar prodecimento a tecla Empty Adicionar prodecimento a tecla

    Mensagem  emame 12/3/2023, 11:24

    Olá a todos,

    tenho uma base de dados que necessito que abra um formulário com os campos todos bloqueados e que ao clicar uma determinada tecla (F4 ou F5-ou outra que indicarmos) desbloqueie todos os campos desse formulário.

    Consegui colocar em funcionamento mas tenho de utilizar um botão. A minha ideia passava por eliminar o botão e ficar só com a tecla para desactivar, mas não estou a conseguir faze-lo...

    Estou a usar o seguinte código:

    Para abrir bloqueado:

    Private Sub Form_Current()
    Dim ctl As Control
    Dim StrName As String

    For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
    StrName = ctl.Name
    Me(StrName).Enabled = False
    End Select
    Next ctl
    End Sub

    Para desbloquear:
    Private Sub Comando619_Click()
    Dim ctl As Control
    Dim StrName As String

    For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
    StrName = ctl.Name
    Me(StrName).Enabled = True
    End Select
    Next ctl
    End Sub

    Obrigado a todos.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Adicionar prodecimento a tecla Empty Re: Adicionar prodecimento a tecla

    Mensagem  Silvio 13/3/2023, 11:11

    Boas....


    Coloque essa função ( um para bloquear e outro para desbloquear ) em um modulo e de lhe um nome de fácil identificação.


    Depois..

    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode

            Case vbKeyF6
            Call bt_salvar_Click
       
            Case vbKeyF3
            Call bt_localizaOS_Click
       
            Case vbKeyF4
            Call bt_imprimir_Click
       
            Case vbKeyF5
            Call bt_gerarPDF_Click
           
            Case vbKeyF8
            Call bt_excluir_Click
           
            Case vbKeyF1
            Call bt_fechar_Click
           
           
            Case Else
            End Select
    End Sub


    É só falar a chamada do modulo através do código acima


    .................................................................................
    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."

      Data/hora atual: 13/4/2024, 10:53