[Resolvido]Problema com a combo

Olá,

Tenho um formulario consulta de cliente por nome, onte tb posso cadastrar novo, através de um botão,neste frm existe uma combo box que filtra o cliente pelo nome. O meu problema é quando não encontrar o cliente na base do BD,apareça uma mensagem informando: Cliente não encontrado na base de dados. deseja cadastrá-lo? sim, não. Se sim libera o frm para editar se não simplesmente fecha a mensagem e continua no mesmo frm vazio, limpando a caixa da combo, onde foi digitado o cliente.
Deu pra entender?
Quando o cliente está cadastrado, tá tdo beleza, ele preenche automaticamente o frm com os dados do cliente.
entretanto qdo o cliente não está cadastrado na base, dá erro.
Este são os códigos e a função que utilizo para esta combo,o problema é que ele está dando erro: GRATA, ABS

Private Sub cbocliente_AfterUpdate()
DoCmd.ApplyFilter , "CodigoCliente = " & Me!cbocliente.Column(0) ' Codigocliente chave primaria, cbocliente, onde vai buscar o nome desejado

Me!cbocliente = Null 'deixa a combo vazia, limpa.


End Sub

Private Sub cbocliente_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
If Confirmar("Deseja adicionar " & NewData & " automaticamente ao cadastro?") Then
If CurrentProject.AllForms("FrmRecepNomeCliente").IsLoaded Then
DoCmd.Close acForm, "FrmRecepNomeCliente", acSavePrompt

Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TblCliente")
rs.AddNew
rs!Nome = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Response = acDataErrAdded
Else
Me.cbocliente.Undo
If Not Confirmar("Deseja abrir o cadastro e cadastrar agora?") Then Exit Sub
If CurrentProject.AllForms("FrmRecepNomeCliente").IsLoaded Then
If Confirmar("O formulário já está aberto." & vbCrLf & _
"Deseja alternar para a janela do formulário?") Then
Forms!FrmRecepNomeCliente.SetFocus
Else
DoCmd.OpenForm "FrmRecepNomeCliente"
DoCmd.GoToRecord , "", acNewRec
End If
End If


End Sub
'Faz uma pergunta ao usuário e retorma True se a resposta for SIM, e false se a resposta for NÃO
Public Function Confirmar(sMensagem As String) As Boolean
Dim intResp As Integer
intResp = MsgBox(sMensagem, vbYesNo + vbQuestion, "Confirmação")
If intResp = vbYes Then
Confirmar = True
Else
Confirmar = False
End If
End Function

Olá Aneju!

Você pode postar o bd por favor!

Qual linha está dando o erro?

Norberto,

Eu fiz as alterações sugeridas. Criei um novo módulo para a função e corrigir as linhas. Mas, continua dando o mesmo erro.
O erro é o seguinte:
quando eu digito o nome de um cliente não cadastrado, ele informa que o texto não é um item da lista e sugere que eu selecione ou digite um texto que coincida com o da lista e um botão ok. E clicando ou não no ok, volta a abrir a lista da combo e mesmo quando eu apago o nome da criatura q ainda não tem cadastro, aparece o erro: erro em tempo de execução '3075'. Erro de sintaxe (operador faltando)na expressão de consulta 'CodigoCliente='
E qdo eu depuro ele mostra a linha: DoCmd.ApplyFilter , "CodigoCliente = " & Me!cbocliente.Column(0)

O que eu quero? que o erro suma, desapareça! (risos) e que apareça uma mensagem informando(cliente não cadastrado, deseja cadastrá-lo? sim, não. Se sim apaga o nome digitado na combo e automaticamente aparece no mesmo frm para continuar a inserção do cadastro. Se não, limpa a combo box, voltando o frm ao estado inicial.

Bom dia, Aneju

Pode disponibilizar a parte do bd para se ver (não se esqueça de alterar dados confidenciais)

Segue o BD. Grata

http://speedy.sh/443d7/problema-com-a-combo.rar

Eu não sei como converter de 2010 para 2003.

Ane,baixe o anexo e teste:

É Marcelo, já vi q vc é o cara das combo. ;D Era isso mesmo. Só que restou um problema. A combo só executa uma vez.
Tipo´, se eu procuro na combo uma pessoa, e ela não está cadastrada, blza, ele mostra as mensagens de q não tem cadastro, se eu clico em sim ele limpa a combo e joga o texto lá pro frm liberando para cadastro, mas se após eu salvar este novo cliente. eu tentar efetuar novamente a mesma operação buscar um novo cliente na combo e ele não estiver na cadastrado, eu não consigo efetuar toda a operação.

Tem algum comando q eu possa acrescentar? abs

Opa, não tinha percebido isso.
Baixe e veja se está ok:

Ki negocio difícil, viu. Continua com o mesmo erro. Minha coluna já está doendo. kkkkkkkkkkkk e eu ainda nem acertei todos os botões do meu primeiro formulário.

Marcelo como vai amigo?

To acompanhando o tópico e baixei ele aqui,
as vezes, quando é digitado na combo, um nome
que ainda não está cadastrado, ele faz pergunta
normal que o cliente ainda não está cadastrado,
ai, não é todas a vezes, mas muita das vezes,
vc clica em ok para efetuar novo cadastro,
e ele fica repetindo a mensagem.

Isso mesmo Lupercio e depois que vc clica varias vezes no sim, se vc clica no não ele executa a função do sim.

Vamos lá!
Baixem novamente:

O que seria de mim sem vcs !!! AMOOOOOOO!!!! PERFEITOOOO!!!!! RESOLVIDÍSSIMO!!!!!!!!!!!!!!!!

Grato pelo retorno!

O código ficou assim:


On Error Resume Next
Dim objws As Object
Set objws = CreateObject("wscript.shell")
Response = acDataErrContinue

If MsgBox("O cliente '" & NewData & "'" & vbCrLf & "não está cadastrado. Deseja Cadastra-lo agora?", vbYesNo + vbQuestion, "Cliente não encontrado") = vbYes Then
Me.cbocliente = Null
Response = acDataErrContinue
If Not IsNull(Me.Nome) Then
DoCmd.RunCommand acCmdRecordsGoToNew
Call Limpa
Response = acDataErrContinue
Me.Nome = NewData
Else
Me.Undo
objws.SendKeys "{ESC}"
Call Limpa
Me.Nome = NewData
End If
Else
objws.SendKeys "{ESC}"
objws.SendKeys "{ESC}"
Response = acDataErrContinue
End If

Venha aqui, dá pra copiar o código do seu cérebro e enviar para eu colar no meu?? brincadeira... Valeu, mesmooooo!!!!

desculpa, não usarei mais. fiquei emocionada, com a solução.