كيف أعمل مثل هذه الآلية في الاكسس

أخي الكريم ..

اضرب مثالاً حياً يدوياً الآن .. لأني ما فهمت بالضبط ماذا تريد

السلام عليكم ماأريد ياعزيزي أحمد مايلي

لنفرض أنه عندي 3 موظفين للمراقبة وهم محمد ، سعيد ، ناصر

وأريد توزيع المراقبة عليهم في الفترة من 1/1 إلى 5/1 بالترتيب

فأقوم أنا فقط بتحديد الفترة من خلال مربعين نص لتاريخ بداية الفترة وتاريخ نهاية الفترة

فيقوم البرنامج بتوزيع المراقبين هذه الفترة على حسب الترتيب السابق

فيظهر لي كالتالي :

1/1 محمد

2/1 سعيد

3/1 ناصر

4/1 محمد

5/1 سعيد

وهكذا أرجو أن يكون قصدي واضح ومفهوم

تحياتي

اعتقد والله اعلم اني قد رأيت برنامج فيه ماتريده واعتقد ان اسمه توزيع المعاملات لكن يجب علي ان ابحث في ملفاتي القديمه وهو من تصميم احد الاخوه في المنتدى

سوف ابلغك اخي في حال وجدته

فعلا اخي الكريم لقد وجدت البرنامج وهو بنفس الاسم الذي ذكرته لك سابقا ماعليك الا عمل البحث في المنتدى عن ---- توزيع المعاملات------ لكي تتعرف على الاليه

وسوف احاول ان اجد البرنامج ضمن ملفاتي القديمه

تحياتي لك وكل عام وانت بخير

شكرا لك أخي العزيز الحيان ولكن للأسف عملية البحث في المنتدى معطلة

تحياتي لك

تفضل أخي الكريم ..

شرح :

1- dt1 و dt2 هذان هما حقلا التاريخ في النموذج يعني من إلى

2- tblMoraqabah اسم جدول المراقبة وفيه الحقلين اسم الموظف( NameEm ) و تاريخ المراقبة (DateMoraqabah )

3- tblEmply اسم جدول الموظفين

Dim sumDay As Integer
Dim sq As String
Dim Rec As New ADODB.Recordset
Dim dtDAte As Date
Dim cdt As Date

sumDay = DateDiff("d", Format(Me.dt1, " 0000/00/00"), Format(Me.dt2, " 0000/00/00"))
Rec.Open "tblEmply", CurrentProject.Connection, adOpenStatic, adLockReadOnly, adCmdTable

For i = 0 To sumDay
    
    If Rec.EOF = True Then
        Rec.MoveFirst
        
        cdt = Format(Me.dt1, " 0000/00/00")
       dtDAte = CDate(DateAdd("d", i, cdt))
       sq = "Insert INTO tblMoraqabah(NameEm,DateMoraqabah)"
       sq = sq & " Values ('"
       sq = sq & Rec!FN & " '"
       sq = sq & ","
       sq = sq & "#" & dtDAte & "#" & ")"
    DoCmd.SetWarnings False
       DoCmd.RunSQL sq
         Rec.MoveNext
    Else
   
       cdt = Format(Me.dt1, " 0000/00/00")
       dtDAte = CDate(DateAdd("d", i, cdt))
       sq = "Insert INTO tblMoraqabah(NameEm,DateMoraqabah)"
       sq = sq & " Values ('"
       sq = sq & Rec!FN & " '"
       sq = sq & ","
       sq = sq & "#" & dtDAte & "#" & ")"
    DoCmd.SetWarnings False
       DoCmd.RunSQL sq
        Rec.MoveNext
       
    End If
Next
Rec.Close
Set Rec = Nothing

أرجو أن يكون هو المطلوب

أخي العزيز احمد تحياتي لك

سأجرب وأرد عليك بإذن الله

أخي العزيز احمد

كيف حالك

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

sumDay = DateDiff("d", Format(Me.dt1, " 0000/00/00"), Format(Me.dt2, " 0000/00/00"))

ولا أعرف سبب المشكلة

وبعده وضعت في بداية الكود

On Error Resume Next

وبعدها لم يتوقف البرنامج ولكنه لايضيف شيء للجدول

الله يحفظك ويبارك فيك .. أخي الكريم .. لم أكتبها إلا بعد أن جربتها عدة مرات

ربما الخطأ في تنسيق حقلي التاريخ في النموذج

احعل قناع الإدخال لحقلي التاريخ هكذا

00/00/0000

وإذا أردت أن تدخل التاريخ لا تكتب الفاصل /

وإن شاء الله تضبط معاك

إذا عطلت هذا السطر فمعنى ذلك أنك عطلت التاريخ .. يجب عدم تعطيله

أخي العزيز احمد كيف حالك أولا

ثانيا المسألة مو جاية تضبط هل بالامكان أن تبعث لي الملف على الإيميل التالي

khutam@hotmail.com

تحياتي لك

أخي الكريم .. أرسلت لك المثال على بريدك

تحياتي

السلام عليكم أخي العزيز احمد كيفك

شكرا لك لقد حملت الملف وارسلت لك ردا ارجو قراءته على ايميلك

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

تحياتي لك

الحمد لله أخي الكريم .. الحال على ما يسرك إن شاء الله

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

أنا في انتظارك أخي العزيز احمد مع خالص تحياتي وتقديري لك