I forget ..
My first form haven't any Code but my 2nd has
Option Compare Database
Sub Form_Current()
Dim ParentDocName As String
On Error Resume Next
ParentDocName = Me.Parent.Name
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
Me.Parent![frm_Transactions].Requery
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
I don't know if it's usefull
thats what i think is can i a put a text field from my form to query and then to report?
Like
SQL:
TOTAL:[Forms]![frm_Customers]![Total]
I try it but dont work
the holle systax is
SELECT tbl_Customers.LastName, tbl_Customers.FisrtName, tbl_Agreements.CarId, tbl_Customers.CustomerId, tbl_Agreements.AgreementId, Forms!frm_Customers!Totals AS newtotalL
FROM tbl_Customers INNER JOIN (tbl_Agreements INNER JOIN tbl_Transactions ON tbl_Agreements.AgreementId = tbl_Transactions.AgreementId) ON tbl_Customers.CustomerId = tbl_Agreements.CustomerId
GROUP BY tbl_Customers.LastName, tbl_Customers.FisrtName, tbl_Agreements.CarId, tbl_Customers.CustomerId, tbl_Agreements.AgreementId, Forms!frm_Customers!Totals
HAVING (((tbl_Customers.LastName)=[Forms]![frm_Customers].[LastName]) AND ((tbl_Customers.FisrtName)=[Forms]![frm_Customers].[FisrtName]) AND ((tbl_Agreements.CarId)=[Forms]![frm_Customers]![frm_Agreements].[Form]![CarId]));