[Resolvido]codificar várias combobox

bom dia.
Existe uma codificacao para combo box que impede ao usuário que digite acidentalmente qualquer coisa nela.
Seria utilizando-se de:
Private Sub CboTESTE1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Tenho um form com várias combo. Em vez de programar uma a uma gostaria de criar uma função que englobasse todas essas combos.
Para tentar facilitar as nomeei como sendo CBOTESTE1 até a COMBOTESTE 20.
Infelizmente não tenho conhecimento suficiente para montar uma função.
Alguém poderia me auxiliar?
obrigado.

Olá.
Não acredito que exista esta opção, afinal de contas a Combo serve também para busca.

Mas se quiser pode incluir este código nas propriedades da combo em "Se não estiver na lista".

Código:


Response = acDataErrContinue  ' Inibe msg padrão do Access.

  If MsgBox("Cliente não cadastrado:  '" & NewData & "'" & vbCrLf & "Deseja Cadastrar?", 32 + vbYesNo, "Informando") = 6 Then

  DoCmd.OpenForm "CLIENTES", , , , acFormAdd, acDialog, NewData

  ' A execução deste código fica interrompida aqui até o fechamento do formulário Cadastro de Clientes.

        descricao = UCase(NewData) ' Converte o texto para maiúsculas.

        Response = acDataErrAdded

    Else

        Response = acDataErrContinue

    End If


Ou se não quiser que o usuário cadastre nada, é só alterar o código para somente a mensagem.
Abraço

Olá Cláudio.
Agradeço a ajuda.
Mas existe forms com muitas combo.
E sei que muita codificação em form lentifica as coisas.
E a ideia seria evitar.
Mas...
Nem sempre conseguimos.
Mas...MUITO obrigado pela ajuda.
Gde abs.

Boa tarde Mylton,

Veja se este exemplo resolve o seu propósito.

Nesse caso adapte o código como pretendido.

ZCarlosLopes
Obrigado.
Estou de plantão hj.
Amanhã quando chegar em casa vejo e respondo.
Obrigado.

Olá..

Caso queira impedir digitação em todas combobox de uma paulada só, cole este código abaixo no evento "ao apertar a tecla" do formulário

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
    If TypeOf Me.ActiveControl Is ComboBox Then 'Se for ComboBox
        KeyCode = 0
    Else
        'não faz nada
    End If    
    
End Sub

Caso queira impedir digitação individualizando combobox ( também pode ser textbox ou outros), cole este código abaixo no evento "ao apertar a tecla" do formulário e coloque os nomes corretos dos campos que quer impedir nos if's e elseif's

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  
    Dim ctl As Control
 
    Set ctl = Screen.ActiveControl
    If ctl.Name = "CboNomeFantasia" Then 'Combobox
        KeyCode = 0
    ElseIf ctl.Name = "CboNomeCliente" Then 'Combobox
        KeyCode = 0
    ElseIf ctl.Name = "txtNomeCliente" Then 'texbox
        KeyCode = 0
    
    End If
    
    
End Sub

Nota: A propriedade visualizar teclas do form tem que estar "SIM"


Aguardamos

Abraços

Boa, Celso...

Olá Ivan, tudo bem com você?

Na realidade esta também foi uma necessidade minha a tempos e encontrei nestes links abaixo

A primeira sugestão veio daqui

social.msdn.microsoft.com/Forums/en-US/d05652bd-255f-4b1c-bb3f-b985bf7e0db7/activecontrol-textboxes


Segunda sugestão veio daqui

docs.microsoft.com/pt-br/office/vba/api/access.form.activecontrol


Abraços e sucesso

Olá Mylton...

Conseguiu resolver?

Abraços

Com certeza e ajuda de vcs.
Deixarei no repositório o exemplo criado.
Obrigado a todos.

Olá..

Ficamos felizes por ter ajudado..

Obrigado pelo retorno

Abraços e sucesso

Eu e q agradeço a todos.