[Resolvido]Atualizar caixa de combinação

No frmPedidos o nome do cliente é selecionado numa caixa de combinação que busca os dados da tblClientes.
Quando o nome do cliente não está na caixa de combinação, clicando no botão botNovo, abre-se o frmCadastroCliente e o usuário pode cadastrar o novo cliente.
Ocorre que, ao fechar o frmCadastroCliente e voltar para o frmPedidos (que permanece aberto), o nome do novo cliente cadastrado não aparece na caixa de combinação.
Tentei o procedimento "ao clicar" sobre o campo Cliente na caixa de combinação com o código:
Private Sub Cliente_Click()
DoCmd.RunCommand Cliente.Requery
DoCmd.RunCommand Cliente.Refresh
End Sub
e não funcionou. Tentei vários outros procedimentos semelhantes, usando Requery e Refresh e não consegui solução.
Gostaria de alguma solução sem ter que fechar e reabrir ou mesmo salvar o frmPedidos.
Alguém pode me ajudar?

Boa tarde amigo teste com essa dinamica no evento se não estiver na lista da sua combo

Código:

On Error Resume Next
' emite mensagem para o usuario alertando item fora da lista
Response = MsgBox("Deseja cadastrar " & NewData, vbYesNo, "Cliente não cadastrado")
' se a reposta foi sim
If Response = vbYes Then
    ' abre o formulario para cadastrar
    ' atenção na passagem do valor que foi digitado para o
    ' outro formulario atraves da propriedade OPENARGS
    ' e o modo como o formulario é aberto para parar o codigo
    ' até que ele seja fechado acDialog
DoCmd.OpenForm "frmCadastroCliente", , , , acFormAdd, acDialog, NewData
    'depois que o formulario cadastro de clientes é fechado o código continua
    ' e repete a consulta na lista de clientes
  Me.Cliente.Requery
Else
    ' não emite mensagem de erro
    Response = acDataErrContinue
    'limpa o valor digitado e aguarda
    SendKeys "{ESC}"
End If

Caro Fernando,
Grato pela ajuda mas creio que estou errando em alguma coisa pois não consegui fazer funcionar.
Anexo um exemplo incluindo sua sugestão e agradeço se vc puder dar uma verificada.

Tenta assim na caixa de combinação

Colocas a caixa de combinação limitada á lista

Este é o codigo que utilizo:

No evento se não estiver na lista da caixa de combinação:

Código:

Private Sub Texto23_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue  ' Inibe msg padrão do Access.
    If MsgBox("Código Postal:  '" & NewData & "'" & vbCrLf _
        & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
        DoCmd.OpenForm "Código Postal", , , , acFormAdd, _
           acDialog, NewData
        ' A execução deste código fica interrompida aqui até o
        ' fechamento do formulário Cadastra Credores.
        Texto23 = UCase(NewData)  ' Converte o texto para maiúsculas.
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub

No evento ao sair da caixa de combinação:

Código:

Private Sub Texto23_Exit(Cancel As Integer)
Texto23.Requery
End Sub

Texto23 é o nome da minha caixa de combinação

Podes ainda utilizar a função de cópiapara não voltares a escrever o nome

No painel que cadastras o cliente no meu caso é o painel codigo postal, colocas ao abrir:

Código:

Private Sub Form_Load()
                If Not IsNull(Me.OpenArgs) Then
        Me!Texto25 = (Me.OpenArgs)
        Else
    End If
End Sub

Texto25 é o nome do campo que quero que fique logo preenchido.

Desculpa Fernando Bueno estava a escrever quando publicaste.

Sem problemas, toda ajuda é bem vinda   

Grande Fernando gostei desse exemplo,ja estou usando ele.
Valeu menino.

É isso ai Kaynan, fico feliz em poder ajudar os colegas do forum!   

Caro Fernando,
Muito obrigado, está funcionando muito bem!!!
Agradeço também ao "toyebom" pois incorporei a seguinte sugestão dele no frmCadastroCliente:
Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
Me!Cliente = (Me.OpenArgs)
Else
End If
End Sub
Abraços.

Boa tarde Domingos, que bom que tenha dado tudo certo.. Precisando estamos ai.

Agradeço o retorno em nome do forum!

Ok caso precises de mais ajudas é só dizer.