Aamer:
You could try a slightly different approach, which uses a list box, as you
did originally, but also has the added bonus of allowing you to select more
than one company if desired from the list, and open a single report for all
the selected companies. This not preclude your selecting just one company of
course.
To do this set up the list box like this:
For its RowSource property:
SELECT CoId, [pur companyname] FROM [Company Names] ORDER BY [pur companyname]
;
For its other properties:
Name: [lstpur companyname]
BoundColumn: 1
ColumnCount: 2
ColumnWidths: 0cm;8cm
MultiSelect: Simple or Extended as preferred.
If you are using imperial rather than metric units Access will convert them
automatically.
Add a button to the form to open the report, with the following in its Click
event procedure:
Dim varItem As Variant
Dim strCompanyIDList As String
Dim strCriteria As String
Dim ctrl As Control
Set ctrl = Me.[lstpur companyname]
If ctrl.ItemsSelected.Count > 0 Then
For Each varItem In ctrl.ItemsSelected
strCompanyIDList = strCompanyIDList & "," & ctrl.ItemData(varItem)
Next varItem
' remove leading comma
strCompanyIDList = Mid(strCompanyIDList, 2)
strCriteria = "CoID In(" & strCompanyIDList & ")"
DoCmd.OpenReport "GP PW3 Report", _
View:=acViewPreview, _
WhereCondition:=strCriteria
Else
MsgBox "No companies selected", vbInformation, "Warning"
End If
As you are filtering the report on the basis of the CoId column rather than
the company name this does mean that the report's underlying query must
include the CoId column of course, even though you won't show it in the
report.
Ken Sheridan
Stafford, England
AAAAAAAHHHHHHHHHH!!!!!!!!!!!
am going nutz trying to fix this issue. i tried everything you said, even
put the customer id
lets see what i am doing wrong.
1. Made a form named it Dialog PW3
2. Placed a Combo Box "SELECT [Company Names].CoId FROM [Company Names];"
......... CoId is COMPANY ID
3. In the properties of the combo box , in Event Procedure After Update I
added the following code
DoCmd.OpenReport "GP PW3 Report", , , "[Company Names] = """ _ & Me.[lstpur
companyname] & """"
4. after i select the Company Name Or Company ID it should run GP PW3 Report.
the report querry name name is GP PW3 Querry
Please if you could help me sort out this problem it would be appreciated.
or i can get some sort of sample that would be helpful.
or if u want i can send you my working so u can see the problem and guide me.
thank u so much for your efforts.
regards
aamer sheikh
I still think that you need to use the CompanyID and not the CompanyName.
Make it the first column of your list box and set its column width to
[quoted text clipped - 58 lines]
--
.
