I have a Textbox1, Label1 and a AcroPDF1. My goal is to use a barcode scanner and scan a material number. I don't have keybord or mouse available at that location. The barcode scanner gives a Enter asci at the end. That is fine but it makes it go to the next index. I tried everything not to jump to the AcroPDF but the Tabstop is already on false but it still jumps into the PDF. So I want to be able to scan at any time and a special pdf beeing displayed.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If InStr(TextBox1.Value, "_") <> 0 Then
TextBox1.Value = Left(TextBox1.Value, InStrRev(TextBox1.Value, "_", , vbTextCompare) - 1)
End If
Label1.Caption = TextBox1.Value
TextBox1.Value = ""
AcroPDF1.LoadFile "F:\APPS\Packaging\84260388.pdf"
End If
End Sub
Thanks