<div>
Well, we can't know because you don't say exactly how the result differs from what you want, but you might find Select Case for readable than all the If conditions 

<pre><code class="code-10 nolinks" id="code-264128"> If (ValidLotno(Me.tScan.Text)) Then
 S_Lotno = Trim(Me.tScan.Text)
 Me.lblLotno.Caption = S_Lotno
 Else
 ' this is used to check whether it is the first character belongs to a lotno or partno
 First_char = Left(Me.tScan.Text, 1)
 Select Case FirstChar
 Case &quot;1&quot; To &quot;9&quot;
 strMsg = &quot;YOU HAVE SCANNED A WRONG LOTNO ..... PLEASE SCAN THE LOTNO !!! &quot;
 strTitle = &quot;Incorrect lotno&quot;
 intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle)
 Case Else
 strMsg = &quot;YOU HAVE SCANNED A WRONG PARTNO ..... PLEASE SCAN THE CORRECT PARTNO !!! &quot;
 strTitle = &quot;Incorrect partno&quot;
 intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle)
 End Select
 End If
</code></pre>
</div>

<div>
Ok I will try that and see 
 
Thanks 
Radhs
</div>

<div>
I think there is something wrong in my logic itself that is why it is not working . anyway thanks for your time and cooperation 
 
thanks 
radhs 
</div>

<div>
If you wish to explain the goal of your method and what is currently happening, we will help you get it working.
</div>

<div>
Ok there is no link between the lotno and partno and this is what I wrote earlier 
Else 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Header scanning checking for valid PN or LOTNO 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strType = GetDataType(Me.tScan.Text) 
&nbsp; &nbsp; &nbsp; &nbsp; If strType = &quot;PN&quot; Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; S_Partno = Trim(Me.tScan.Text) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.lblPN.Caption = S_Partno 
&nbsp; &nbsp; &nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (ValidateLotno(Me.tScan.Text)) Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; S_Lotno = Trim(Me.tScan.Text) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Me.lblLotno.Caption = S_Lotno 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' this is used to check whether it is the first character belongs to a lotno or partno 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'First_char = Left(Me.txtScan.Text, 1) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'If (First_char = &quot;0&quot;) Or (First_char = &quot;1&quot;) Or (First_char = &quot;2&quot;) Or (First_char = &quot;3&quot;) Then 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' strMsg = &quot;YOU HAVE SCANNED A WRONG LOTNO ..... PLEASE SCAN THE LOTNO !!! &quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' strTitle = &quot;Incorrect lotno&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Else 
 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' strMsg = &quot;YOU HAVE SCANNED A WRONG PARTNO ..... PLEASE SCAN THE CORRECT PARTNO !!! &quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'strTitle = &quot;Incorrect partno&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' End If 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;strMsg = &quot;YOU HAVE SCANNED A WRONG &nbsp;LOTNO ..... PLEASE SCAN THE CORRECT ONE !!! &quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;strTitle = &quot;Incorrect Lotno&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle) 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;End If 
&nbsp; &nbsp; &nbsp; &nbsp; 
&nbsp; &nbsp; &nbsp; End If 
&nbsp; &nbsp; End If 
 
but what it is doing is if i scan an incorrect partno or lotno it display this message as 
strMsg = &quot;YOU HAVE SCANNED A WRONG &nbsp;LOTNO ..... PLEASE SCAN THE CORRECT ONE !!! &quot; 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;strTitle = &quot;Incorrect Lotno&quot; 
so the only difference between partno and lotno is partno has the starting character as &quot;A&quot;, &quot;S&quot; or &quot;0&quot; 
(zero) ... so basically I cannot even check with these characters for partno so I implemented this logic which i commented using the left function and capturing the first char of the partno and then accordingly displaying the msg but when I scan the incorrect partno it is displaying the message as &quot;incorrect partno&quot; but when I scan incorrect lotno it is displaying the wrong scanned value in the partno field instead of lotno field and also not showing the message as that I scanned wrong lotno 
hope you understood the issue and your help would be greatly appreciated 
 
Thanks 
Radhs 

</div>

<div>
Are you able to step through the code? &nbsp;If so, check your values for strType, tScan.text, First_char. &nbsp;Also, you have referenced tScan.Text as well as txtScan.text. &nbsp;Are these 2 separate textbox controls?
</div>

<div>
I don't know about anybody else, but I'm afraid that I still do not understand what the problem is.
</div>

<div>
sorry it was mistyped they both are the same ,,,, txtbox controls
</div>

<div>
<div class="content wysiwyg-content">
I have this part of the code where it should check for a range of values something like in the code below but it is not doing as it should .... anyone help is greatly appreciated 
 
Thanks 
Radhs 
 

<pre><code class="code-10 nolinks" id="code-264115">If (ValidLotno(Me.tScan.Text)) Then
 S_Lotno = Trim(Me.tScan.Text)
 Me.lblLotno.Caption = S_Lotno
 Else
 ' this is used to check whether it is the first character belongs to a lotno or partno
 First_char = Left(Me.tScan.Text, 1)
 
 If (First_char = &quot;1&quot; Or First_char = &quot;2&quot; Or First_char = &quot;3&quot; Or First_char = &quot;4&quot; Or First_char = &quot;5&quot; _
 Or First_char = &quot;6&quot; Or First_char = &quot;7&quot; Or First_char = &quot;8&quot; Or First_char = &quot;9&quot;) Then
 
 strMsg = &quot;YOU HAVE SCANNED A WRONG LOTNO ..... PLEASE SCAN THE LOTNO !!! &quot;
 strTitle = &quot;Incorrect lotno&quot;
 intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle)
 Else
 
 strMsg = &quot;YOU HAVE SCANNED A WRONG PARTNO ..... PLEASE SCAN THE CORRECT PARTNO !!! &quot;
 strTitle = &quot;Incorrect partno&quot;
 intresponse = MsgBox(strMsg, vbCritical + vbOKOnly + vbDefaultButton1, strTitle)
 End If
</code></pre>
</div>
</div>

I have this part of the code where it should check for a range of values something like in the code below but it is not doing as it should .... anyone help is greatly appreciated

Thanks
Radhs


Logical operators not working here .... any other alternative

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Microsoft SQL Server is a suite of relational database management system (RDBMS) products providing multi-user database access functionality.SQL Server is available in multiple versions, typically identified by release year, and versions are subdivided into editions to distinguish between product functionality. Component services include integration (SSIS), reporting (SSRS), analysis (SSAS), data quality, master data, T-SQL and performance tuning.