hola a todos, a quien me pueda ayudar estoy creando un programa que lea codigos de barras a traves de una pistola lectora de codigos de barras.
debido a que ella automaticamente emite un enter al leer el codigo agregue el evento keypress y sus respectivas acciones.
el problema esta que al ingresar el codigo por teclado me busca en la base de datos dandole al enter del teclado pero al pasar la lectora por el codigo de barras al emitir ella el enter me dice que no existe el codigo cuando si existe y esta registrado en la db.
no se que podra ser ..........aqui adjunto mi codigo
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Text1.Text = "" Then MsgBox ("Debe Ingresar El Codigo Del Producto"), vbInformation, "aviso": Text1.SetFocus: Text1.Text = "": Exit Sub
With rs
.Requery
.Find "CodProd='" & Trim(Text1.Text) & "'"
If .EOF Then
MsgBox ("El Codigo No Existe"), vbInformation
Text1.Text = ""
Text1.SetFocus
Else
Text2.Text = !Descrip
Text3.Text = !Descrip2
Text4.Text = !Descrip3
Text5.Text = !Refere
Text6.Text = !Precio3
Text7.Text = "" & !Monto
End If
End With
End If
End Sub
gracias espero sugerencias :(