[Resolvido]Opçao em cadastrar ou não

Boa noite colegas, ontem o Norberto me ajudou em uma parte, mas não é o que pretendo agora.....
Digitar um nome, caso ele não conste na lista apareça a mensagem informando, se clicar em sim abre cadcliente, mas,mas,mas se clicar em não ele não abre o "vai" para próximo campo.....

Boa tarde Criquio, o codigo adaptado

Private Sub cli_Nome_NotInList(NewData As String, Response As Integer)
If DCount("*", "tblClientes", "cli_nome=" & Me.cli_Nome) = 0 Then
If MsgBox("Deseja cadastrar esse nome?", vbQuestion, "Nome não cadastrado") = vbYes Then
DoCmd.OpenForm "Frmcliente"
Else
Me.Condo.SetFocus
End If
End If
End Sub


mas dá erro
Err em tempode execussão 3075
Erro de sintaxe(operador faltando) na experessão de consulta 'cli_nome=".

E retirando o = da mensagem padrão do access que não é um item da lista e volta para o campo cli_nome.

Observe nas diferenças de tipo de dados no critério. Quando número, é sem aspas:

DCount("*", "NomeDaTabela", "NomeCampoDaTabela=" & Me.NomeCampoDoForm) = 0

Quando texto, aspas simples e duplas:

DCount("*", "NomeDaTabela", "NomeCampoDaTabela='" & Me.NomeCampoDoForm & "'") = 0

Quando Data/Hora, aspas com o símbolo de sustenido #:

DCount("*", "NomeDaTabela", "NomeCampoDaTabela=#" & Me.NomeCampoDoForm & "#") = 0

Isso vale para o DCount, para o DLookup, DMax, DMin.

Verdade, já fui advertido por essas diferança, texto número.....

Criquio, sou meio cru ainda no access.....
Esta dando somente a mensagem de "Deseja cadastrar esse nome" mesmo clicando em ok ele não sai.....
deveria ter o sim e não, sim iria para o formcliente e não para o proximo campo...

Tem que acrescentar os botões:

If MsgBox("Deseja cadastrar esse nome?", vbYesNo + vbQuestion, "Nome não cadastrado") = vbYes Then

Criquio não esta dando, vou separa-lo do bd e ja anexo.....

Ai esta o exemplo....
http://speedy.sh/NcbvD/cafpr.rar

Veja isto:

http://maximoaccess.forumeiros.com/t784-se-nao-estiver-na-lista

Bom dia colega José. obrigado por estar empenhado em me ajudar.
O exemplo(s) que em mostra não é o que pretendo. o codigo para "não estar na lista" eu já tenho o que procuro seria parecido com este mas que quando o usuario escolha o "não" então fecha a mensagem e move para outro campo, essa é minha necessidade. o codigo que tenho sobre o não estar na lista funciona perfeitamente que é este:

Private Sub cli_Nome_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Inibe msg padrão do Access.
If MsgBox("Cliente não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "FrmCliente", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do formulário SeuFormCadastro.

Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Faça o teste na versão 2003 funciona

Dim sql As String
If MsgBox("Nome de cliente não cadastrado." & Chr(13) & Chr(13) & "Deseja cadastrar este nome " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.SetWarnings False
sql = "INSERT INTO SuaTabela (SeuCampo) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrDisplay
Me.cliente.undo
me.Nome do campo que quer o foco.setfocus

End If


Coloque no evento: Se não estiver na lista
No Limitar a uma lista coloque "Sim"

Boa noite colega Assis. Obrigado por estar me ajudando.

Seu código usa o "undo" quando decido não cadastrar volta o valor anterior, no campo. Eu gostaria que escolhendo "não" ficasse gravado o nome que digitei no "campo" e não na tabela. Acho que estou me equivocando, porque o campo pertence ao form de cadastro de cliente e assim sendo o usuário decidir em não cadastrar e ter que acontecer o que pretendo (mencionado acima), o correto seria criar um campo para isso ou tbl para armazenar esse nome. Por favor colega Assis ou outro comente.....

Oi Clovis

Como havia comentado no outro tópico:
Se as tabelas estão relacionadas, como você confirmou, então não será possível entrar com um nome não cadastrado, e o Undo é necessário. O cliente terá que ser cadastrado para poder ser escolhido no pedido.

Outro detalhe:
A origem da combo onde escolhe o cliente deve ter o ID do cliente incluído.
Você pode deixar a largura da coluna como 0cm para não exibi-la. E como o Assis disse, deve limitar a uma lista.

Ola Norberto.....as aplicações de vocês estão corretas, demorei um pouco para estudar e entender (por isso meu comentario acima) vocês estavam corretos e o que pretendia era impossivel. acrescentar um nome em em campo de tabela e não querer registrá-lo. Desculpe colegas(Criquio, Norberto, Assis, José) por me ajudarem......obrigado mesmo. ?Vou repensar bastante em meus próximos tópicos.....