تعديل على كود ادراج التاريخ فرديا او زوجيا

وعليكم السلام اخي مراد :)

يعني اذا عندنا التواريخ التالية:

1-3-2014

2-3-2014

3-3-2014

4-3-2014

5-3-2014

6-3-2014

7-3-2014

8-3-2014

وفي مربع النص ، بداية التاريخ ، انت كتبت 4 ، واخترت رؤية الارقام الفردية ، فكيف يجب ان تكون النتيجة؟

جعفر :)

حياك الله استاذي

لا اريد نظام الفلترة ،،، اريد ان يتم الادراج زوجيا او فرديا بناء على تاريخ البداية

المثال المرفق والكود الذي كتبته انت فيه يعمل مئة بالمئة لكن يبدأ بعد تاريخ البداية

انا اريد ان يبدأ بتاريخ البداية

-------

عندي تاريخ البداية ::

اريد ان يتم الادراج بناء عليه

اذا كان التاريخ

01/03/2014

يتم الادراج هكذا

01/03/2014

03/03/2014

05/03/2014

وهكذا

اذا فهمي صح ، فانت لا تريد ان ترى التواريخ السابقة لبداية التاريخ ،

اذا كان الامر كذلك ، رجاء استخدام هذا الكود بدلا من الكود السابق:

    If Me.Day_Type = 0 Then
        Me.Filter = ""
        Me.FilterOn = False
        
    ElseIf Me.Day_Type = 1 Then
        Me.Filter = "Day([w_number])/2<>Int(Day([w_number])/2) AND [w_number]>=#" & Me.DateF & "#"
        Me.FilterOn = True
        
    ElseIf Me.Day_Type = 2 Then
        Me.Filter = "Day([w_number])/2=Int(Day([w_number])/2) AND [w_number]>=#" & Me.DateF & "#"
        Me.FilterOn = True
        
    End If
    
    Me.OrderBy = "[w_number]"
    Me.OrderByOn = True

جعفر

السلام عليكم ،،،

ليس هذا ما اريده استاذي

اريد ان يرتكز الادراج على حقل بداية التاريخ دون ان يهمله

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

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

لاحظ في المثال انه يهمل تاريخ البداية

Me.InputDate = DateAdd("d", I - 1, strt)

انا استخدم هذا الكود لادراج التاريخ ولا يهمل الحقل strt

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

اخي مراد :)

صدقني ، انا لست بالذكاء اللي تتوقعه ، فانا على قدر حالي :)

الله يخليك ، انظر الى مشاركتي رقم 2 ، فانا عملت لك الارقام علشان افهم بطريقتي :)

رجاء الرد على مشاركتي رقم 2 بالارقام والمثال اللي انا استعملتها :)

جعفر

:blush:  استاذ جعفر ،،، قد اكون قصرت في ايصال المعلومة ،،، سامحني

لاحظ الصورة معي وان شاء الله سوف تصل اليك المعلومة 

::

تحياتي

اعتقد باني فهمت الان :)

يعني انه لا توجد تواريخ في الجدول والتي بموجبها يتم تحديدها زوجيا او فردياً ، وانما المطلوب عمل/ادراج هذه التواريخ ، ابتدأً من تاريخ البداية ، صح؟

طيب نعمل/ندرج الى اي تاريخ؟

وكلما ضغطت على زر الادراج ، تريد ان المعلومات السابقة تحذف من الجدول (اي معلومات ، من متى والى متى) ، ونعيد ادراج معلومات جديدة زوجيا او فردياً ، صح؟

جعفر

jjafferr كتب:

اعتقد باني فهمت الان :)

يعني انه لا توجد تواريخ في الجدول والتي بموجبها يتم تحديدها زوجيا او فردياً ، وانما المطلوب عمل/ادراج هذه التواريخ ، ابتدأً من تاريخ البداية ، صح؟

طيب نعمل/ندرج الى اي تاريخ؟

وكلما ضغطت على زر الادراج ، تريد ان المعلومات السابقة تحذف من الجدول (اي معلومات ، من متى والى متى) ، ونعيد ادراج معلومات جديدة زوجيا او فردياً ، صح؟

 

جعفر

بالضبط ،،، اريده ان يبدأ من حقل تاريخ البداية

لا توجد تواريخ في الجدول انما نريد ادراجها بناء على حقل تاريخ البداية ،،،  ;)

اما بخصوص الى اي تاريخ ،،، فهناك حقل يكتب فيه عدد المرات ،،، ضمن حلقة التكرار For i 

::

بعد اذن اخونا جعفر

كل ما تريده اخى هو تعديل هذا السطر

For i = 1 To 30

الى 

For i = 0 To 30

يعنى فقط 1 الى 0

تفضل :)

الكود:

Private Sub Append_Dates(N)
      
    'N is either Odd or Even, which is sent from the command button
    
    If Len(Me.DateF & "") = 0 Then
        MsgBox "ÑÌÇÁ ßÊÇÈÉ ÊÇÑíÎ ÇáÈÏÁ" & vbCrLf & "Please insert a Date"
        Me.DateF.SetFocus
        Exit Sub
    End If
    
    'loop twice as much, as the numbers will be divided by 2
    For i = N - 1 To Nz(Me.Loop_Count, 31) * 2
        
        'get the next day of the month
        D1 = DateAdd("d", i, Me.DateF)
            
        'if this is not the day we want, odd or even, skip it
        If N = 1 And Day(D1) / 2 = Int(Day(D1) / 2) Then GoTo Nexti
        If N <> 1 And Day(D1) / 2 <> Int(Day(D1) / 2) Then GoTo Nexti
         
        'this date is ok, append it to the table
        mySQL = "INSERT INTO Table2 ( w_number ) SELECT #" & D1 & "#"
        'Debug.Print mySQL
        CurrentDb.Execute mySQL

Nexti:
    Next i
    
    'show the results in the Form
    Me.Requery
    
    End Sub

Private Sub cmd_Even_Dates_Click()

    Call Append_Dates(2)
End Sub

Private Sub cmd_Odd_Dates_Click()

    Call Append_Dates(1)
End Sub

والنتيجة:

جعفر

170.1.DateSF.mdb.zip

يا عيني عليك ،،، معلـــــــم  :)   ;)

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

5+

الف الف شكر استاذي ،،، 

ادامك الله ذخرا لهذا الصرح الشامخ

تحياتي

بارك الله فيك اخي الكريم جعفر على دقتك في الحل

حل شافي ووافي

هو بالضبط ما احتجت

الله ينور عليك

تحياتي

هلا والله :)