Dear All,
i am Getting Error while to apply the VBA.
here is my VBA Code:
Option Compare Database
Private Sub Form_AfterUpdate()
Call Form_Current
End Sub
' make this Public so we can call in subform
Public Sub Form_Current()
Me.TotalInv = Nz(DSum("[InvAmount]", "[PR 33101]", "[PR Number]=" & Me![PR Number]), 0)
Me.Remaining = Nz(Me![PR Amount], 0) - Nz(Me.TotalInv, 0)
End Sub
and Here Is the Error:
The Expression you entered as a Query Parameter produced this error: '[InvAmount]'
How can i Solve this?
i am Getting Error while to apply the VBA.
here is my VBA Code:
Option Compare Database
Private Sub Form_AfterUpdate()
Call Form_Current
End Sub
' make this Public so we can call in subform
Public Sub Form_Current()
Me.TotalInv = Nz(DSum("[InvAmount]", "[PR 33101]", "[PR Number]=" & Me![PR Number]), 0)
Me.Remaining = Nz(Me![PR Amount], 0) - Nz(Me.TotalInv, 0)
End Sub
and Here Is the Error:
The Expression you entered as a Query Parameter produced this error: '[InvAmount]'
How can i Solve this?