[Resolvido]Emissão de Pedidos via Código de Barras

Bom dia!

Tenho uma tblProdutos e um formConsultaProdutos com a caixa de texto "cxaPesquisa". Gostaria que, ao digitar o código ler pelo leitor de código de barras, o access me mostrasse o cadastro correspondente. Tipo essas pesquisas que fazemos via listbox, só que no caso preciso utilizar uma caixa de texto e que ela não esteja vinculada. Detalhe: os códigos são padrão de 13 dígitos e preciso que, assim que o último dígito for informado, o sistema já faça a busca automática sem eu precisar teclar "Enter" ou clicar em algum botão.

Obrigado!

Amigo, repósitório é pra você postar exemplos, não pedir ajuda..

Tópico movido.

Desculpe! Há algum tempo não acessava o fórum e pensei que, como pedi uma resposta exemplificada, teria que postar aqui rs. Sorry!

Acho que esse tópico bugou.

Boa tarde a todos!

Tenho uma tblProdutos e um formConsultaProdutos com a caixa de texto "cxaPesquisaSKU". A pesquisa pode ser feita tanto digitando o código ou pelo leitor de código de barras e o código é padrão 13 dígitos.

Gostaria que ao informar o código na cxaPesquisaSKU, que o sistema entenda que foi preenchido os 13 dígitos e automaticamente faça a busca automática do registro correspondente, sem eu precisar teclar "Enter" ou clicar em algum botão.

Tentei usar a função Len, mesclada com DLookup, mas ficou muito grande e não funfou

Recentemente foi mostrado pra você como pesquisar se um produto já existe na tabela, e existindo, mostrar o código numa caixa de mensagem. Basta usar a mesma lógica e trazer agora o nome do produto. O fórum é cheio de exemplos da função dlookup

Tópico fundido. Mesmo autor, mesma dúvida.

Bruno, não abra tópicos com a mesma dúvida. Isso tumultua o fórum. Fique tranquilo que tópicos não bugam.

Contamos com sua colaboração para manter a casa organizada.

Entendo que talvez seja iniciante ou reiniciante, por isso peço que leia as regras do fórum. Caso esteja iniciando um projeto e muitas dúvidas surgirem, garanto que o fórum terá muitas das suas questões já abordadas e resolvidas e isso adiantará a evolução do seu projeto.

Realmente fiquei muito tempo sem usar o fórum e reli as regras. Desculpe qualquer coisa, mas cara... eu sempre pesquiso antes de abrir um tópico, não só aqui como também no Youtube. Muitas vezes pode haver casos parecidos que tento adaptar e não dão certo; outras vezes a essência da dúvida pode ser a mesma, mas a pessoa escreve de forma diferente e acaba não saindo na pesquisa e tal...

Nesse caso específico, tentei usar ferramentas, códigos e adaptações que infelizmente não funfaram. Eu poderia usar máscara de entrada e DLookup, mas se houver algum código mais eficiente ajudaria muito a otimizar a "rodagem" do sistema, deixando mais leve e "limpo". Só que não consegui encontrar :/

É certo que nunca encontrará um exemplo exato para seu caso. Para evolução, é preciso entender o que foi feito e adaptar ao seu cenário.

Se não encontrar ou não conseguir adaptar e resolver abrir um tópico, peço que não abra diversos tópicos com a mesma dúvida. Preze pela organização do site pois isso facilita que os demais membros (e até você) encontrem dúvidas que já possuem solução aqui.

Veja como foi simples usar o dlookup para resolver seu caso.

Estamos aguardando desfecho...

Olá Damasceno!

Funfa muito bem, porém que no meu caso, é o seguinte: o form e os campos são vinculados, pois se trata de um form que uso para adicionar, excluir e editar registros; já a textbox de pesquisa é desvinculada.

O código funciona direitinho no evento "Ao alterar", só que o código tem que permanecer no campo de pesquisa para que o cadastro fique na tela e no meu caso preciso que, após inserir os 13 caracteres e o sistema fazer a busca e trazer o registro correspondente, o campo deve ficar limpo e com foco para receber uma nova consulta seguinte, sem que o último registro filtrado saia da tela. E outro detalhe, se a pessoa inserir um código que não esteja cadastrado, o sistema deve interromper a busca e emitir uma msg de erro. Isso é possível?

Eu tentei com esse código, mas ele não supre todas as necessidades... Existe alguma forma de usar isso no evento "Após atualizar" e dar um 'Enter' automático via VBA? Porque daí sim o cadastro pesquisado ficaria na tela enquanto o campo de pesquisa ficaria vazio (e com foco) e a pessoa livre para fazer outra pesquisa.

  If Len(Me.cxaPesquisa.Text) = 13 Then
     Me.btEditar.SetFocus
     DoCmd.ApplyFilter , "[skuProduto] = '" & Me![cxaPesquisa] & "'"
     Me.cxaPesquisa.SetFocus
  If (IsNull(DLookup("[skuProduto]", "tblProdutos", "[skuProduto] ='" & Me!cxaPesquisa & "'"))) Then
     MsgBox "Código inválido.", vbCritical, "Sispac"
  Else
     Cancel = True
  End If
 End If

Vi que houve avanço em outro tópico com código semelhante. Este ainda está pendente?

Bom dia!

Então, falta pouco... No código abaixo, tenho 3 condições, só preciso de ajuda para ajustar.

No evento "Ao alterar", ao ler os 13 caracteres...

1. Se o produto não estiver cadastrado, ele emite msg de erro e impede a inserção no subformulário;
2. Se o produto estiver cadastrado, ele verifica se o código já existe na lista:
a) se não existir, ele insere;
b) se existir, ele soma +1 na qtde do item, evitando ter mais de uma linha para o mesmo produto e dá baixa no estoque.

Tenho o código abaixo, mas não consigo ajustar para que execute no mesmo evento (Ao alterar) de acordo com os critérios acima. Sempre que digito o primeiro caracter ele já emite a msg que o código é inválido.

Código:

  If Len(Nz(Me.cxaLeituraSKU.Text)) = 13 Then

      If (Not IsNull(DLookup("[skuProduto]", "tblProdutos", "[skuProduto] ='" & Me!cxaLeituraSKU & "'"))) Then
      'Este código soma a quantidade de itens de um mesmo produto em uma linha, evitando ter mais de uma linha para um mesmo produto.
         If Me.formDetalhesPedido!codigoProduto <> 0 Then
            rsf.FindFirst "formDetalhesPedido!codigoProduto= '" & Me.formDetalhesPedido!codigoProduto & "'"
            If Not rsf.NoMatch Then
               frm.Undo
               frm.Bookmark = rsf.Bookmark
               rsf.Edit
               rsf!formDetalhesPedido!qtdeSaida = rsf!formDetalhesPedido!qtdeSaida + 1
               rsf.Update
            End If
         End If
         Else
            Me.tipoLeitura.SetFocus
            DoCmd.GoToControl "formDetalhesPedido"
            DoCmd.GoToRecord , , acNewRec
            Forms!formEmissaoPedidos!formDetalhesPedido!qtdeSaida = 1
            Forms!formEmissaoPedidos!formDetalhesPedido!skuProduto = cxaLeituraSKU
            Forms!formEmissaoPedidos!formDetalhesPedido!codigoProduto = Right(cxaLeituraSKU, 5)
            Forms!formDetalhesPedido!codigoProduto = "'"
            Forms!formEmissaoPedidos!cxaLeituraSKU = ""
            Forms!formEmissaoPedidos!cxaLeituraSKU.SetFocus
            Me.cxaLeituraSKU.SetFocus
         End If
   Else
      MsgBox "Código inválido.", vbCritical, "Erro"
      Me.cxaLeituraSKU = ""
   Exit Sub
   End If
End If


Boa noite!

Alguém?

Bom dia Krauss!
primeira pergunta: o cod. barras vc usou como chave primaria?
eu fiz um pequeno sistema para castrode calçados, utilisei o cod. de barars como campo unico.
Só que no meu caso, coloquei todo procedimento no cadstro do produto.
E se ao invés de colocar o seu codigo no evento após atualisar, vc  colocasse um botão para executar a função.
Uma sugestão seria dividir o código, no avento após atulisar vc faria a verificação da existentecia do cod barras. nao sendo localizado, vc abriria o cadastro
de produtos.
No meu caso eu tambem não perimito duplicação de itens no pedido, oque faço no caso de duplicidade é guardar a quantidade ja exietente numa variavel. exluir o iten e adciona-lo novamente somando a quantidade com o valor guardaddo na variavel.
Funciona perfeitamente.

Att

Ney

Opa, boa tarde Ney!!! Prazer...

Perfeito cara, é tipo calçados mesmo onde vc tem vários tamanhos para um mesmo modelo. Daí tenho uma tabela de produtos, uma da grade dos produtos, uma de pedidos e uma de detalhes do pedido.

Eu fiz o seguinte: tenho um código padrão de 13 dígitos (e é chave primária) para cada produto: os 4 primeiros dígitos são MMAA (mês e ano) de entrada, os próximos 3 são o tamanho, 1 zero neutro e os últimos 5 referente ao modelo, exemplo..

1220902000011 (dez de 2020, 902 que é tamanho P, 0, 00011 que é o modelo)
1220903000011 (dez de 2020, 903 que é tamanho M, 0, 00011 que é o modelo)
1220904000011 (dez de 2020, 904 que é tamanho G, 0, 00011 que é o modelo)
1220905000011 (dez de 2020, 905 que é tamanho GG, 0, 00011 que é o modelo)

Daí na hora de fazer os pedidos, ao inserir o código o sistema deve seguir alguns critérios que citei na msg nº 14.

Eu até consegui o código aqui no fórum que verifica se o item já consta na lista na hora de inserir, só que não consegui adaptar tudo isso que preciso em um código que funcione.. e olha tenho lutado com isso viu rsrs.

Vc pode me ajudar? Se precisar eu mando uma parte do BD.

Boa tarde!
Quando estava desenvolvendo o sistema para meu cliente,  essa foi uma duvida que  levantei com ele, sobre a numeração e cor.
Em termos  lógicos, um calcado  mod x, cor X tamanho x é diferente de um calçado mod X Tamanho Y e Cor Y..Ou seja o calçado e o mesmo mas a cor e o tamanho podem variar, o cliente nao queria cadatastrar um calçado pra cada especificação,
para contornar a  situação criei duas tabelas uma TbCor, e outra Tb Tamanho, ai no momento em que ele faz o pedido do cliente ele infoma a cor e tamanho.
Ou seja ele faz um unico cadstro para o modelo do calçado( por escolah dele).
No seu caso é assim tambem? ou cadastra um para cada modelo e cor?
Me enviei parte do Bd para eu analisar melhor e ver o que consigo fazer, apenas lendo as descriçoes não fica muito afcil ter ideias.
fico no aguardo..

Att ney

Oi Ney!

No meu caso, a cor não vamos levar em consideração, somente modelo e tamanho mesmo.

Bom, na minha tela de cadastro de produtos, tem os dados do produto e um sobform com a grade dele. Então cada modelo pode ter vários tamanhos e cada tamanho tem que ter um código diferente. Vou ajeitar meu BD e te mando aqui assim que tiver pronto blz?

Por enquanto te agradeço muito pela atenção!

ok fico no aguardo

Pitaco.

teste este:

Código:


Private Function fncCarregalista(filtro As String)
Dim strSql As String
strSql = "SELECT campocodigodebarras, campoproduto "
strSql = strSql & "FROM suatabela "
strSql = strSql & "WHERE campocodigodebarras like ""*" & filtro & "*"" "
strSql = strSql & "ORDER BY Campoproduto;"
Me!Lista.RowSource = strSql
End Function

Private Sub suatextbox_Change()
Call fncCarregalista(Me!textbox.Text)
End Sub


Boa tarde Ney e tauron!

Segue BD resumido...

tauron, estou tendo dificuldade em adaptar os códigos, mas agradeço muito sua participação nessa rs.. toda ajuda é sempre bem vinda, pode participar à vontade..

Ah, detalhe, a tela de emissão de pedidos não está pronta, então não reparem a posição dos campos.

Ney?

boa noite
ainda nao tive tempo, pois pintou um compromisso, estrei bvemndo essa semana

Oi Ney, boa noite!

Sem problemas. Estou tentando aqui também, mas fico no aguardo. É que estou esperançoso que vc vai conseguir me ajudar rs.

Abraço!

amigo baizei seu exemplo mas confesso estar confuso da manerira como e operado o sitema nao consegui entender como feito os lancamnetos..

Krauss, veja se ajuda. Acredito que estamos falando sobre o formulário "formListaProdutos".

Boa noite Tauron e Ney!

Tauron, é sobre o 'formEmissaoPedidos'.

Ney, tente não se orientar pelo VBA que deixei no evento, senão vc vai se confundir mesmo, pois eu estava tentando adaptar e o código acabou ficando uma bagunça rs. Eu trabalho com vestuário, então uma cueca por exemplo pode ter vários tamanhos (P, M, G, GG, etc.), daí criei um código de 13 dígitos para cada tamanho, como se cada tamanho fosse um produto diferente.

Concentre-se apenas nas seguintes instruções:

Considerando que cada modelo pode ter vários tamanhos e que cada tamanho tem seu código (que chamo de skuTamanho), no campo 'cxaLeituraSKU' do 'formEmissaoPedidos' é onde o usuário vai inserir o código do produto (via leitor de código de barras). Cada vez que ele bipar um código, o sistema deve seguir os critérios a seguir:

1. Se o produto (código) não estiver cadastrado, ele emite msg de erro e impede a inserção no subformulário "formDetalhesPedido";
2. Se o produto (código) estiver cadastrado, ele verifica se o código já existe na lista (no subform "formDetalhesPedido";
2.a) se não existir, ele insere;
2.b) se existir, ele soma +1 no campo qtdeSaida do item, evitando ter mais de uma linha para o mesmo produto.

É uma espécie de PDV tipo frente de caixa sabe? Só que em vez de uma venda, se trata de um pedido, que acaba dando no mesmo.

Você testou o arquivo que disponibilizei?

Oi Tauron, testei, mas não funcionou da forma que preciso

Boa tarde!

Alguém pode me ajudar?

Boa tarde!

Vou encerrar esse tópico visto que a dúvida coincide com a de outro tópico. Peço desculpas pela duplicidade.