المساعدة في تسلسل التاريخ عند الضغط على زر امر اوتماتيكيا في النموذج الفرعي

[حربي العنزي]

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

طلبي هو : مشروح داخل النموذج للبرنامج المرفق مع فائق الشكر والاحترام

ProgAssit28.rar

[حربي العنزي]

للرفع

[Shivan Rekany]

19 ساعات مضت, حربي العنزي said:

طلبي هو : مشروح داخل النموذج للبرنامج المرفق مع فائق الشكر والاحترام

اتفضل اليك هذا

Private Sub TTarix_Click()
    Dim FariqYear As Integer
        FariqYear = DateDiff("yyyy", Me.FirstDate, Me.EndDate)
        Me.Form.SetFocus
            Me.Frm1.SetFocus
            Me.Frm1.Form.ShopDate.SetFocus
            DoCmd.GoToRecord , , acFirst
    For i = 1 To Me.Frm1.Form.Recordset.RecordCount
        If Month(Me.FirstDate) <> 12 Then
            If i = 1 Then
                Form_Frm1.ShopDate = Me.FirstDate
            ElseIf i = 2 Then
                Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate)
            Else
                Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 2)
            End If
        Else
            If i = 1 Then
                Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate)
            Else
                Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1)
            End If
        End If
        DoCmd.GoToRecord , , acNext
    Next i
End Sub

كان من الممكن ان تجمع هذا الكود مع الكود الموضوع الاول في زر واحد

ProgAssit28.rar

[حربي العنزي]

استاذي الفاضل شفان الله لايحرمنا من شخصك الكريم يا طيب جزاك الله خيرا 

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

[حربي العنزي]

وايضا هذه الرسالة تخرج لي عندما ادخل التاريخين 

مع وافر التحايا استاذي الفاضل ربي يخليك يارب 

[Shivan Rekany]

35 دقائق مضت, حربي العنزي said:

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

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

اليك هذا

 

ProgAssit28.rar

[حربي العنزي]

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

لكن هناك خطأ والخطا مني انا واعتذر منك بشدة يا طيب والله انا جدا اسف عندما كتبتها يدويا خطأت بها 

التسلسل رقم 2 يجب ان يكون فيه التاريخ 31/12/2018 ويستمر التسلسل الى الاخير لان الاندثار السنوي والمتراكم حسبناه للسبع اشهر لتاريخ الشراء 6/5/2017 

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

[حربي العنزي]

استاذي الفاضل شفان ربي يحميك من كل شر يارب 

اريد مثل هذه الصورة 

واكرر اعتذاري منك الخطأ خطئي انا 

جزاك الله خيرا وماقصرت يا طيب 

[حربي العنزي]

استاذي الفاضل شفان ربي يحميك من كل شر يارب 

اوك ضبطت معي جزاك الله خيرا غيرت فقط احد الارقام وكانت النتيجة 100% 

استاذي الفاضل الف الف الف الف شكر لمساعدتك لي جزاك الله خيرا سائلا الله جل وعلى ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية والستر في الدنيا والاخرة يارب يارب

[Shivan Rekany]

2 ساعات مضت, حربي العنزي said:

اوك ضبطت معي جزاك الله خيرا غيرت فقط احد الارقام وكانت النتيجة 100% 

استاذي الفاضل الف الف الف الف شكر لمساعدتك لي جزاك الله خيرا سائلا الله جل وعلى ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية والستر في الدنيا والاخرة يارب يارب

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

[حربي العنزي]

استاذي الفاضل شفان ربي يحميك من كل شر يارب 

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

وهذه النسخة الاخيرة لمن يريد الاستفادة منها والدعاء بظهر الغيب للاستاذ الفاضل شفان ريكاني لمجهوده الكبير لمساعدته لي ربي يخليه يارب

ProgAssit29.rar