Question

我在这里查看了其他答案，但他们还没有帮我弄清楚发生了什么。我需要从表单的On Current和On Load属性中清除此错误。我得到了错误背后的概念 - 这意味着我的代码中有一个名称是＆＃34;保留＆＃34;从某种意义上说，它已经被用于其他东西。但我无法找到被分享的内容！

更新 - 看起来我的一个组合框的After_Update子也产生了这个错误。如果被要求，我将添加此子代码。

On Current Sub：

Private Sub Form_Current()

' This will be done when Form will be opened and when record will be changed / browsed

On Error Resume Next

'load_vendor

load_vendor2

DoCmd.RefreshRecord

Totals

End Sub

加载次级

Private Sub Form_Load()

    CBQuote.RowSource = "CBQuote(NotClosed)"

    Check1354.Value = 0

Combo382.RowSource = "SELECT [CBPrimeContact].[PrimeContactID], [CBPrimeContact].[Contact Name]" & _
" FROM CBPrimeContact" & _
" ORDER BY [CBPrimeContact].[Contact Name];"


Combo320.RowSource = "SELECT [CBCompanyContact].[ContactID], [CBCompanyContact].[CompanyID], [CBCompanyContact].[Expr1]" & _
" FROM CBCompanyContact" & _
" ORDER BY [Expr1];"


customer_updates


'Combo672.RowSource = "SELECT [CBCompanyContact].[ContactID], [CBCompanyContact].[CompanyID], [CBCompanyContact].[Expr1]" & _
" FROM CBCompanyContact" & _
" ORDER BY [Expr1];"

    Me.CBQuote = Me.CBQuote.ItemData(0)

    search_record


    TabCtl952.Enabled = False

    autofit_subform1    '6-23

    update_ga

End Sub

Ms：成员已存在于对象模块

0 个答案: