EDUCATED MONKEY
Board Regular
- Joined
- Jul 17, 2011
- Messages
- 218
My set up office 2007 win xp pro IE8 keyboard wedge type Scanner Symbol LT1880 E100E <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
<o
></o
>
Hi i am currently using a barcode scanner to input data, the following problems have arisen<o
></o
>
Some books have less than 13 digits and therefore i need to include a warning loop this is proving to be rather more difficult than i first though so i was hoping that one of forum members could point me in the right direction at least or maybe a solution to the problem<o
></o
>
Here is the code so far<o
></o
>
<o
></o
>
However with that in the fault condition is always satisfied as the loop runs as the first character is read in E.G.
Number that is represented by the barcode
9780140301106
But as soon as the 9 is scanned the default condition is triggered
So it’s back to the drawing board any idea welcome on how to control the scanner




<o


Hi i am currently using a barcode scanner to input data, the following problems have arisen<o


Some books have less than 13 digits and therefore i need to include a warning loop this is proving to be rather more difficult than i first though so i was hoping that one of forum members could point me in the right direction at least or maybe a solution to the problem<o


Here is the code so far<o


Rich (BB code):
<o:p></o:p>
Rich (BB code):
Private Sub TextBoxIsbn_Change()<o:p></o:p>
Dim MyData As Variant<o:p></o:p>
Dim BookCount As Integer<o:p></o:p>
Dim testdata As Variant<o:p></o:p>
BookCount = TexetBoxCount.Value<o:p></o:p>
If Len(TextBoxIsbn.Value) = 13 Then<o:p></o:p>
TextBoxLastData.Value = ""<o:p></o:p>
MyData = TextBoxIsbn.Value<o:p></o:p>
TextBoxLastData.Value = MyData<o:p></o:p>
BookCount = BookCount + 1<o:p></o:p>
TexetBoxCount.Value = BookCount<o:p></o:p>
Module11.SaveData (MyData)<o:p></o:p>
ElseIf Len(TextBoxIsbn.Value) < 13 Then ‘ this is what i thought would work <o:p></o:p>
MsgBox ("problem")<o:p></o:p>
End If<o:p></o:p>
End Sub<o:p></o:p>


However with that in the fault condition is always satisfied as the loop runs as the first character is read in E.G.
Number that is represented by the barcode
9780140301106
But as soon as the 9 is scanned the default condition is triggered
So it’s back to the drawing board any idea welcome on how to control the scanner