Dim rng1 As Range
Dim rng2 As Range

'Finding last cell

  Dim lRealLastRow As Long
  Dim lRealLastColumn As Long
  Range("A1").Select
  On Error Resume Next
  lRealLastRow = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, _
                                               xlPrevious).Row
  lRealLastColumn

With Me
  CmdPreviousRecord.Enabled = ((.Recordset.AbsolutePosition > 0) Or (.NewRecord))
  CmdNextRecord.Enabled = ((.Recordset.AbsolutePosition <> .Recordset.RecordCount

 Dim rst As Recordset
   Set rst = Me.Recordset
   If rst.AbsolutePosition = 0 Then
   Command28.Enabled = False
   Else
   Command28.Enabled = True
   End If

   Dim rst As Recordset
   Set rst = Me.RecordsetClone

If Current Record = BOF
then Command82.Enabled = False 
End if

(IIf ([Org-code] = '601', sum (amount)) -
IIf