[發問] Help!數量與庫存之間的驗證問題

hildaliu

我有一個input box 來輸入數量
但我的代碼只對數量和庫存的限制不起作用
如果數量>庫存數量
input box會一直循環

如果庫存水平是200
我輸入50，但input還是循環
我不知道我的代碼做錯了什麼

1.   Do
   
2.    Myquantity = InputBox("Please Specify the Quantity of ProductID." _
   
3.                  & Me.ProductID & vbCr & "")
   
4.                  
   
5.    If (Myquantity <> "") Then Q = ValidateQ(Myquantity)
   
6.             Loop While (Q = False) Or (Myquantity = "") Or (Myquantity = "0") Or (Myquantity > Me.Stock_level)
   
7. 
   
8.    Forms![F_Orders].[F_Order_line_subform].SetFocus
   
9.   DoCmd.GoToRecord , , acLast
   
10.    Me.Parent.F_Order_line_subform.Form!Quantity = Myquantity
    
11.    MsgBox "The order of ProductID." _
    
12.                                 & Me.ProductID & vbCr & "successfully added to order"

複製代碼

1. Function ValidateQ(Myquantity As String) As Boolean
   
2.     Dim strLength As Integer
   
3.     Dim I As Integer
   
4.    
   
5.     Myquantity = Trim(Myquantity)
   
6.     strLength = Len(Myquantity)
   
7. For I = 1 To strLength
   
8. 
   
9. If Myquantity = "0" Then
   
10. ValidateQ = False
    
11. msb = MsgBox("Invalid values, this values is not allow to enter , try again", vbCritical, "Error")
    
12. Else
    
13.   ValidateQ = True
    
14. 
    
15.        End If
    
16.         
    
17.     Next I
    
18.     If (Myquantity <> "") Then
    
19.     If IsNumeric(Myquantity) Then
    
20.     ValidateQ = True
    
21.     Else
    
22.         ValidateQ = False
    
23.         msb = MsgBox("invalid values,PLease enter a Numeric values ", vbCritical, "Error")
    
24.    
    
25.         
    
26.   End If
    
27.   End If
    
28. End Function

複製代碼