VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsTransaction"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database
Option Explicit

Public TransID As Long
Public Branch As String
Public TxnDate As Date
Public Amount As Currency
Public RefNo As String

Public Function IsValid() As Boolean
    IsValid = (Amount > 0) And (Len(Trim(RefNo)) > 0) And (Branch <> "") _
              And (TxnDate > DateSerial(2000, 1, 1))
End Function