[Resolvido]Código de Barras - Permitir Somente Leitura

Olá a todos,

existe alguma solução pra que um campo que recebe a leitura de um código de barras não seja permitido entrada de dados manualmente, ou seja, bloqueia somente a digitação e não a leitura.

estou usando no AoApertarTecla

If Me.Quadro165 = 1 Then ' se 1 informação vinda do leitor de código de barras. se 2 informação digitada manualmente
MsgBox "SE NÃO CONSEGUE LER O CÓDIGO DE BARRAS, MARQUE A OPÇÃO ORIGEM MANUAL", vbCritical, "ATENÇÃO" 'caso se tente digitar algo
Exit Sub
End If

Fazendo assim, a msg aparece mas sempre aceita a última tecla pressionada.

já tentei tb no evento AoPressionarTecla mas tb continua a mesma situação.

desde já agradeço.

Leandro.

Leandro

Faz muito tempo que não manipulo um leitor ótico.
Mas se ainda me lembro, a caixa de texto que recebe o código lido pelo leitor, deve estar
desbloqueada, ou seja, propriedade Bloqueada = Não.
Verifique por favor, se é possivel preencher a caixa de texto via leitor com ela bloqueada.
Se sim, está solucionado, né?

Caso não seja possível, mantenha essa caixa de texto bloqueada e crie uma outra para receber a leitura
do leitor ótico e então passe para a primeira caixa o valor dessa caixa via código.
A segunda caixa de texto deverá ficar invisível e pode reduzi-la ao tamanho de um traço vertical (|).

Noob

opa. ok. estou aguardando chegar o leitor novo, que inclusive deveria ter chegado no sábado. farei estes testes e retorno. Muito obrigado pela atenção.

Leandro.

Boa noite a todos,

Conforme mencionei, comprei um novo leitor de código de barras e esta situação continua na mesma. Estou entendendo que o comportamento de leitura é idêntico a digitação, ou seja, bloqueando a digitação pelo evento "ao pressionar" ou "ao teclar" impede também a leitura que simplesmente não acontece. Por enquanto o que fiz:

o tamanho deste código que é lido contém 12 dígitos. Coloquei uma instrução que, caso o usuário digite uma sequência diferente de 12 dígitos, retorno uma msg de código não reconhecido e peço pra usar a opção manual caso tenha problemas na leitura do código. Também coloquei pra checar caso o usuário digite por coincidência ou não os 12 dígitos, o banco separando os campos referentes aos dados que são lidos e acredito que dificilmente o usuário "descobrirá" a sequência de leitura dos dados pelo código de barras. O Código final, funcionando e já em uso na empresa descrevo abaixo:

Código:


Private Sub Leitura_AfterUpdate()
On Error Resume Next

Me.FilTemp = left(Me.Leitura, 3)
Me.DavTemp = Mid(Me.Leitura, 4, 6)

If Len(Me.Leitura) <> 12 Then
MsgBox "CÓDIGO DE BARRAS NÃO RECONHECIDO. USE A OPÇÃO MANUAL.", vbExclamation, "Atenção."
Me.Leitura = ""
Me.Leitura.SetFocus
Exit Sub
End If
   
If IsNull(DLookup("VRRQU", "FC12000", "[CDFIL] = " & Me.FilTemp & " AND " & "[NRRQU] = " & Me.DavTemp)) Then
MsgBox "DAV NÃO ENCONTRADO.", vbExclamation, "Atenção."
Me.Leitura.SetFocus
Exit Sub

    ElseIf DLookup("DAV", "Entrega", "[FILIAL] = " & Me.FilTemp & " AND " & "[DAV] = " & Me.DavTemp) Then
    DoCmd.OpenForm "Msg_DavJaEntregue"
    Me.Leitura = ""
    Me.Leitura.SetFocus
    Exit Sub
   
Else

Me.TxCODBARRAS = Me.Leitura
Me.TxFILIAL = Me.FilTemp
Me.TxDAV = Me.DavTemp

    'Cálculo da ID
    If IsNull(DMax("ID", "Entrega")) Then
    Me.TxID = 1
    Else
    Me.TxID = DMax("ID", "Entrega") + 1
    End If

Me.TxCODLOJA = DMax("CODFILPADRAO", "CODIGOFILIALPADRAO")
Me.TxCODUNICO = Me.TxCODLOJA & "-" & Me.TxID
Me.TxNOMELOJA = DLookup("DESCRFIL", "FC01000", "[CDFIL] = " & Me!TxCODLOJA)
Me.TXOrigem = Me.Quadro165.Value
Me.TxQtPotes = DLookup("QTFOR", "FC12100", "[CDFIL] = " & Me.TxFILIAL & " AND " & "[NRRQU] = " & Me.TxDAV)
Me.TxPaciente = DLookup("NOMEPA", "FC12100", "[CDFIL] = " & Me.TxFILIAL & " AND " & "[NRRQU] = " & Me.TxDAV)
Me.TxCRM = DLookup("NRCRM", "FC12100", "[CDFIL] = " & Me.TxFILIAL & " AND " & "[NRRQU] = " & Me.TxDAV)
Me.TxMedico = Me.TxCRM & " " & "-" & " " & DLookup("NOMEMED", "FC04000", "[NRCRM] = " & Me.TxCRM)
Me.DavsEnt = Me.DavsEnt + 1
Me.PtsEnt = Me.TxQtPotes + Me.PtsEnt

'inserir os dados na tabela entrega
DoCmd.RunSQL (" INSERT INTO Entrega (ID, CODUNICO, CODLOJA, NOMELOJA, ORIGEM, DATAENTREGA, HORAENTREGA, CODBARRAS, FILIAL, DAV, QTPOTES) Values('" & Me.TxID & "', '" & Me.TxCODUNICO & "', '" & Me.TxCODLOJA & "', '" & Me.TxNOMELOJA & "', '" & Me.TXOrigem & "', '" & Me.TxDataEntrega & "', '" & Me.TxHoraEntrega & "', '" & Me.TxCODBARRAS & "', '" & Me.TxFILIAL & "', '" & Me.TxDAV & "', '" & Me.TxQtPotes & "' )")

Dim UltimoRegistro
UltimoRegistro = DMax("ID", "ENTREGA")
Me.UltimoReg = DLookup("'Filial:' & [FILIAL] & ' ' & 'DAV:' & [DAV] & ' ' & 'Qt.Potes:' & [QTPOTES]", "ENTREGA", "ID = " & UltimoRegistro)

Me.TxID = ""
Me.TxCODUNICO = ""
Me.TxCODLOJA = ""
Me.TxNOMELOJA = ""
Me.TXOrigem = ""
Me.Leitura = ""
Me.TxCODBARRAS = ""
Me.TxFILIAL = ""
Me.TxDAV = ""
Me.FilTemp = ""
Me.DavTemp = ""
Me.TxQtPotes = ""

DoCmd.GoToRecord , , acNewRec
Me.Leitura.SetFocus

End If

End Sub



Sugestões pra otimização do código e aprimorar meu aprendizado sempre bem-vindos.

Obrigado.

Só mais um detalhe:

Se estiver usando os códigos  impressos nos produtos, esse
código é  chamado de EAN13, justamente por conter 13 algarismos.

Se ainda me lembro, os 3 primeiros é do pais de origem do produto
a parte do meio que pode variar, o código da empresa do produto e
o final o código do produto em si.

[ ]'s

Sim. Mas esse codigo é personalizado criado pelo programa gestor da empresa. Tambem estranhei mas enfim, sao 12 digitos. Nao sao de produtos. Sao medicamentos feitos em farmacia de manipulacao. Nao tem como ter codigo unico pois cada produto é unico, personalisado. O codigo identificaa loja e o numero do pedido.

Obrigado

Leandro

Entendi, meu amigo

Meus sistema também tem formulário para criar código quando o item ainda não tem.

Valeu o retorno !

Boa sorte !!