By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
426,222 Members | 1,123 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 426,222 IT Pros & Developers. It's quick & easy.

access 97 - runtime error '2465'

P: n/a
hello

i receive a runtime error '2465' whenever i run my module in access
97. it says
'Run-time error '2465'

OOB Reports can't find the field "DuplicatePayments' referred to in
your expression.

You may have misspelled the field name or the field may have been
renamed or deleted.'

however i checked the tables i have referred in the following module.
any advise would be greatly appreciated.

thanks! jmcn

Public Sub RecoCleaner()

Dim loop1 As Long
Dim dummy As String
Dim numloans As Long
Dim loopy As Long
Dim spot As Long
Dim accnum As String
Dim intnum As String
Dim CashBal As String
Dim totalbucket As String
Dim cashrecv As String
Dim securecv As String
Dim totalunpr As String
Dim futuredue As String
Dim duplicatepay As String
Dim lumpcash As String
Dim diff As String
Dim x As Long
Dim recox As Long
Dim data(90000, 12) As String
Dim SSQL As String
Dim db As String
Dim numloans2 As Integer
Dim a As Variant
Dim notfound As Long
Dim dbs As Database
Dim rstOrders As Recordset, rstSorted As Recordset
Set dbs = CurrentDb
'Open Reco33 info into form
DoCmd.OpenForm "frmRECO33OOB"
Forms!frmRECO33OOB.Requery

'Count records
recox = DCount("*", "RECO33OOB")
numloans = 0
spot = 1

'Populate desired info into data array

DoCmd.GoToRecord acForm, "frmRECO33OOB", acFirst
Do Until spot >= recox

DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot

If Forms![frmRECO33OOB]![Field1] = " LOAN ACCOUNT" Then
spot = spot + 5
DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot

'Check to make sure the loan didn't bomb
If Forms![frmRECO33OOB]![Field1] <> " Loan ignored" Then
spot = spot - 3

DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot
numloans = numloans + 1
accnum = Forms![frmRECO33OOB]![Field1]

intnum = right$(Forms![frmRECO33OOB]![Field3], 6)

spot = spot + 2
DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot
CashBal = Forms![frmRECO33OOB]![Field2]

spot = spot + 2
DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot
totalunpr = Forms![frmRECO33OOB]![Field4]
lumpcash = Forms![frmRECO33OOB]![Field5]

spot = spot + 1
DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot
futuredue = Forms![frmRECO33OOB]![Field4]
totalbucket = Forms![frmRECO33OOB]![Field2]

spot = spot + 2
DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot
cashrecv = Forms![frmRECO33OOB]![Field2]
duplicatepay = Forms![frmRECO33OOB]![Field4]

spot = spot + 1
DoCmd.GoToRecord acForm, "frmRECO33OOB", acGoTo, spot
securecv = Forms![frmRECO33OOB]![Field2]
diff = Forms![frmRECO33OOB]![Field5]

data(numloans, 1) = accnum
data(numloans, 2) = intnum
data(numloans, 3) = CashBal
data(numloans, 4) = totalbucket
data(numloans, 5) = cashrecv
data(numloans, 6) = securecv
data(numloans, 7) = totalunpr
data(numloans, 8) = futuredue
data(numloans, 9) = duplicatepay
data(numloans, 10) = right$(lumpcash, 16)
data(numloans, 11) = right$(diff, 16)

End If
End If

If spot <= recox Then
spot = spot + 1
End If

Loop

'Populate new Table with Clean data
DoCmd.OpenForm "frmCleanData"
For x = 1 To numloans
Forms![frmCleanData]![LoanAccount].Value = Trim$(data(x,
1))
Forms![frmCleanData]![Internal].Value = Trim$(data(x, 2))
Forms![frmCleanData]![CashBal].Value = Trim$(data(x, 3))
Forms![frmCleanData]![totalbucket].Value = Trim$(data(x,
4))
Forms![frmCleanData]![CashReceivables].Value =
Trim$(data(x, 5))
Forms![frmCleanData]![SecuReceivables].Value =
Trim$(data(x, 6))
Forms![frmCleanData]![totalunpr].Value = Trim$(data(x, 7))
Forms![frmCleanData]![FutureDueItems].Value =
Trim$(data(x, 8))

'runtime error '2465'
Forms![frmCleanData]![DuplicatePayments].Value = Trim$(data(x, 9))
Forms![frmCleanData]![lumpcash].Value = Trim$(data(x, 10))
'runtime error '2465' too...
Forms![frmCleanData]![Differences].Value = Trim$(data(x, 11))

If x <> numloans Then
DoCmd.GoToRecord acForm, "frmCleanData", acNewRec
End If
Next x
' Create dynaset-type Recordset object.
Set rstOrders = dbs.OpenRecordset("Clean Data", dbOpenDynaset)
' Set sort order.
rstOrders.Sort = "LoanAccount"
DoCmd.Close

End Sub
Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
please disregard this post. i ended up renaming the fields and it worked.
thanks jmcn

pi******@yahoo.fr (JMCN) wrote in message news:<27**************************@posting.google. com>...
hello

i receive a runtime error '2465' whenever i run my module in access
97. it says
'Run-time error '2465'

OOB Reports can't find the field "DuplicatePayments' referred to in
your expression.

You may have misspelled the field name or the field may have been
renamed or deleted.'

however i checked the tables i have referred in the following module.
any advise would be greatly appreciated.

thanks! jmcn

Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.