Listbox Multiselect

[dr_bioman]

السلام عليكم

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

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

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

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

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

Listbox.rarFetching info...

[متقاعد]

  في 16‏/2‏/2023 at 13:06, dr_bioman said:

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

Expand  

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

 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.accdbFetching info...

[متقاعد]

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

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

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

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

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

 

Listbox.accdbFetching info...

[متقاعد]

طريقة اخرى باستخدام 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.accdbFetching info...

[dr_bioman]

مشكور اخى 

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

 

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

[متقاعد]

  في 16‏/2‏/2023 at 19:44, dr_bioman said:

مشكور اخى 

Expand  

الشكر لله اخي

  في 16‏/2‏/2023 at 19:44, dr_bioman said:

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

Expand  

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

  في 16‏/2‏/2023 at 19:44, dr_bioman said:

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

Expand  

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

[kkhalifa1960]

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

Listbox-D11.accdbFetching info...

[dr_bioman]

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

 

[ابوخليل]

  في 17‏/2‏/2023 at 09:26, dr_bioman said:

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

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

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

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

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

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

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

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

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

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

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

 

Expand  

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

[متقاعد]

  في 17‏/2‏/2023 at 09:26, dr_bioman said:

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

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

Expand  

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

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

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

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

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

 

[dr_bioman]

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

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