vba - 从 If 语句中调用子程序

Question

我正在尝试从 Access 中的 If 语句中获取所有子例程。我不断收到“未定义函数或子例程”正如您从我的代码中看到的那样，我已经在有问题的例程之后立即定义了被调用的例程。我错过了什么？？我确信我的代码会有其他问题，但我必须先解决这个问题。

Private Sub Load_Contract_Table()

Set daDb = CurrentDb

Dim daRs As DAO.Recordset
Dim sSql As String
Dim ContractID As String
Dim tblContractList As DAO.Recordset

Dim svContract As String

svContract = " "

Do Until daRs.EOF
daRs.MoveFirst

If tabContracts.Contract <> svContract Then
   AddConract
End If
   daRs.MoveNext
   Loop

 End Sub


 Public Sub AddContract()
    svContract = tabContracts.Contract
    Set tblContract_List = CurrentDb.OpenRecordset("SELECT * FROM [tblContactList]")
    tblContract_List.AddNew
    tblContract_List![Contract] = tabContracts.Contract
    tblContract_List.Update


    tblContract_List.Close
    Set tblContract_List = Nothing
     DoCmd.Close
   End Sub

标签： vba