[Resolvido]duvida com código de verificação se produto tem cadastro na tabela

boa tarde aos amigos do Forum mais uma vez peço ajuda, este código do amigo vieira
funciona bem só que mesmo com o produto cadastrado aparece o aviso que  não tem cadastro ! tentei algumas alterações mas sem sucesso até o momento.
    fico no aguardo !
  desde já agradeço a atenção Nogaro


If MsgBox("Item não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "NogaroProdutosInserir", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Produto = UCase(NewData) ' Converte o texto para maiúsculas.


Response = acDataErrAdded

Else

Response = acDataErrContinue

End If

Boa tarde.
Você esqueceu de apontar para qual campo e tabela e vai verificar
CÓDIGO:

Código:

response= DLookup("[seu campo]", "a tabela ", "[seu campo] ='" & Me!nome do campo onde você vai digitar & "'")


If Me.campo do formulario = responseThen
  MsgBox " Campo já cadastrado"
Else
 If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Ref") = vbYes Then
DoCmd.OpenForm "ProdutosInserir"
End If
End If

Gilliard
agradeço a ajuda vou testar e lhe informo

Gilliard
não funcionou
ficou assim
If MsgBox("Item não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "NogaroProdutosInserir", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Produto = UCase(NewData) ' Converte o texto para maiúsculas.


Response = acDataErrAdded

Else

Response = acDataErrContinue

Response = DLookup("[Ref]", "ProdutosInserir ", "[Ref] ='" & Me!Ref & "'")


If Me.Ref = Response Then
MsgBox " Campo já cadastrado"

End If

altera ela como voce ver na mensagem acima
entrarei em aula em instantes depois eu volto se ate as 20hs não foi resolvida

coloco estye código assim no antes de atualizar ?

response= DLookup("[seu campo]", "a tabela ", "[seu campo] ='" & Me!nome do campo onde você vai digitar & "'")


If Me.campo do formulario = responseThen
MsgBox " Campo já cadastrado"
Else
If MsgBox("Seu Campo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Ref") = vbYes Then
DoCmd.OpenForm "ProdutosInserir"
End If
End If

evento ao clicar, só não esquecer de apontar para onde ele vai verificar.
response= DLookup("[seu campo]", "a tabela ", "[seu campo] ='" & Me!nome do campo onde você vai digitar & "'")

ok vou testar mas já funcionou parcial

E aí Jovem, resolvido?

teria como executar um código que na compra do produto estando cadastrado seguiria em frente na compra caso não estiver cadastrado , ai abrir o formulário de cadastro seria o que preciso para resolver este problema
mas até o momento não consegui resolver !

Gilliard consegui resolver com este código simples



funcionou tudo ao contento 100%

If Me.Ref = Response Then
 MsgBox " Produto cadastrado" retirei este código MsgBox " Produto cadastrado"
Else
  Me.Undo 'desfaz a digitação.
Cancel = True 'cancela o evento.

If MsgBox("este Produto não esta cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & UCase(NewData) & " agora?", vbYesNo, "Ref") = vbYes Then
DoCmd.OpenForm "NogaroProdutosInserir"

End If

quando retorna ao campo de compra foco no campo do cód.barra entrando com cód.barra já esta atualizado mas gostaria que quando o produto estiver cadastrado não enviar mensagem de produto aadastrado

Cheguei de viagem.
Você tem que apontar para onde vai ser verificado assim ele para de mandar mensagem. Daqui a 10 min entrarem pelo computador