cleteh
07-19-2016, 09:33 AM
I get no errors with the code below but the code doesn't work correctly.
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 for each account with the corresponding file number.
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 for each account with the corresponding file number.
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