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

Question

This question is not reproducible or was caused by typos . It is not currently accepting answers.

---

Update the question so it's on-topic for Stack Overflow.

Closed 4 months ago .

Improve this question

I'm trying to all a subroutine from an If statement in Access. I keep getting "Function or Subroutine not Defined" As you can see from my code, I have defined the called routine immediately after the offending routine. What am I missing?? I'm sure that my code will have other issues but I have to get past this issue first.

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