MS Access:SQL语句出现对象必需错误

我理解这个错误背后的含义，但我不知道为什么他在我的代码行下面划线，这应该是导致这个错误的原因

说明： 我想实现的是，当您从

公司通讯录框

中选择一家公司时，它会自动“过滤”来自上述公司的联系人组合框。

companys

和

Contacts

是两个不同的表，通过名为companys Query的查询进行连接（company中的

CompanyNr

[这也是UniqueKey]与Contacts中的

CompanyNr

进行连接）

部分代码：

Private Sub CompanyCombo_Change()
    Dim sql1 As String
    ' The below code causes the Objecr required error
    sql1 = "SELECT [Contacts].[ID], [Contacts].[Contact] FROM Contacts " & _
           "WHERE [Contacts].[CompanyNr] = " & CompanyNr.Value & " ORDER BY [Contact]; "

    ContactNrCombo.RowSource = sql1
    ContactNrCombo.Requery
End Sub

我有一个用于公司和联系人的组合框，我想在它们旁边写上相应的号码（CompanyNr用于公司，ContactNr用于联系人）

它们与查询相连接

我对VBA很陌生，所以可能我没有看到可能导致错误的原因

联系人和公司的表格： 联系人表有：ID、CompanyNr、Contact 公司表有：CompanyNr，Company

CompanyNr通过关系连接

我真的不知道这里会出什么问题。我用创建时弹出的向导创建了组合框

---

请大家帮帮我。

请试一试，因为这个问题目前没有提供足够的信息：
WHERE行不应该指CompanyCombo而不是CompanyNr吗

"WHERE [Contacts].[CompanyNr] = " & CompanyCombo.Value & " ORDER BY [Contact]; "

---

这个问题似乎离题了，因为OP似乎缺乏基本的调试技能，而且围绕调试这个问题的任何帮助都太广泛了。我看到的唯一对象访问是

CompanyNr

。检查这是否真的是表单中某个控件的名称。@vba4all那么，我应该将整个代码复制到这里吗？或者发布表格的截图？你期待什么？让我知道，我会把它贴在这里。我尽力提供尽可能多的信息@AndroidNFC@grahamj42是的，我也注意到了，但是CompanyNr被设置为combox的控制源（在我的案例中称之为CompanyCombo）。这就是为什么我不知道出了什么问题。谢谢@iDevlop，这似乎解决了我的问题。我想我把那句话弄糊涂了。再次感谢！