[Resolvido]Cadastrar Cliente caso não esteja na Lista

Ola amigos

No codigo abaixo ao digitar um CLIENTES que não esteja na LISTA ele MOSTRA a MSG que o CLIENTE não está cadastrado porém ao clicar em SIM ele não abre o Formulario de CLIENTES para realizar o cadastro do mesmo, alguém pode me dar uma ajuda.

Código:


Private Sub CLIENTE_NotInList(NewData As String, Response As Integer)
On Error Resume Next
If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.OpenForm "ClientesInserir", , , , acFormAdd, _
          acDialog, NewData
                  Response = acDataErrContinue
    Else

        Response = acDataErrContinue
        Me.CLIENTE.Undo
        End If

End Sub



Olá bom dia!!

Código:

Me!SuaCombo.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!SuaCombo.SetFocus ' Volta ao campo para confirmação
    Response = acDataErrAdded ' Atualiza a combo


Olá Fernando tudo bem

Utilzei seu código e funcionou, porém depois que vai pro Cadastro do Cliente e eu faço o cadastro e volto pra tela de Vendas ela não aparece na COMBOX so aparece se fechar o formulário de Venda , tem como atualizar na COMBOX após eu realizar o cadastro ?

Código:


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

End Sub



Olá bom dia;

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

End Sub

Tente substituir o comando em vermelho por acDataErrAdded

Olá Fernando

Agora sim substitui e funcionou perfeito

Obrigado !

Boa noite Fabio!

Perfeito, precisando estamos por aqui.

Agradecemos o retorno..