01-01-20, 11:53 AM
كل عام وانت بخير
select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text &"
If cur1.Count > 0 Then
txtItemName .Text = cur1.Current("ItemName ")
Exit Sub
Else
ItemName .Text = ""
select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text &"
If cur1.Count > 0 Then
txtItemName .Text = cur1.Current("ItemName ")
Exit Sub
Else
ItemName .Text = ""
