Calculate amount student owes after payment made

martin77

Here is what I have for the code keep getting error on

Expand|Select|Wrap|Line Numbers

 'declare variables and assign address to object variables

    Dim strId As String, strPayment As String, curPayment As Currency

    Dim cnnTrip As adodb.Connection, rstPays As adodb.Recordset

    Set cnnTrip = Application.CurrentProject.Connection

    Set rstPays = New adodb.Recordset

    'open the recordset

    rstPays.Open Source:="payments", ActiveConnection:=cnnTrip, _

        CursorType:=adOpenForwardOnly, LockType:=adLockPessimistic

    'enter student ID and amount paid, then convert amount paid to a number

    strId = InputBox(prompt:="Enter ID:", title:="Student ID")

    strPayment = InputBox(prompt:="Enter payment:", title:="Payment", Default:=0)

    curPayment = Val(strPayment)

    'search for ID in ID field, then update the record's Paid and Updated fields

    rstPays.Find criteria:="id = '" & strId & "'"

    'calculate total amount paid

 rstPays.Fields("paid").Value = rstPays.Fields("paid").Value - strPayment 

    'assign current date

    rstPays.Fields("updated").Value = Date

    'save changes to record

    rstPays.Update

    'close the recordset

    rstPays.Close

    Set rstPays = Nothing   'disassociate object variable from object

JConsulting

Quote:

Originally Posted by martin77

Here is what I have for the code keep getting error on

'declare variables and assign address to object variables
Dim strId As String, strPayment As String, curPayment As Currency
Dim cnnTrip As adodb.Connection, rstPays As adodb.Recordset
Set cnnTrip = Application.CurrentProject.Connection
Set rstPays = New adodb.Recordset
'open the recordset
rstPays.Open Source:="payments", ActiveConnection:=cnnTrip, _
CursorType:=adOpenForwardOnly, LockType:=adLockPessimistic
'enter student ID and amount paid, then convert amount paid to a number
strId = InputBox(prompt:="Enter ID:", title:="Student ID")
strPayment = InputBox(prompt:="Enter payment:", title:="Payment", Default:=0)
curPayment = Val(strPayment)
'search for ID in ID field, then update the record's Paid and Updated fields
rstPays.Find criteria:="id = '" & strId & "'"
'calculate total amount paid
rstPays.Fields("paid").Value = rstPays.Fields("paid").Value - strPayment
'assign current date
rstPays.Fields("updated").Value = Date
'save changes to record
rstPays.Update
'close the recordset
rstPays.Close
Set rstPays = Nothing 'disassociate object variable from object

where is it failing?

NeoPa

This is not an acceptable question Martin. We are not a code debugging service!
We can help you by answering specific questions, or we can work with you a little to help you resolve your problems. We do not do the work for you, especially when you give no indication as to what (if anything) you've tried and had trouble with.

If you would like to explain what you're trying to do and where, in the code, your efforts are failing (Error Message etc) then we can consider providing you with some help.

MODERATOR.

Calculate amount student owes after payment made

re: Calculate amount student owes after payment made

re: Calculate amount student owes after payment made

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about