اضافة شهر فى السجلات التالية عند التكرار

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته 
 

اريد عند الضغط على الزار تكرار السجلات  بجانب التاريخ  يزيد التاريخ شهر فى السجلات التالية

وجزاكم الله خيرا

access test.mdb

[Shivan Rekany]

50 دقائق مضت, محمد احمد لطفى said:

اريد عند الضغط على الزار تكرار السجلات  بجانب التاريخ  يزيد التاريخ شهر فى السجلات التالية

تم اضافة هذا

Me.datex = DateAdd("m", 1, Me.datex)

على كودك الموجود وصار هكذا

Private Sub أمر5_Click()
On Error GoTo Err_أمر5_Click
    Dim Eded As Integer
        Dim I As Integer
            Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات")
                DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
                DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
            For I = 1 To Eded
                DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
                Me.datex = DateAdd("m", 1, Me.datex)
            Next

Exit_أمر5_Click:
    Exit Sub

Err_أمر5_Click:
    MsgBox Err.Description
    Resume Exit_أمر5_Click
    
End Sub

 

access test (1).mdb

[محمد احمد لطفى]

11 دقائق مضت, Shivan Rekany said:

تم اضافة هذا

Me.datex = DateAdd("m", 1, Me.datex)

على كودك الموجود وصار هكذا

Private Sub أمر5_Click()
On Error GoTo Err_أمر5_Click
    Dim Eded As Integer
        Dim I As Integer
            Eded = InputBox("اکتب عدد سجلات التکرار", "عدد الكرارات")
                DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
                DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
            For I = 1 To Eded
                DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
                Me.datex = DateAdd("m", 1, Me.datex)
            Next

Exit_أمر5_Click:
    Exit Sub

Err_أمر5_Click:
    MsgBox Err.Description
    Resume Exit_أمر5_Click
    
End Sub

 

access test (1).mdb

جزاك الله خيراً استاذى