جلب اسم (او مجموعة اسماء) من مربع قائمة لادخالة في رسالة

[كوماندير]

السلام عليكم ورحمة الله وبركاته

اعزائي الكرام :

بالمرفق لدي نموذج ادخال ايراد يومي وتوزيعه حسب الموظفين العاملين بالشفت بالتساوي .

 

عند اختيار موظف او اكثر من DeleteList لحذفهم لأي سبب والضغط على زر امر حذف موظف اريد ان يتم ادراج اسم الموظف او الموظفين المراد حذفهم من هذا الشفت وان تظهر الرسالة كما بالشكل :

لنفترض اننا حددنا من DeleteList ثلاثة موظفين

انت بصدد حذف

( اسم الموظف الاول

و اسم الموظف الثاني

و اسم الموظف الثالث)    
هل انت متأكد والا اعد الاختيار .

بحيث اسم كل موظف بسطر .... وهكذا

اليكم المرفق :
EmploeeCounter.rar

 

 

[صالح حمادي]

السلام عليكم

لقد قمت بإضافة هذا الكود للمرفق:

For i = 0 To DeleteList.ListCount - 1
    If DeleteList.Selected(i) = True Then
        strname = strname & vbCrLf & _
        DeleteList.Column(1, i)
    End If
Next

 

EmploeeCounter.rar

[كوماندير]

شكرا جزيلا اخي صالح حمادي

 

هو المطلوب بالضبط .

[كوماندير]

جزئية بسيطة بقيت وهي كيفية التعامل مع عدد الموظفين بحيث :

لوكان عدد الموظفين المختارين من ال DeleteList  موظف واحد يكون نص الرسالة :

انت بصدد حذف الموظف
فلان

هل انت متأكد .؟

ولو كان عدد الموظفين المختارين اكثر من واحد يتغير نصها الى :

انت بصدد حذف الموظفين

فلان

و فلان

و فلان

هل انت متأكد ؟

[كوماندير]

وجدتها من خلال الكود التالي :

  For i = 0 To DeleteList.ListCount - 1
    If DeleteList.Selected(i) = True Then
        strName = strName & vbCrLf & _
        DeleteList.Column(1, i) & vbCrLf & _
        MyAndLT
    End If
Next
strName = Left(strName, Len(strName) - Len(MyAndLT))

 If Me.DeleteList.ItemsSelected.Count = 1 Then If MsgBox("ÇäÊ ÈÕÏÏ ÍÐÝ ÇáãæÙÝ  " & vbCrLf & _
                strName & vbCrLf & _
                 "åá ÇäÊ ãÊÃßÏ ãä Çäß ÊÑíÏ ÍÐÝ åÐÇ ÇáãæÙÝ ?", vbCrLf & _
                 vbYesNo + vbMsgBoxRtlReading + vbMsgBoxRight + vbQuestion, "ãÍÇæáÉ ÍÐÝ ãæÙÝ ") = vbNo Then Exit Sub
If Me.DeleteList.ItemsSelected.Count > 1 Then If MsgBox("ÇäÊ ÈÕÏÏ ÍÐÝ ÇáãæÙÝíä  " & vbCrLf & _
                strName & vbCrLf & _
                 "åá ÇäÊ ãÊÃßÏ ãä Çäß ÊÑíÏ ÍÐÝ åÄáÇÁÇáãæÙÝ ?", vbCrLf & _
                 vbYesNo + vbMsgBoxRtlReading + vbMsgBoxRight + vbQuestion, "ãÍÇæáÉ ÍÐÝ ÇßËÑ ãä ãæÙÝ ") = vbNo Then Exit Sub
 
    strSQL = "DELETE FROM tblShiftEmploDetils WHERE DetailID IN (" & strSet & ")"
   

CurrentDb.Execute strSQL