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

    [Resolvido]Atualizar Combobox

    Compartilhe

    valmeida
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/04/2016

    [Resolvido]Atualizar Combobox

    Mensagem  valmeida em Seg 19 Mar 2018, 14:41

    Bom dia.

    Já pesquisei em vários tópicos mas não consegui solucionar ainda.
    Tenho um formulário atendimento e outro clientes.
    No campo cliente há uma combobox com os clientes previamente cadastrados.
    Caso seja um novo cliente, que não consta na combobox, abre-se (como uma caixa de dialogo) o formulário cadastro de clientes para registrar o novo cliente.
    Após o cadastro, fecha-se a referida caixa de dialogo, porém a combobox não é atualizada com o novo cliente.
    Como proceder?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6717
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar Combobox

    Mensagem  Alexandre Neves em Seg 19 Mar 2018, 15:52

    Boa tarde,
    Ao retornar ao form, utilize o me.refresh


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    valmeida
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/04/2016

    Re: [Resolvido]Atualizar Combobox

    Mensagem  valmeida em Seg 19 Mar 2018, 16:37

    Obrigada mas não funcionou.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1932
    Registrado : 13/04/2012

    Re: [Resolvido]Atualizar Combobox

    Mensagem  Fernando Bueno em Seg 19 Mar 2018, 17:13

    Boa tarde, tente adaptar.

    Código:
    Me!cboCliente.Undo
        If MsgBox("O Cliente " & UCase(NewData) & " não está cadastrado. Cadastrar?", _
            vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
            Me!nomeCliente.SetFocus ' Põe o foco no próprio campo
            Response = acDataErrContinue ' Aceita nova entrada
            Exit Sub
        End If
        DoCmd.OpenForm "frmCad_Cliente2", acNormal, , , acFormAdd, acDialog, _
            UCase(NewData) ' Abre form de cadastro de clientes
        Me!cboCliente.SetFocus ' Volta ao campo para confirmação
        Response = acDataErrAdded ' Atualiza a combo


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 306
    Registrado : 13/12/2016

    Re: [Resolvido]Atualizar Combobox

    Mensagem  Alexandre Fim em Seg 19 Mar 2018, 18:38

    Ola valmeida,

    Segue exemplo pra atender sua necessidade.
    []'s

    [Você precisa estar registrado e conectado para ver este link.]

    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 306
    Registrado : 13/12/2016

    Re: [Resolvido]Atualizar Combobox

    Mensagem  Alexandre Fim em Qua 21 Mar 2018, 01:39

    E ai valmeida?

    Os exemplos apresentados atenderam suas expectativas?
    Por gentileza, nos retorne para que o fórum saiba se foi resolvido ou não.

    Grato.

    []'s

    valmeida
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 14/04/2016

    Re: [Resolvido]Atualizar Combobox

    Mensagem  valmeida em Qua 21 Mar 2018, 13:47

    Obrigada!!!
    Resolvido!!!

      Data/hora atual: Qui 26 Abr 2018, 06:45