lectora de codigo de barras
ALGUIEN PUEDE DECIRME COMO HACER POR MEDIO DE UNA LECTORA LASER DE CODIGO DE BARRAS, UNA VEZ EFECTUADA LA LECTURA, QUE AUTOMATICAMENTE SIN DAR UN ENTER, BAJE A LA CELDA SIGUIENTE, EN UN EXCEL?? MEDIO COMPLICADO, NO??
ES DECIR QUE LAS LECTURAS SEAN SUCESIVAS SIN INTERRUPCION.
GRACIAS..
ES DECIR QUE LAS LECTURAS SEAN SUCESIVAS SIN INTERRUPCION.
GRACIAS..
Tiene que ser en excell?
Normalmente en los lectores de codigo de barras, se le configura por medio del manual del lector, si deseas agregarle, una vez que es leido el codigo de barras un caracter de control, por ejemplo el 0D o mejor conocido como el ENTER. Tambien puedes en vez de que sea el ENTER, pueda ser un TAB, en tu caso seria cuestion de que investigaras que despues de que lea el codigo de barras, que le agregue el caracter que corresponde A LA FLECHA HACIA ABAJO, ya que en EXCELL te desplazas hacia abajo con la FLECHA.
Ojala te sirva.
Saludos desde Monterrey, N.L., Mexico
Normalmente en los lectores de codigo de barras, se le configura por medio del manual del lector, si deseas agregarle, una vez que es leido el codigo de barras un caracter de control, por ejemplo el 0D o mejor conocido como el ENTER. Tambien puedes en vez de que sea el ENTER, pueda ser un TAB, en tu caso seria cuestion de que investigaras que despues de que lea el codigo de barras, que le agregue el caracter que corresponde A LA FLECHA HACIA ABAJO, ya que en EXCELL te desplazas hacia abajo con la FLECHA.
Ojala te sirva.
Saludos desde Monterrey, N.L., Mexico
Alguno de mis programas utiliza pistola de lectura de codigos de barras y no hay que dar INTRO, ya que al configurarla va implicita en la lectura. La utilizo en programas hechos con VB6 me imagino que con Excell será lo mismo.
lo que has de hacer es controlar que el textbox esté lleno, con el evento change, por ejemplo. CUando "veas" que el control está lleno, haces que el foco pase al siguiente textbox. Te pongo un ejemplo:
Private Sub Text1_Change()
If Len(Text1) = 8 Then Text2.SetFocus
End Sub
Por supuesto depende del número de caracteres que contenga, para que pongas el valor que necesites.
Saludos
Private Sub Text1_Change()
If Len(Text1) = 8 Then Text2.SetFocus
End Sub
Por supuesto depende del número de caracteres que contenga, para que pongas el valor que necesites.
Saludos
