アクセスがサブまたはファンクションで失敗する

Question

このACCESSプログラムを実行すると、NEWUpdateで「失敗する」というサブ機能が定義されています。インポートボタンをクリックして、必要なExcelファイルをインポートします。

Private Sub cmdImport_Click() 
NewUpdate 
Me.Requery 
Me.cboDts.Requery 
Me.cboBiller.Requery 

これは完全です。

Public Function DoFilter() 
Dim mystr As String 
mystr = "1=1" 
If IsNull(Me.cboDept) = False Then 
    mystr = mystr & " and [Description] = '" & Me.cboDept & "'" 
End If 
If IsNull(Me.cboDts) = False Then 
    mystr = mystr & " and [Service_Date] = #" & Format(Me.cboDts, "m/d/yy") & "#" 
End If 
If IsNull(Me.cboBiller) = False Then 
    mystr = mystr & " and [Operator] = '" & Me.cboBiller & "'" 
End If 
If Me.chkNotBilled = True Then 
    mystr = mystr & " and [Billing_Date] Is Null" 
End If 
Me.Filter = mystr 
Me.FilterOn = True 
End Function 


Private Sub cmdImport_Click() 
NewUpdate 
Me.Requery 
Me.cboDts.Requery 
Me.cboBiller.Requery 

End Sub 

Private Sub cmdPrint_Click() 
If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord 
If Me.FilterOn = True Then 
    DoCmd.OpenReport "rptPreprinted", acViewPreview, , Me.Filter 
Else 
    DoCmd.OpenReport "rptPreprinted", acViewPreview 
End If 
End Sub 

Private Sub cmdRefresh_Click() 
Me.Requery 
End Sub 

Private Sub cmdShowAll_Click() 
Me.Filter = "" 
Me.FilterOn = False 
Me.cboDept = Null 
Me.cboDts = Null 
Me.cboBiller = Null 
Me.chkNotBilled = False 
End Sub 

Answer 1

NewUpdate機能は、標準のアクセス機能と共通ライブラリのリストに存在しない、これは、カスタム関数であり、それはどこかに定義されるべきです。このコードをどこかからコピーした場合は、この関数を定義する関数の定義を自分で検索してください。