ادراج التاريخ بايام فردية ضمن حلقة تكرارية

السلام عليكم

قمت بالتعديل علي الكود الخاص بك ؛ الكود المرفق يقوم بكتابة التواريخ الزوجية

يمكنك استخدام الكود لكتابة التواريخ الفردية فقط قم بوضع كلمة Else في سطر بعد كلمة Then

Dim i As Integer
Dim x
    
    For i = 1 To 30
                        
            If Val(Format(Format(i + DateF), "d")) Mod 2 = 0 Then
            
                    Me.w_number = Format(i + DateF)
                    DoCmd.RunCommand acCmdSelectRecord
                    DoCmd.RunCommand acCmdCopy
                    DoCmd.GoToRecord , , acNext
                    
            End If
    Next

لا تنسونا من الدعاء

jjafferr كتب:

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

 

الظاهر ان يومك خير وبركة ، ماشاء الله حصلت على جوابين لسؤالك :) ، فلا تنسانا في هذا اليوم المبارك في دعائك :)

 

170.Clipboard01.jpg

 

 

والكود على الحدث ، بعد تحديث خانة الاختيارات Day_Type:

Private Sub Day_Type_AfterUpdate()

    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)"
        Me.FilterOn = True
        
    ElseIf Me.Day_Type = 2 Then
        Me.Filter = "Day([w_number])/2=Int(Day([w_number])/2)"
        Me.FilterOn = True
        
    End If
        
End Sub

جعفر

وعليكم السلام اخي العزيز جعفر حفظك الله ورعاك

لم ولن انسى الدعاء لك بظهر غيب على ما قدمته وتقدمه من عمل صالح

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

هو بالضبط ما احتجت ،،، الف مليون شكر يا (معلـــــم)

+1