从 If 语句中调用子程序 [关闭]

Question

关闭。 此问题不可重现或由拼写错误引起。 它目前不接受答案。

---

想改进这个问题？ 更新问题，使其成为 Stack Overflow的主题。

4 个月前关闭。

改进这个问题

我正在尝试从 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