VBA如果statment混亂

Question

下面的代碼工作得很好，直到我說了代號爲vbokcancel位...下面的代碼：

If Me.results.ListIndex = -1 Or Me.userfolder.ListIndex = -1 Or 
Me.choice.ListIndex = -1 Then   

MsgBox "Please choose something to remove" 

Else 

If MsgBox("Are you sure you want to delete this user from this folder?", vbOKCancel) = vbOK Then 

    If Me.choice.Value = "Folder" Then 

     username = Me.results.Column(0) 
     prfolder = Me.results.Column(3) 

     strSQL = "DELETE tblRelationship.*, tblPra.praNo, tblFolder.folder FROM tblPra INNER JOIN (tblFolder INNER JOIN tblRelationship ON tblFolder.folderID = tblRelationship.folderID) ON tblPra.praID = tblRelationship.praID WHERE (((tblPra.praNo)='" & username & "') AND ((tblFolder.folder)='" & prfolder & "'));" 
     CurrentDb.Execute strSQL 
     Me.results.Requery 

    ElseIf Me.choice.Value = "Username" Then 

     prfolder = Me.results.Column(0) 

     strSQL = "DELETE tblRelationship.*, tblFolder.folder FROM tblPra INNER JOIN (tblFolder INNER JOIN tblRelationship ON tblFolder.folderID = tblRelationship.folderID) ON tblPra.praID = tblRelationship.praID WHERE (((tblFolder.folder)='" & prfolder & "'));" 
     CurrentDb.Execute strSQL 
     Me.results.Requery 

    End If 
    End If 
End If 

這將激活If MsgBox("Are you sure you want to delete this user from this folder?", vbOKCancel) = vbOK部分，但如果「確定」按鈕，點擊它直接跳到End If並且不運行IF語句中的代碼。現在我認爲我所做的完全是編碼方面的「合法」，顯然不是......我有什麼想法來解決這個問題？

如果按下「取消」，它會執行我已經想要的操作，即關閉消息框並且用戶返回到同一屏幕..所以不需要Else語句，因爲它已經做了什麼我希望這樣做。

Answer 1

這對於評論來說太長了，它並不是一個真正的答案，但它應該引導你朝着正確的方向前進。

嘗試設置消息框的值等於一個變量。像這樣：

If Me.results.ListIndex = -1 Or Me.userfolder.ListIndex = -1 Or 
Me.choice.ListIndex = -1 Then   

MsgBox "Please choose something to remove" 

Else 

    X = MsgBox("Are you sure you want to delete this user from this folder?", vbOKCancel) 

    If X = vbOK Then 'put a breakpoint here 

     If Me.choice.Value = "Folder" Then 

      username = Me.results.Column(0) 
      prfolder = Me.results.Column(3) 

      strSQL = "DELETE tblRelationship.*, tblPra.praNo, tblFolder.folder FROM tblPra INNER JOIN (tblFolder INNER JOIN tblRelationship ON tblFolder.folderID = tblRelationship.folderID) ON tblPra.praID = tblRelationship.praID WHERE (((tblPra.praNo)='" & username & "') AND ((tblFolder.folder)='" & prfolder & "'));" 
      CurrentDb.Execute strSQL 
      Me.results.Requery 

     ElseIf Me.choice.Value = "Username" Then 

      prfolder = Me.results.Column(0) 

      strSQL = "DELETE tblRelationship.*, tblFolder.folder FROM tblPra INNER JOIN (tblFolder INNER JOIN tblRelationship ON tblFolder.folderID = tblRelationship.folderID) ON tblPra.praID = tblRelationship.praID WHERE (((tblFolder.folder)='" & prfolder & "'));" 
      CurrentDb.Execute strSQL 
      Me.results.Requery 

     End If 
    End If 

End If 

然後，檢查X的值，看看它認爲X等於。這應該讓你知道爲什麼If/Then代碼塊不起作用。