(تمت الاجابة) كيف أعرض تقرير يعرض ما تم اختياره من listbox

[alexandrien]

لدي مثال سوف أرفقه لكم وأرجو شرح طريقة عرض تقرير بناءا على اختيار من مربع القائمة

test.zip

تم تعديل نوفمبر 11, 2011 بواسطه alexandrien

[أبو آدم]

أخي العزيز

لا يحتاج لكثير شرح إقرأ الكود فقد جعلته أبسط ما يمكن ، (خلف زر الأمر)

Private Sub cmdOpen1_Click()

On Error Resume Next


	If Me.lstForms1.ItemsSelected.Count > 0 Then

		 DoCmd.OpenReport "employee information in the same project", acViewPreview, , "[project-code] =" & Me!lstForms1.Column(0)

	Else

		MsgBox "Please select a project and then try again.", vbCritical, "Error No Project Selected"

	End If


End Sub

وإضافة بسيطة تتعلق بالتقرير ، في حال عدم وجود معلومات في التقرير إستخدم الكود

Private Sub Report_NoData(Cancel As Integer)

On Error Resume Next

MsgBox "No Data For Any Employee In The Project", vbCritical, "No Employees"

Cancel = True

End Sub

جرب ووافني بالنتيجة على تطبيقك ......

.............

[شامل2]

السلام عليكم

المرفق يفي بالطلب

List1.rar

[حامل المسك]

رائع جدا لكن لوجعلنا lstForms1 متعدد التحديد هل ممكن من خلال الاستعلام الوفاء بالمطلوب أي يكون الخيار لأكثر من واحد ...