syntax for to upper case letters?
 

Hi I have a form coded involving the characters "P" and "Q". But I need
the form to still run without any runtime errors even though the user
enters a lower case p or q. Whats the syntax for the to upper case
letters. Here is my code. Keep in mind that this code works, I just
need to add the to upper statement.

r = Application.CountA(Range("A:A"))

If Left(parttxt.Text, 1) = "P" And Left(qtytxt.Text, 1) = "Q" Then
Range("A1").Offset(r + 1, 0) = Me.parttxt.Value
Range("B1").Offset(r + 1, 0) = Me.qtytxt.Value
Me.parttxt.Value = ""
Me.qtytxt.Value = ""
Me.parttxt.SetFocus
Else: MsgBox "Wrong Part or Qty Scanned", vbCritical
Me.parttxt.Value = ""
Me.qtytxt.Value = ""
Me.parttxt.SetFocus


End If
End Sub

syntax for to upper case letters?
 

try this

If UCase(Left(parttxt.Text, 1)) = "P" And UCase(Left(qtytxt.Text, 1)) = "Q"
Then

--


Gary


"dex" wrote in message
ups.com...
Hi I have a form coded involving the characters "P" and "Q". But I need
the form to still run without any runtime errors even though the user
enters a lower case p or q. Whats the syntax for the to upper case
letters. Here is my code. Keep in mind that this code works, I just
need to add the to upper statement.

r = Application.CountA(Range("A:A"))

If Left(parttxt.Text, 1) = "P" And Left(qtytxt.Text, 1) = "Q" Then
Range("A1").Offset(r + 1, 0) = Me.parttxt.Value
Range("B1").Offset(r + 1, 0) = Me.qtytxt.Value
Me.parttxt.Value = ""
Me.qtytxt.Value = ""
Me.parttxt.SetFocus
Else: MsgBox "Wrong Part or Qty Scanned", vbCritical
Me.parttxt.Value = ""
Me.qtytxt.Value = ""
Me.parttxt.SetFocus


End If
End Sub

syntax for to upper case letters?
 

Include 'Option Compare Text' at the top of the module and VBA will get it
right anyway. Alternatively, use the UCase$() function.







"dex" wrote in message
ups.com...
Hi I have a form coded involving the characters "P" and "Q". But I need
the form to still run without any runtime errors even though the user
enters a lower case p or q. Whats the syntax for the to upper case
letters. Here is my code. Keep in mind that this code works, I just
need to add the to upper statement.

r = Application.CountA(Range("A:A"))

If Left(parttxt.Text, 1) = "P" And Left(qtytxt.Text, 1) = "Q" Then
Range("A1").Offset(r + 1, 0) = Me.parttxt.Value
Range("B1").Offset(r + 1, 0) = Me.qtytxt.Value
Me.parttxt.Value = ""
Me.qtytxt.Value = ""
Me.parttxt.SetFocus
Else: MsgBox "Wrong Part or Qty Scanned", vbCritical
Me.parttxt.Value = ""
Me.qtytxt.Value = ""
Me.parttxt.SetFocus


End If
End Sub

syntax for to upper case letters?
 

Hi dex,
My guess is change the If line to:

If (Left(parttxt.Text, 1) = "P" Or Left(parttxt.Text, 1) = "p") And
(Left(qtytxt.Text, 1) = "Q" Or Left(qtytxt.Text, 1) = "q") Then

But it's only a guess!

Ken Johnson