كوماندير قام بنشر مارس 12, 2017 مشاركة قام بنشر مارس 12, 2017 السلام عليكم ورحمة الله وبركاته اعزائي الكرام : بالمرفق لدي نموذج ادخال ايراد يومي وتوزيعه حسب الموظفين العاملين بالشفت بالتساوي . عند اختيار موظف او اكثر من DeleteList لحذفهم لأي سبب والضغط على زر امر حذف موظف اريد ان يتم ادراج اسم الموظف او الموظفين المراد حذفهم من هذا الشفت وان تظهر الرسالة كما بالشكل : لنفترض اننا حددنا من DeleteList ثلاثة موظفين انت بصدد حذف ( اسم الموظف الاول و اسم الموظف الثاني و اسم الموظف الثالث) هل انت متأكد والا اعد الاختيار . بحيث اسم كل موظف بسطر .... وهكذا اليكم المرفق :EmploeeCounter.rar رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر مارس 12, 2017 مشاركة قام بنشر مارس 12, 2017 السلام عليكم لقد قمت بإضافة هذا الكود للمرفق: 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 2 رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر مارس 12, 2017 الكاتب مشاركة قام بنشر مارس 12, 2017 شكرا جزيلا اخي صالح حمادي هو المطلوب بالضبط . 1 رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر مارس 13, 2017 الكاتب مشاركة قام بنشر مارس 13, 2017 جزئية بسيطة بقيت وهي كيفية التعامل مع عدد الموظفين بحيث : لوكان عدد الموظفين المختارين من ال DeleteList موظف واحد يكون نص الرسالة : انت بصدد حذف الموظف فلان هل انت متأكد .؟ ولو كان عدد الموظفين المختارين اكثر من واحد يتغير نصها الى : انت بصدد حذف الموظفين فلان و فلان و فلان هل انت متأكد ؟ رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر مارس 13, 2017 الكاتب مشاركة قام بنشر مارس 13, 2017 وجدتها من خلال الكود التالي : 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 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان