riskyinred

I'm getting a bit stuck with this loop as it never moves on to the next record in the table, so that the CallCost field can be calculated for it, and so on until EOF. Can anybody help me?



Do Until rstBaseTable.EOF

MidTextTel = Mid$(iTelNum, 1, 3)
dtaPaymentTable.Refresh

Set rstPaymentTable = dbsPhone.OpenRecordset("SELECT CallPrice FROM PAYMENT WHERE CallPrefix = '" & MidTextTel & "'")
PriceAsInteger = CSng(txtCallPrice.Text)
Debug.Print PriceAsInteger; "PRICEASINTEGER"

Set rstBaseTableCalc = dbsPhone.OpenRecordset("SELECT Duration " _
& "FROM BASE " _
& "WHERE TelNum Like ' & MidTelText &*';")

dtaBaseTable.Refresh
DurationAsString = CStr(txtDurationBase.Text)
CallCost = PriceAsInteger * DurationAsString

AddCallCost rstBaseTableAdding, CallCost

If rstBaseTable.RecordCount > 0 Then

rstBaseTable.MoveNext

End If



Thanks

reboot

Take out the line

If rstBaseTable.RecordCount > 0 Then and the End If that goes with it.