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

    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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1847
    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 : 314
    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: Ter 22 Ago 2017, 04:40