[Resolvido]Dúvida Nz(DLookup) para pesquisa

Bom dia Todos
Estou usando o dlookup pra pegar informações de outra tabela SYSPDV só que esta acrescentado uma linha
nessa tabela com os dados pesquisados... onde estou indo pesquisar
como faço só pegar só informações sem acrescentar dados na tabela? SYSPDV

o que quero é só nome do cliente onde faz a referencia do codigo do bloco

eu informo o codigo do bloco então ele vai na tabela SYSPDV e pega o nome do cliente
só que ele esta colocando novo registro na tabela de pesquisa SYSPDV

na verdade não sei como resolver isso já peguei um exemplo aqui no forum e ele faz do mesmo jeito
help ...

agradeço a todos que poderem mim ajudar....

codigo que estou usando

Código:

Private Sub txtCodigo_AfterUpdate()
     
  Me.ENTREQUE = True
 
  If DCount("CodigoDoBloco", "SYSPDV", "CodigoDoBloco ='" & Me.txtCodigo & "'") Then
 
           Me.txtCliente = Nz(DLookup("Cliente_Nome", "SYSPDV", "CodigoDoBloco ='" & txtCodigo & "'"), 0)
           Me.txtFilial = Nz(DLookup("Filial", "SYSPDV", "CodigoDoBloco ='" & txtCodigo & "'"), 0)
   Else
           MsgBox ("Nenhum Contrato faz referência à este Código.!"), vbExclamation, "controle de lentes"

            Me.txtCodigo = Null
            Me!txtCodigo.SetFocus
  End If

End Sub

O código que você mostrou não tem linha que adicione um novo registro. Anexe aqui seu banco de dados com os objetos envolvidos e diga o que deve ser feito e o que deve acontecer para analisarmos onde pode estar o problema.

Boa tarde Ivan Jr

Voce vai em Saidas de lentes
justamente é a baixa do estoque
olha a tabela SYSPDV que o novo registro foi adicionado
só ele é pra pegar o nome do cliente e a filial
pra mostrar na baixa

Trata-se da questão relatada no link abaixo
usandoaccess.com.br/blog/gravar-quando-clicar-salvar.asp

Use a solução apontada pelo mestre Avelino para o seu caso.

Bom dia
lamento .... Essa diga não se aplica pra o estou querendo
não funciona.. pois estou querendo somente pegar o nome do cliente e filial
pra ficar mais pratico... sem ter que digito nome e filial


Private Sub Form_BeforeUpdate(Cancel As Integer)
If Len(Me!Cliente & "") = 0 And booSalvar Then
MsgBox "Informe o nome do cliente", vbInformation, "Nome do cliente"
Cancel = True
Me!Cliente.SetFocus
booSalvar = False
Exit Sub
End If
If booSalvar = False Then Me.Undo
booSalvar = False
fncPinta (0)
End Sub

grato
Helder

Como assim a dica não se aplica ao seu problema? O usuário diz

Matheus escreveu:basta entrar com um novo registro e digitar em apenas uma das textbox, que o registro já é salvo

Exatamente o que você está fazendo: entrando em uma textbox, digitando o códigobloco para uma pesquisa e o registro está sendo salvo.

Você e o outro usuário desejam que o registro não seja salvo antes da hora.

Basta seguir a dica apontada pelo mestre Avelino. Já adaptei, o registro só é salvo se você informar uma quantidade diferente de zero.

Eventos onde a variável foi usada

Código:

Private Sub Form_Current()

    rem se for um novo registro a variável que permite salvar recebe falso
    booSalvar = Not Me.NewRecord

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    rem enquanto a variável não for verdadeira não salva
    If Not booSalvar Then Me.Undo

End Sub

Private Sub QUANTIDADE_AfterUpdate()

    rem se o campo quantidade foi atualizado então deixa a variável como verdadeira
    booSalvar = True
    
    rem altera um campo
    Me.ENTREQUE = True

    rem vai para um novo registro
    DoCmd.GoToRecord , , acNext

    rem põe o foco no campo código
    Me.txtCodigo.SetFocus

End Sub

Private Sub QUANTIDADE_BeforeUpdate(Cancel As Integer)

    rem não atualiza o campo quantidade enquanto o valor informado for nulo ou zero
    Cancel = Nz(Me.QUANTIDADE, 0) = 0

End Sub

boa tarde Ivan
Desculpe... eu não tinha entendido
ficou show o codigo .. só que ainda não funcionou
já mudei .. e não consegui quase nada
vou ficar tentado pra descobrir como usar o dlookup
sem gravar na tabela de busca fiz uma explicação
olha para mim o anexo se dar pra entender o que pretendo fazer
Agradeço pela atenção e ajuda

Att Helder

Vejo que na fonte do registro você usa as tabelas SYSPDVIMP e SYSPDV relacionadas e que no formulário ao inserir o códigobloco inclusive atribui valores aos campos da tabela SYSPDV (me.entreque = true), manipulando-a.



Resolvi não mexer eu mesmo nas suas tabelas pois só você sabe bem o que cada campo armazena e onde é usado.

Minha sugestão é que copie os campos filial e cliente_nome da tabela SYSPDV para a tabela SYSPDVIMP, que remova a tabela SYSPDV da relação na fonte de registro do subformulário, e use apenas os campos na tabela SYSPDBIMP, sem misturá-las.

Sucesso a você.

bom dia Ivan
te agradeço pela diga
é que já estou fazendo.. transferindo os dados
pra outra tabela ... uma select update

muito obrigado
pela ajuda mas vou continuar aqui na luta
Qualquer novidade retorno

Sucesso pra você também