I am using 3 subforms, 2 visible, 1 hidden.
frmFilters is a filter selection form.
frmArchives displays all records (abridged) in a continuous form.
frmArchiveTicketDisplay is a single record detail viewer which is hidden.
The filters are working fine, allowing multiple filters.
I am trying to write code so that when you doubleclick the PrimaryKey in the
frmArchives, it populates the relative fields of the frmArchiveTicketDisplay
and makes it visible.
I have successfully made it visible/not visible in the code, but it will
always default to the first record in the table.
I have been able to record the value of the PrimaryKey into a Global
Variable intTicketID. How can I use this variable to populate the
frmArchiveTicketDisplay with all of the fields from that particular recordset?
I have tried using a query, but cannot get the filter to work, so it still
displays the first record, or is blank (due to filter type mismatch).
I also tried putting a filter on the form, but I don't think that will work,
because a filter of that type is set on form load, and since the form is
already open, and just hidden, I need to make the fields change to the new
record.
Here is what I have so far:
Private Sub oTicketNumber_DblClick(Cancel As Integer)
' This properly sets intTicketID with the PrimaryKey value of the
recordset I want to display (intTicketID is Defined in a module as a global
integer variable)
intTicketID = Me.oTicketNumber
' This displays the current value of intTicketID.
MsgBox "intTicketID in the form is " & intTicketID
' The following line calls a module function to test the value of the
GlobalVar intTicketID
DisplayGlobal
' This one passes the value of intTicketID to a module and tests it there
as well
fTicketSelect (intTicketID)
Forms![frmDefaultMain]![frmManagement].Form![frmArchiveTicketDisplay].Visible
= True
Forms![frmDefaultMain]![frmManagement].Form![frmArchiveTicketDisplay].SetFocus
Exit_oTicketNumber_DblClick:
Exit Sub
Err_oTicketNumber_DblClick:
MsgBox Err.Description
Resume Exit_oTicketNumber_DblClick
End Sub
The following is the contents of the module I have to control this variable
(testing right now)
Option Compare Database
Public intTicketID As Integer
Public Function fTicketSelect(intTicketID) As Integer
dim intTest As Integer
intTest = "" & intTicketID & ""
MsgBox "intTicketID in the passing module is " & intTest
End Function
Public Function DisplayGlobal() As Integer
MsgBox "intTicketID in the global is " & intTicketID
End Function
I am open to suggestions to get the hidden form to show only this recordset
in the frmArchiveTicketDisplay form when it becomes visible.
--
Michael Stanbarger
Air Freight Coordinator
CRST Van Expedited
|
|