Code Error on Subform.Cant find table or query?

[burrina]

Here is the error;
The Microsoft Jet database engine cannot find the input table or query 'OrdersPaymentSub'. Make sure it exists and that its name is spelled correctly.


I have a subform named as above on the main form named Add an Order and Details.It is where I enter payments for the Order and then they are applied to the Order Amount Due.

[June7]

Domain aggregate functions (DSum, DCount, DLookup, etc.) cannot refer to a form or report as data source. They must refer to table or query for data. Also, variables must be concatenated into the argument. Reference to form control is a variable. You have spaces in names. They must be included and the name enclosed in [].
This expression DSum("Payment", "OrdersPaymentSub", "OrderID=Forms!AddanOrderandDetails!OrderID") doesn't make sense. Payment field is not in Orders table and OrderID is not in TPaymentSub.

I don't see a common id field that links these two tables. How are these tables related?

Have you run Debug>Compile?

[burrina]

Thanks for taking the time to look at it. I have just fixed the problem. I did a complete rewrite of the db. Now, just a little more testing and it is ready to go. If you get time I could use some help with a multi If statement or at least what direction to take.

Right now I am using 4 different textboxes and making them visible or not. Status is hidden on form,limited to list.

Private Sub Form_Current()

If txtOrderTotal > 0 Then 'Balance is Due textbox that says Balance is Due
txtowed1.Visible = True
Else
txtowed1.Visible = False
End If

If txtOrderTotal < 0 Then 'Overpaid, Credit is Due textbox that says Credit is Due
txtowed2.Visible = True
Else
txtowed2.Visible = False
End If

If txtOrderTotal = 0 Then 'Paid in Full textbox that says Paid in Full
txtowed3.Visible = True
Else
txtowed3.Visible = False
End If

If txtOrderTotal = 0 Then ' Set Value to Paid in Full if Balance is Zero.Status is either Due or Paid in Full
SetValue.Status = "Paid in Full"
End If

End Sub

[June7]

Don't see anything wrong with that code. Are you getting error or is not working right? Consider:

Private Sub Form_Current()
txtowed1.Visible = txtOrderTotal > 0
txtowed2.Visible = txtOrderTotal > 0
txtowed3.Visible = txtOrderTotal > 0
If txtOrderTotal = 0 Then Me.Status = "Paid in Full"
End Sub