MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]codificar várias combobox

    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]codificar várias combobox Empty [Resolvido]codificar várias combobox

    Mensagem  Mylton em 16/9/2019, 15:20

    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.



    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1619
    Registrado : 17/03/2011

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Cláudio Machado em 17/9/2019, 19:29

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]codificar várias combobox 90dssg para agradecer a dica que solucionou seu problema.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Mylton em 18/9/2019, 00:28

    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.
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 28/10/2010

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  zcarloslopes em 18/9/2019, 16:07

    Boa tarde Mylton,

    Veja se este exemplo resolve o seu propósito.

    Nesse caso adapte o código como pretendido.
    Anexos
    [Resolvido]codificar várias combobox AttachmentMultiControlsKeyPress.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 15 vez(es)
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Mylton em 18/9/2019, 16:51

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Celso Roberto em 18/9/2019, 18:18

    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


    Última edição por Celso Roberto em 19/9/2019, 02:26, editado 2 vez(es)


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2455
    Registrado : 22/11/2016

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  DamascenoJr. em 18/9/2019, 20:47

    Boa, Celso... Very Happy


    .................................................................................
    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.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Celso Roberto em 18/9/2019, 21:52

    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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Celso Roberto em 19/9/2019, 15:37

    Olá Mylton...

    Conseguiu resolver?

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Mylton em 19/9/2019, 18:23

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Celso Roberto em 19/9/2019, 18:50

    Olá..

    Ficamos felizes por ter ajudado..

    Obrigado pelo retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 23/08/2010

    [Resolvido]codificar várias combobox Empty Re: [Resolvido]codificar várias combobox

    Mensagem  Mylton em 19/9/2019, 19:01

    Eu e q agradeço a todos.

      Data/hora atual: 3/12/2020, 19:46