I agree. I have been thinking about this since I sent the posting. I need to
record the invoice, but I do not want duplicated data. Can I create a table
that has a unique InvoiceID for each invoice and pointers to the data shown
on the form and printed on the report?

The form that has the command button to print the invoice is fporm with a
subform. The form's control comes from a VB on_open event. The subform uses
an SQL statment. It is after the code. Here is the code (it's long):
Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
   If Not IsLoaded("Clients") Then
       MsgBox "Open the Print Invoice form using the Preview Invoice button
on the Clients form."
       Cancel = True
   End If
End Sub
Private Sub Begin_Date_AfterUpdate()
   Me![Print Invoice Time Subform].Requery
   Me![Print Invoice Expenses Subform].Requery
End Sub
Private Sub End_Date_AfterUpdate()
   Me![Print Invoice Time Subform].Requery
   Me![Print Invoice Expenses Subform].Requery
End Sub
Private Sub Toggle_View_Click()
   If Me![Toggle View].Caption = "&View Expenses" Then
       Me![Print Invoice Time Subform].Visible = False
       Me![Print Invoice Expenses Subform].Visible = True
       Me![Toggle View].Caption = "&View Hours"
   Else
       Me![Print Invoice Expenses Subform].Visible = False
       Me![Print Invoice Time Subform].Visible = True
       Me![Toggle View].Caption = "&View Expenses"
   End If
End Sub
Private Sub PreviewInvoice_Click()
On Error GoTo Err_PreviewInvoice_Click
   DoCmd.OpenReport "Invoice", acPreview, , "[ProjectID]=" & [Project ID]
   Me.Visible = False
Exit_PreviewInvoice_Click:
   Exit Sub
Err_PreviewInvoice_Click:
   MsgBox Err.Description
   Resume Exit_PreviewInvoice_Click
End Sub

Private Sub closePrintInvoi_Click()
On Error GoTo Err_closePrintInvoi_Click
   DoCmd.Close
Exit_closePrintInvoi_Click:
   Exit Sub
Err_closePrintInvoi_Click:
   MsgBox Err.Description
   Resume Exit_closePrintInvoi_Click
End Sub

Private Sub closePrintInvoiceForm_Click()
On Error GoTo Err_closePrintInvoiceForm_Click
   DoCmd.Close
Exit_closePrintInvoiceForm_Click:
   Exit Sub
Err_closePrintInvoiceForm_Click:
   MsgBox Err.Description
   Resume Exit_closePrintInvoiceForm_Click
End Sub

Subform SQL:
SELECT DISTINCTROW [Time Card Expenses].*, [LastName] & ", " & [FirstName] AS
[Employee Name], [Expense Codes].ExpenseCode
FROM Employees INNER JOIN ([Time Cards] INNER JOIN ([Time Card Expenses]
INNER JOIN [Expense Codes] ON [Time Card Expenses].ExpenseCodeID = [Expense
Codes].ExpenseCodeID) ON [Time Cards].TimeCardID = [Time Card Expenses].
TimeCardID) ON Employees.EmployeeID = [Time Cards].EmployeeID
WHERE ((([Time Card Expenses].ExpenseDate)>=[forms]![Print Invoice]![Begin
Date] And ([Time Card Expenses].ExpenseDate)<=[forms]![Print Invoice]![End
Date]) AND (([Time Card Expenses].ProjectID)=[forms]![Print Invoice]![Project
ID]));

Many thanks for even taking this on

Best,
Scott,