Update (to few parameters, exptected 1 error when fired?

[d9pierce1]

Thank you all,

This seems to work like a charm...\

Private Sub CurrentBalance_AfterUpdate()
Dim strsql As String
Dim db As DAO.Database
Set db = CurrentDb
Me.CurrentBalanceDate = Now()


If Not Me.NewRecord Then
    Select Case Me.cboAccountTypeID


    Case 1, 2, 4 'Asset, Equity or Income
         strsql = "UPDATE tblAccountLedger SET Credit = " & Me.CurrentBalance & " WHERE AccountID=" & Me.AccountID
    Case Else 'Or Case In (3,5,6) Expense,Liability LT and ST
         strsql = "UPDATE tblAccountLedger SET Debit = " & Me.CurrentBalance & " WHERE AccountID=" & Me.AccountID
    End Select
    db.Execute strsql, dbFailOnError
End If


Set db = Nothing


End Sub

Thank you

[Welshgasman]

I would not use case else for the other 3?
What happens if you get another type which is a credit?
Use the else to indicate not catered for.

[d9pierce1]

Thaak you Welshgasman
That is a great point
Thank you