Hi mike60smart. Thanks for reply.
That query is source to populate ListBox in the parent form:
Code:
SELECT tblRequests.RequestID, tblRequests.RequestDate AS [Date], [tblRequests].[FirstName] & " " & [tblRequests].[LastName] AS [Employee Name], tblRequests.TicketNo, tblRequests.Amount, tblDepartments.Department, [qDevices].DeviceType & " " & [qDevices].Brand & " " & [qDevices].Model AS Device, IIf(Len([qLocations].[Facility] & " " & [qLocations].[Building] & " " & [qLocations].[Wing] & [qLocations].[Floor] & "-" & [qLocations].[Room])>3,[qLocations].[Facility] & " " & [qLocations].[Building] & " " & [qLocations].[Wing] & [qLocations].[Floor] & "-" & [qLocations].[Room],"") AS Location, tblRequests.DeviceID, tblRequests.LocationID
FROM tblDepartments
RIGHT JOIN ((tblRequests
LEFT JOIN qDevices ON tblRequests.DeviceID = qDevices.DeviceID)
LEFT JOIN qLocations ON tblRequests.LocationID = qLocations.LocationID)
ON tblDepartments.DepartmentID = tblRequests.DepartmentID;
That query is source of child form:
Code:
SELECT tblRequests.RequestID, tblRequests.RequestDate, tblRequests.Department, tblRequests.FirstName, tblRequests.LastName, tblRequests.TicketNo, tblRequests.Amount, tblRequests.DeviceID, tblRequests.LocationID, tblRequests.DepartmentID
FROM tblRequests;
For double click event I created such code:
Code:
Public Sub MaintainList(vNew As Integer)
Dim stDocName As String
Dim FormArg As String
Dim stLinkCriteria As String
stDocName = "fRequest"
FormArg = lstRequest.Column(0) + "," + lstRequest.Column(6) + " - " + lstRequest.Column(7)
If vNew = 1 Then
stLinkCriteria = "RequestID= " & lstRequest.Column(0)
DoCmd.OpenForm stDocName, acNormal, , stLinkCriteria, , , FormArg
End If
End Sub
Private Sub lstRequest_DblClick(Cancel As Integer)
MaintainList 1
End Sub
But unfortunately when I double click record in ListBox of parent form the child form is opening empty. I will appreciate if you will show where is my wrong.
Thanks.