MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Atualizar Cbox

    Compartilhe

    Ramon.mattos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 40
    Registrado : 09/05/2013

    Atualizar Cbox

    Mensagem  Ramon.mattos em Qua 30 Set 2015, 12:48

    Bom dia.

    Tenho uma aplicação de controle de Clientes onde estes são crianças.

    Neste Form tenho um Subform (Sfrm_Respon) onde pesquiso em Resp_cd_Codigo (Cbox) os nomes dos responsáveis, caso não existe (NotInList), Abre um form (Pop_CadRespon) cadastrar onde registro é salvo na tabela Tb_Respon. Até ai tudo está funcionando perfeito.

    Meu problema é que quando fecho o form Pop_CadRespon a Cbox Resp_cd_Codigo, não atualiza com o registro novo. Como resolver isto?

    Segue abaixo o código que estou utilizando!

    Private Sub Resp_cd_Codigo_NotInList(newdata As String, Response As Integer)
    Response = acDataErrContinue
    Call Acct_Name_Not_Found(newdata)
    End Sub

    Public Sub Acct_Name_Not_Found(newdata)
    Dim ans As Variant
    ' new acct
    gbl_exit_name = False

    ans = MsgBox("Responsável  " & newdata & " não localizado, deseja cadastrá-lo?", vbYesNo + vbExclamation, "Na Brinca")

    If ans = vbNo Then
    Response = acDataErrContinue
    MsgBox "Selecione o nome na relação.", vbExclamation + vbOKOnly, "Na Brinca"
    GoTo exit_it
    End If

    DoCmd.OpenForm ("Pop_CadRespon")
    Form_Pop_CadRespon.Resp_tx_Nome = newdata
    Response = acDataErrAdded
    exit_it:

    End Sub

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Atualizar Cbox

    Mensagem  Fernando Bueno em Qua 30 Set 2015, 13:28

    Bom dia, eu utilizo dessa forma:

    Código:
    On Error GoTo CboCliente_NotInList_Err

    DoCmd.SetWarnings False ' Desativa avisos do Access
    If MsgBox("O cliente " & UCase(NewData) & " não existe, deseja cadastrar ?", vbQuestion + vbYesNo, "Aviso") = vbNo Then
    Response = acDataErrContinue ' Volta ao controle
    GoTo CboCliente_NotInList_End
    End If
    DoCmd.OpenForm "frmExemplo", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre o form para incluir
    Response = acDataErrAdded ' <<= Faz a inclusão na combo e atualiza

    CboCliente_NotInList_End:
    DoCmd.SetWarnings False ' Ativa os avisos do Access
    Me!cboCliente.SetFocus ' Volta o foco
    Me.cboCliente = ""
    Exit Sub

    CboCliente_NotInList_Err:
    'MsgBox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
    Resume CboCliente_NotInList_End


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

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: Atualizar Cbox

    Mensagem  ifahidalgo em Qua 30 Set 2015, 13:46

    acredito que se você colocar assim atualiza a lista do campo combobox

    nomedocampodacombo.requery

      Data/hora atual: Sab 03 Dez 2016, 02:26