VBA跳過如果語句在Access 2010

Question

我試圖讓它，以便當用戶從組合框中選擇一個人他們的全部細節顯示，但一些錯誤處理if條件應該返回true

Private Sub ComboOwnerID_Change() 
Dim SelID As Integer 
Dim rs As DAO.Recordset 
Dim db As Database 
Dim strSQL As String 
Dim result As String 
SelID = 0 
SelID = Me.ComboOwnerID.Text 
If Not (SelID = 0) Then 
    If Not (SelID = Null) Then 
     Set db = CurrentDb 
     strSQL = "SELECT * FROM Owners WHERE OwnerID = " + SelID 
     Set rs = db.OpenRecordset(strSQL) 
     Do While Not rs.EOF 
      result = "" 
      result = rs!Title + ". " 
      result = result + rs!Forname + " " 
      result = result + rs!Surname 
      rs.MoveNext 
     Loop 
     Me.lblOwnerName.Caption = result 
    Else 
     Me.lblOwnerName.Caption = "error" 
    End If 
Else 
    Me.lblOwnerName.Caption = "error" 
End If 
End Sub 

它甚至沒有達到SQL位尚未所以我不知道是否可行與否

Answer 1

不要使用VBA中的.text屬性，它是僅當控件有焦點。 VBA中的連接器不是&。當其中一個字符串爲空時使用+可以返回null。

If Not (SelID = Null) Then 
    Set db = CurrentDb 

你的意思是：

If Not IsNull(SelID) Then 
    Set db = CurrentDb