Hi all,
I have just a quick question on a message box for different types of strsql and Execute code that are called on, they run
and nothings that says "Upate Sucessful" or anythiing?
Do I add just a regular message box to fire after update complete or is their something else?
Just asking as I dont really know for sure
Code:
Private Sub OpenBalanceUpdate()
Dim strsql As String
Dim db As DAO.Database
Set db = CurrentDb
Me.OpenBalanceDate = Now()
If Not Me.NewRecord Then
Select Case Me.cboAccountTypeID
Case 1, 2, 4 'Asset, Equity or Income
strsql = "UPDATE tblAccountLedger SET Credit = " & Me.OpeningBalance & " WHERE AccountID=" & Me.AccountID
Case Else 'Or Case In (3,5,6) Expense,Liability LT and ST
strsql = "UPDATE tblAccountLedger SET Debit = " & Me.OpeningBalance & " WHERE AccountID=" & Me.AccountID
End Select
db.Execute strsql, dbFailOnError
End If
Set db = Nothing
End Sub
Thanks
Dave