Problem displaying correct record:(

[Freddie81]

Im building a Datasheet showing transactions (invoices and payments). I want to have the user click on the InvTotal field on the sheet and this opens a form called TransactionF. On this form, it shows info from a union query. The problem is It only shows the same record no matter which record I click on. How can I get it to check the invoice number (When I click the amount field it should check the invoice ID and only show the records for that specific invoiceID)
My code currently is
Private Sub InvTotal_Click()
Const DataForm As String = "TransactionF"
If Not IsNull(InvTotal) Then
DoCmd.OpenForm DataForm, WhereCondition:="[InvoiceID]=" & [InvoiceID] & ""
Else
MsgBox "Oops"
'DoCmd.OpenForm DataForm


'DoCmd.GoToRecord , , acNewRec
End If
End Sub

[Micron]

Try moving your event to the Current event of the form, which can give you the value from the field/control you ask for that pertains to the particular record that you select. IIRC, your current method will always return the 1st record.

[ssanfu]

Since you want to open a form from the control, I changed the event to the double click event.
And I don't like negative logic (NOT IsNull() ), so I changed the order of the IF() test.

Try this:

Option Compare Database  '<<-- should be at top of EVERY Module
Option Explicit          '<<-- should be at top of EVERY Module

Private Sub InvTotal_DblClick(Cancel As Integer)
    Const DataForm As String = "TransactionF"

    '#############################
    'for debugging - comment out/delete the following line after debugging
    MsgBox "InvTotal = " & Nz(Me.InvTotal, "NULL") & ";  InvoiceID = " & Nz(Me.InvoiceID, "NULL")
    '#############################


    If IsNull(Me.InvTotal) Then
        MsgBox "Oops"
        'DoCmd.OpenForm DataForm
        'DoCmd.GoToRecord , , acNewRec
    Else
        DoCmd.OpenForm DataForm, WhereCondition:="[InvoiceID]=" & Me.InvoiceID
    End If
    
End Sub