التعديل على فورم حضور وانصراف

[أبو قاسم]

السلام عليكم 

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

وكذلك الانصراف 

يوجد توضيح في الملف

تم التعديل على الملف في السابق من الاستاذ : الصقر

حضور وانصراف1.rar

[أبو حنــــين]

السلام عليكم

بالنسبة للسؤال الاول قم بما يلي

امسح الخاصية RowSource  لكل من الكمبوبكس الاول ة الثاني

ثم انسخ هذا الكود

بالنسبة للسؤال  الثاني لم افهم المقصود

 

Private Sub UserForm_Initialize()

ComboBox1.Clear
ComboBox2.Clear
Dim R As Long
    With Sheets("æÑÞÉ1")
        For R = 2 To .Range("A" & .Rows.Count).End(xlUp).Row + 1
        If CDate(.Cells(R, 3)) = Date Then
        If Application.WorksheetFunction.CountIf(.Range("A2:A" & R), .Cells(R, 1)) = 1 Then
        ComboBox1.AddItem CStr(.Range("A" & R))
        ComboBox2.AddItem CStr(.Range("A" & R))
        End If
        End If
        Next R
        End With


End Sub

 

[أبو قاسم]

ربنا يبارك فيك السؤال الثاني اعمل انصراف لاي اسم غير محضر  فترسل البيانات بلاء هدف 

[أبو حنــــين]

لو تلاحظ ان الكمبوبكس الثاني و الاول لا يحضران إلا الاسماء الموجودة في نفس اليوم الحالي

و بالتالي الانصراف سيكون قطعا لشخص موجود فعلا

[أبو قاسم]

تم عمل اللازم لاكن لم تنجح في عمل الكود ارجو تجربتة على ملفي اذا تكرمت

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

[أبو حنــــين]

و الله لم افهم القصد

ما هي الحالة التي لا يمكن فيها للشخص عدم السماح بالانصراف

هل هناك شروط

[أبو قاسم]

مثلا  مقبل جمال علي يستطيع التحضير عدة مرات بنفس اللحظة لايوجد  ضابط ان يحضر لامرة واحدة فقط

[أبو حنــــين]

غير كود الانصراف بالكود التالي

Private Sub CommandButton3_Click()
Application.DisplayAlerts = False
'On Error Resume Next
Sheets("ورقة1").Visible = True
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("ورقة1")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iRow
'-------------------------------------------------------------------------
If Cells(i, 1).Value = Me.ComboBox2.Value And Cells(i, 6).Value <> "" Then GoTo 1
'-------------------------------------------------------------------------
If Cells(i, 1).Value = Me.ComboBox2.Value And Cells(i, 6).Value = "" Then

Cells(i, 5).Value = Format(Now, "hh:mm:ss")
Cells(i, 6).Formula = "=MOD(RC[-1]-RC[-2],24)"
Cells(i, 6).Value = Cells(i, 6).Value
End If
Next
ThisWorkbook.Save

ComboBox2.Value = ""
'----------------------------------------------------------------------------
Exit Sub
1
MsgBox " لا توجد أسماء ", vbInformation, "ملاحظة"
End Sub

 

 

[أبو قاسم]

ربنا يحفظك تشكر على مجهودك ولاكن لم يفلح الكود اسمحلي على الازعاج تسلم يداك

[ياسر خليل أبو البراء]

أخي الكريم (أخوكم في الله) .. ما زلت مصراً على عدم الإفصاح عن اسمك ..

يرجى وضع الاكواد الرائعة التي تقدمها بين أقواس الكود <> التي تكون بهذا الشكل أثناء كتابة الرد ...

يبدو أننا سنشهد نجماً ساطعاً في المنتدى ..بارك الله فيك

 

أخي الكريم أبو قاسم

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

تقبلوا تحياتي

[أبو قاسم]

16 ساعات مضت, ياسر خليل أبو البراء said:

أخي الكريم (أخوكم في الله) .. ما زلت مصراً على عدم الإفصاح عن اسمك ..

يرجى وضع الاكواد الرائعة التي تقدمها بين أقواس الكود <> التي تكون بهذا الشكل أثناء كتابة الرد ...

يبدو أننا سنشهد نجماً ساطعاً في المنتدى ..بارك الله فيك

 

أخي الكريم أبو قاسم

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

تقبلوا تحياتي

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

الطلب الثاني  ليس ذات اهمية مثل السابق ولاكن اذا فية امكانية عند عمل انصراف لاسم اصلا لم يحضر يوقف الكود ويعطي رسالة اعمل حضور اولاً

[أبو حنــــين]

السلام عليكم

أولا اشكر كثيرا اخي ياسر خليل على كل ما يقدمه لهذا المنتدى من مساهمات و على تشجيعه لاعضاء المنتدى أملا في البلوغ به الى مستوي أعلى .

أما عن إسمي أخي أيو البراء : تصور هو مكتوب في بطاقة التعريف و انا متأكد من ذلك و لكن لما بحثت عنها لم اجدها ، رحت ابلغ عن ضياعها طلبو مني الاسم فقلت لهم مكتوب على البطاقة التي ضاعت  . . . . يعي قصة طويلة . . . .

ملاحظة

منذ وقت وانا احاول الرد و رفع الملف فلم استطع إلا وقت كتابة هذه الاسطر و لا اعرف سبب ذلك

 

 

 

 

 

حضور وانصراف2.rar

تم تعديل أبريل 6, 2016 بواسطه أخوكم في الله
خطأ في الكتابة

[ياسر خليل أبو البراء]

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

[أبو قاسم]

تشكر ربنا يوفقك صراحة شيء جميل وين انتة ياراجل من زمان ونشكر أيضا المبدع ياسر خليل

اقتباس

 

 

[صالح سالم]

في ٥‏/٤‏/٢٠١٦ at 17:06, أبو قاسم said:

السلام عليكم 

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

وكذلك الانصراف 

يوجد توضيح في الملف

تم التعديل على الملف في السابق من الاستاذ : الصقر

حضور وانصراف1.rar

اعطني كلمة السر للادارة بتتجمل فيني ههههه