Hi,
  I need to figure out a way to subtotal records based on the following: I am coming up with the total, but it is placing the value at the end of the file. Code is below as well: Can someone please help.

Current Result:
CODE FIELD PRICE
ACQ_1 BOYDELL 20.00
ACQ_1 BOYDELL 100.00
ACQ_1 FULL 30.00
ACQ_2 BANKS 300.00
ACQ_2 BANKS 200.00
ACQ_3 FULLERTON 1000.00

End Result:

ACQ_1 BOYDELL 20.00
ACQ_1 BOYDELL 100.00
        SubTotal 120.00

ACQ_1 FULL 30.00
        SubTotal 30.00

ACQ_2 BANKS 300.00
ACQ_2 BANKS 200.00
        Subtotal 500.00
      .
      :

Private Sub Form_Open(Cancel As Integer)
Dim strFIELD As String
Dim rs As Recordset
Dim db As Database
Dim subTotBOYOIL As Double
Dim subTotBOYGAS As Double
Dim strSQL As String



Set db = CurrentDb

Set rs = db.OpenRecordset("tblGDP", dbOpenDynaset)


With rs
       Select Case rs![FIELD]
          Case "BOYDELL"
            rs.AddNew
            rs![RSV_CLASS] = "Sub Total"
            subTotBOYOIL = DSum("[NET RUN]", "tblGDP", "FIELD = 'BOYDELL'")
            subTotBOYGAS = DSum("[NET SAVE]", "tblGDP", "FIELD = 'BOYDELL'")
            rs![NET RUN] = subTotBOYOIL
            rs![NET OIL] = subTotBOYGAS
            rs.Update
          End Select
End With




rs.Close
db.Close

DoCmd.Close

End Sub





Jai

hi,
based on your last code,using the add new means u want the records to be appended 2 the last records,i will suggest u use a query that will retrieve the records,then make it a form's recordsource,this is an easier method.

my suggestion is based on the fact that from your code its obvious u are coming from the vb coding angle,if u are used to access vba code structures,this solution would have been easier.
alternatively u can create a command that sorts records based on a particular field and either attach it to your code so that it will run automatically orrattache it to a command button.
bye