Board logo

標題: [發問] Help!數量與庫存之間的驗證問題 [打印本頁]
作者: hildaliu    時間: 2015-3-7 00:28     標題: Help!數量與庫存之間的驗證問題

我有一個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)

  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

  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

  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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)