如果部分語句未使用UserForm執行

Question

我使用簡單的if語句在執行用戶表單中的數據之前進行一些檢查。 如果我的說法正確，代碼將繼續進行更改，否則，將給我msgbox

這部分不起作用：

If Me.AusAmmTubesAuslagern.Value <= Me.AusAvailTubes Or _
      Me.AusAvailTubes <> "N/A" Then

第一部分， If Me.AusAmmTubesAuslagern.Value <= Me.AusAvailTubes完美運行。 msgbox出現了。

如果我在聲明中重現這一點：我的Me.AusAvailTubes = N / A，則它不起作用。 做出這些更改。 僅當該字段具有除N / A之外的其他txt時，才應該發生這種情況。

我試圖直接從列表中而不是從用戶窗體中獲取數據，同樣的問題...

所有這些UserForm文本框都在列表中填充了其他宏的幫助。

每種材料以2種方式存儲。 小件。 或大箱子。 從其中的幾個人中，您可以拿起那些小電腦。 從其他只整個盒子。 那就是為什么我寫了2個與UserForm一起使用的宏。

第一宏刪除那些小pc。 第二只整個盒子。

我需要2個檢查點：

檢查點1：如果Me.AusAmmTubesAuslagern.Value <= Me.AusAvailTubes，則檢查是否為ex。 倉庫中的一個盒子里有40個試管，用戶嘗試刪除更多的棕褐色40，這會用msgbox阻止他。

檢查點2：該材料不是放在小塊中。 可用，您需要隨身攜帶整個包裝盒。 在這種情況下，我的列表中有一列是“ N / A”，它將與其他宏一起寫入該文本框Me.AusAvailTubes然后用戶才能嘗試使用宏從倉庫中將其撤回。 該文本框需要檢查，如果該文本框為“ N / A”，則代碼也將給出msgbox並將停止代碼

整個代碼：

Sub Tubes()
  Dim totRows As Long, i As Long
  Dim wsTubes As Worksheet
  Dim oldVal As Integer
  Dim newVal As Integer
  Dim AusWS As Worksheet
  Dim newValAus As String
  Dim oldValAus As String

 Select Case Me.AusListe.Value

  Case Is = "E1G"
  Set wsTubes = E1G
  Set AusWS = AusE1G

  totRows = wsTubes.Range("A1").CurrentRegion.Rows.Count

'Check to see if value exists

 If WorksheetFunction.CountIf(wsTubes.Range("A:A"), Me.AusCharge.Value) = 0 Then
    MsgBox "no right Charge chosen"
   Me.AusCharge.Value = ""
 Exit Sub
End If

With wsTubes
 For i = 2 To totRows
    If .Cells(i, 1) Like Me.AusCharge Then
      If Me.AusAmmTubesAuslagern.Value <= Me.AusAvailTubes Or _
      "N/A" <> Me.AusAvailTubes Then
         oldVal = .Cells(i, 14).Value
         newVal = oldVal + Me.AusAmmTubesAuslagern.Value
         wsTubes.Cells(i, 14) = newVal
       Else
        MsgBox "So viele Stücke dieser sind nich auf Lager vorhanden!"
        Exit Sub
      End If
    End If
Next
End With

'其余代碼對以上部分不重要

End Select
End Sub

Answer 1

我猜你的問題是數字和字符串混合。 或者，您將OR和AND混淆了？

我假設不是Me.AusAmmTubesAuslagern和Me.AusAvailTubes是用戶窗體上的控件，並且您要檢查輸入。 如果你仔細檢查你if語句來，你會發現總是導致True -如果你輸入的字符串開始的東西，如“X”為除AusAmmTubesAuslagern

為簡單起見，讓我們假設：

val1: Me.AusAmmTubesAuslagern.Value
val2: Me.AusAvailTubes
cond1: v1 <= v2
cond2: v2 <> "N/A"

然后，您的IF語句將導致（也將條件添加到AND ，也許正是您所需要的）

val1    val2    cond1   cond2   cond1 OR cond2  cond1 AND cond2  
-----------------------------------------------------------------
3       2       False   True    True            False
2       3       True    True    True            True
1       "N/A"   True    False   True            False
"AA"    "N/A"   True    False   True            False
"XY"    "N/A"   False   False   False           False