Listbox Multiselect

[dr_bioman]

السلام عليكم

يوجد ليست بوكس فيه اسامى التقارير ولها خاصية Multiselect

ويوجد زر امر Open Report

كيف عند تحديد اكثر من تقرير فى الليست بوكس والضغط على زر الامر Open Report يتم فتح التقارير فى نفس الوقت ومن ثم طباعتها

كتبت الكود ولكن مش ظابط

شكرا جزيلاااا

Listbox.rar

[متقاعد]

2 ساعات مضت, dr_bioman said:

كيف عند تحديد اكثر من تقرير فى الليست بوكس والضغط على زر الامر Open Report يتم فتح التقارير فى نفس الوقت ومن ثم طباعتها

جرب في زر الامر اكتب

 Dim k As Variant
 Dim r As String
   For Each k In Me.List2.ItemsSelected
   r = Me.List2.ItemData(k)
   DoCmd.OpenReport r, acViewPreview
   Next k

الملف مرفق

 

Listbox.accdb

[متقاعد]

امر اخير لماذا تتعب نفسك بكتابة اسماء التقارير في الليست بوكس

وكلما اضفت تقرير تقوم باضافة اسمه

بينما ممكن جعل مصدر الليست

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32764));

وهنا تجد ان اي تقرير تعمله تجد اسمه موجود تلقائي

 

Listbox.accdb

[متقاعد]

طريقة اخرى باستخدام for next

Dim k As String
Dim i As Integer
For i = 0 To List2.ListCount - 1
If List2.Selected(i) = True Then
k = List2.Column(0, i)
DoCmd.OpenReport k, acViewPreview
End If
Next i

الملف مرفق

 

Listbox.accdb

[dr_bioman]

مشكور اخى 

نعم هذا هو المطلوب

 

جزاك الله خيرا

[متقاعد]

2 دقائق مضت, dr_bioman said:

مشكور اخى 

الشكر لله اخي

2 دقائق مضت, dr_bioman said:

نعم هذا هو المطلوب

بالتوفيق ونتوقف هنا

2 دقائق مضت, dr_bioman said:

جزاك الله خيرا

ولك بالمثل واكثر

[kkhalifa1960]

بعد اذنك أخي متقاعد  ممكن أضيف زر تحديد وزر عدم تحديد الكل .

Listbox-D11.accdb

[dr_bioman]

شجعتوني بصراحه علي طلب اخر

وهو جعل الامور تتم بصوره تلقائيه يعني بدل من عمل ليست بوكس 

يوجد نموزج فرعي فيه نتائج تحاليل لمريض ومصدره جدول Test

وكل تحليل يكون له ريبورت خاص بيه 

واحيانا بعض التحاليل لها نفس الريبورت

ويوجد حقل في الجدول Test اسمه Reportname

المقصد هو كيف يمكن تطبيق دالة for.. Next

علي جدول وليس listbox

سأقوم برفع قاعدة بيانات للتوضيح ولكني في نباطشيه بالمستشفي اليوم

وشكرا علي مجهودكم معي

بالتوفيق دايما

 

 

 

 

 

[ابوخليل]

1 ساعه مضت, dr_bioman said:

شجعتوني بصراحه علي طلب اخر

وهو جعل الامور تتم بصوره تلقائيه يعني بدل من عمل ليست بوكس 

يوجد نموزج فرعي فيه نتائج تحاليل لمريض ومصدره جدول Test

وكل تحليل يكون له ريبورت خاص بيه 

واحيانا بعض التحاليل لها نفس الريبورت

ويوجد حقل في الجدول Test اسمه Reportname

المقصد هو كيف يمكن تطبيق دالة for.. Next

علي جدول وليس listbox

سأقوم برفع قاعدة بيانات للتوضيح ولكني في نباطشيه بالمستشفي اليوم

وشكرا علي مجهودكم معي

بالتوفيق دايما

 

اختلف الموضوع .. فضلا افتح موضوعا بعنوان جديد بطلبك

[متقاعد]

6 ساعات مضت, dr_bioman said:

المقصد هو كيف يمكن تطبيق دالة for.. Next

علي جدول وليس listbox

الحقيقة ان التعامل مع الجدول اسهل من التعامل مع مربع القائمة

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

ثم نعمل متغير نصي ياخذ قيمته من حقل Reportname

ونستخدم المتغيير للتعويض عن اسم التقرير وتوجد طرق اخرى ولكن هذا مافكرت به

ولكن كما اشار استاذنا الفاضل @ابوخليل هذا طلب مختلف ويتطلب له موضوع جديد

 

[dr_bioman]

سأقوم بعمل موضوع جديد وارفاق قاعدة البيانات عند عودتي من العمل 

جزاكم الله خيرااا