MS Access運行時錯誤2115

Question

在Ms Access中，我有兩個未綁定的組合框：StateBox和DVPCBox。 StateBox只是美國各州的列表，DVPCBox包含基於StateBox值的查詢中的員工姓名。

我試圖設置DVPCBox的值等於它的列表中的第一個項目。由於Employees列表基於StateBox的值，因此每次StateBox更改時都需要更新DVPCBox的值。我試過如下：

Private Sub StateBox_AfterUpdate() 
    Me.DVPCBox.Requery 
    If (Me.DVPCBox.ListCount = 1) Then 
     Me.DVPCBox.SetFocus 
     Me.DVPCBox.ListIndex = 0 //<-Error here 
    End If 
End Sub 

但我得到運行時錯誤2115 - 設置爲前或有效性規則屬性此字段的宏或功能​​是阻止微軟Office訪問從現場保存數據。

最奇怪的事情對我來說，我甚至不使用前事件或有效性規則（據我所知）。

Answer 1

ItemData(0)是第一個組合框的值。所以設置組合等於。

Private Sub StateBox_AfterUpdate() 
    Me.DVPCBox.Requery 
    If (Me.DVPCBox.ListCount >= 1) Then 
     Me.DVPCBox.SetFocus 
     'Me.DVPCBox.ListIndex = 0 //<-Error here 
     Me.DVPCBox = Me.DVPCBox.ItemData(0) 
    End If 
End Sub 

我也改變ListCount >= 1，因爲我認爲你想要做同樣的事情時，該組合包括2點或更多的行。