I get no errors with the code below.
The lines in red are supposed to be taking what's in the filed YESTERDAYS_INT_CALC in a query called Daily Interest and adding to the field called TotInt in the Total Interest table.
Each account has it's own file number. So the TotalInterest table has 2 fields FileNo and TotInt.
Private Sub Form_Open(Cancel As Integer)
Dim maxDate As Date
Dim x As Currency
maxDate = DMax("SystemDate", "SystemDate")
If maxDate = Date Then
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO SystemDate (SystemDate) VALUES (Date());"
DoCmd.SetWarnings True
DoCmd.OpenQuery ("Daily Interest")
x = CurrentDb.OpenRecordset("select YESTERDAYS_INT_CALC from [Daily Interest]")(0) + CurrentDb.OpenRecordset("select TotInt from TotalInterest")(0)
CurrentDb.Execute ("insert into TotalInterest (TotInt) values (" & x & ")")
End If
End Sub
The lines in red are supposed to be taking what's in the filed YESTERDAYS_INT_CALC in a query called Daily Interest and adding to the field called TotInt in the Total Interest table.
Each account has it's own file number. So the TotalInterest table has 2 fields FileNo and TotInt.
Private Sub Form_Open(Cancel As Integer)
Dim maxDate As Date
Dim x As Currency
maxDate = DMax("SystemDate", "SystemDate")
If maxDate = Date Then
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO SystemDate (SystemDate) VALUES (Date());"
DoCmd.SetWarnings True
DoCmd.OpenQuery ("Daily Interest")
x = CurrentDb.OpenRecordset("select YESTERDAYS_INT_CALC from [Daily Interest]")(0) + CurrentDb.OpenRecordset("select TotInt from TotalInterest")(0)
CurrentDb.Execute ("insert into TotalInterest (TotInt) values (" & x & ")")
End If
End Sub