[Resolvido]Ao ler codigo de barra completar o campo

Ola pessoal espero que possam me ajudar como sempre,

tenho um formulário com os campos código (esse campo é preenchido com código de barra) , descrição e entrada, o que eu quero fazer é, quando ler o código com o leitor o campo entrada preencha com SIM ou com a data referente ao dia da entrada e o formulário fique vazio para novos dados.

Obrigado

ola

voce nao detalhou quais caixas tem

mas seria algo assim em um formulario simples


No evento após atualizar, coloque

me.seucampo = "Sim"

ou

me.seucampo = format(Now,"dd/nn/yyyy") 'Inserir a data de hoje

docmd.save 'Salvar

DoCmd.GoToRecord , , acNewRec 'NOVO REGISTRO

me.seucampoCodigoBArras.setfocus

Ola amigo realmente ficou muito vago,

os campos da minha tabela são esses

ORDEM,DATA,DESCRICAO,CLIENTE,QUANTIDADE E DATAEMBALADO

Os campos todos já tem dados menos o campo DATAEMBALADO, quando ler o código de barras referente a Ordem já contida na tabela, preciso que preencha automaticamente o campo DATAEMBALADO, pois preciso saber as datas que os itens foram embalados.



Grato.

é substituir o nome do seu campo (caixa de texto) onde eu coloquei "seucampo"

Sim, substitui com me disse, mais acontece o seguinte ele coloca a data em qualquer registro não registro foi lido pelo leitor ex: a tabela ja tem registros quando eu ler a Ordem com o código referente ao numero 1 por ex. procura na tabela o registro e preencha o campo DATAEMBALADO com a data do dia da leitura.

[ORDEM] [DATA] [DESCRICAO][CLIENTE][QTDE] [DATAEMBALADO]
[1] [15/08] [TESTE0 01] [A] [QTDE] [DATAEMBALADO]
[2] [15/08] [TESTE0 02] [B] [QTDE] [DATAEMBALADO]
[3] [15/08] [TESTE0 03] [C] [QTDE] [DATAEMBALADO]
[4] [15/08] [TESTE0 04] [D] [QTDE] [DATAEMBALADO]
[5] [15/08] [TESTE0 05] [E] [QTDE] [DATAEMBALADO]

Grato.

em qual campo voce faz a leitura do codigo de barras?

teoricamente é só bipar o codigo no campo que ele pula para o proximo

Se a leitura estiver sendo na ultima coluna consequentemente ele pula pra linha debaixo

ex: voce tem tres campos: txt1, txt2 e txt3

voce bipa o codigo no txt1 o Enter do leitor pula pro proximo que é txt2...ou seja é so informar nas propriedades do txt1 no evento apos atualizar para colar no txt2 a data de hoje.
no entanto se eu bipar no ultimo txt3 ele pula pra proxima linha para o txt1

tem opção no campo para pula linha ou proximo campo ( voce seleciona o campo clica em propriedades, na guia todas, comportamento da tecla enter... ai tem padrão ou nova linha do campo)...

bom se nao deu também posta o exemplo que dou uma olhada.

Ola amigo postei um exemplo se você puder dar uma olhada, vai notar que o campo embalado não tem registro é nesse campo que preciso que entre a data, pensei em criar outra tabela para entrar somente com o código e a data depois exportava para tabela principal, agora se você conseguir outra maneira de fazer agradeço.

grato

onde esta o link do anexo?

Ops agora está em anexo

cole no vba no evento após atualizar (no caso coloquei no campo ordem)


Private Sub Ordem_AfterUpdate()

Me.Embalado = Date


End Sub

Ola amigo em partes está funcionando mais continua incluindo um novo registro, pensei em fazer da seguinte forma crio uma consulta com o campo ordem e embalado, quando eu abrir a consulta vai pedir o numero da ordem que vou ler com o codigo de barras assim que fizer a leitura já preenhe o campo data e ja fica em branco para novas entradas.

faça conforme esse modelo que dara certo

Ola amigo da uma olhada no ex. em anexo aproveitei suas sugestões e montei mais ou menos que preciso agora vai ficar fácil de entender, criei uma consulta (cs_Cod_Barras) e um (formulário frm_Cod_Barras) quando chamo o formulário ele vai pedir o numero da ordem ai eu leio o código de barras que automaticamente ele vai preenche o campo embalado. é isso que preciso, mais o processo preciso que fique conforme a sequência abaixo o primeiro e o segundo passo consegui falta o terceiro.

1º passo - chamo o formulário (frm_Cod_Barras)
2º passo - leio o código e abre o formulário com a data no campo Embaldo

3º passo - feito isso aparece uma mensagem deseja apontar outra ordem o usuário da um enter
   fecha o formulario e abre novamente para outra leitura ou ele digita não e fecha o formulário.


Agradeço muito pela sua ajuda até agora.

eu nao entendi essa consulta que voce fez

é uma consulta para localizar registros ja existentes?

se for voce utilizar dessa forma: cole no vba dentro frm_cod_barras

Código:

Private Sub Form_Load()

Me.Embalado = Date

  If MsgBox("Deseja fazer uma nova leitura?", vbYesNo + vbQuestion + vbDefaultButton1, "Aviso") = vbYes Then

       DoCmd.Close acForm, "frm_cod_barras"
       
       DoCmd.OpenForm "frm_cod_barras"
   
   Else
   
       DoCmd.Close acForm, "frm_cod_barras"
       
       DoCmd.OpenForm "Frm_vazio"
       
       Exit Sub
   
   End If

End Sub

Crie um formulário vazio - Frm_vazio "

agora se nao for, voce deve gravar direto na tabela, pode até usar consulta mas sem referencia de campo e nao ha necessidade de sair do formulário só criar um novo registro... ou sair

Ola amigo, sim é uma consulta para localizar um código já existente, procura o código caso ele exista preenche o campo Embalado, vou tentar te explicar qual é a finalidade, tenho um terminal na produção e quero acompanhar o andamento das ordens em produção o que eu pensei crio uma consulta onde peça o numero da ordem o operador apenas passa o código de barras pelo leitor e no meu computador mostra a data que foi embalado o produto, pois tenho acesso a todo o sistema, o operador não vai ver nada apenas a consulta.


Muito obrigado vou tentar da maneira que passou espero que funcione, ta difícil rsrsrs

entendi

digite na ordem do eof

testei aqui funcionou, nem aparece tela para o usuário é rapidão

Ficou perfeito é isso mesmo que preciso, agora só preciso de mais uma coisa quando o ler um código que não está na tabela retornar com mensagem CÓDIGO NÃO ENCONTRADO, acredito que dou conta de fazer.


Valeu cara Obrigado.

Agradeço o retorno, feche o tópico como resolvido,
qualquer coisa abra um novo com este novo pedido.

Valeu