從 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