المساعدة في عمل وحدة نمطية والتخلص من النقر المزدوج على زر امر

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

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

طلبي مشروح في النموذج الرئيسي للبرنامج المرفق مع جزيل الشكر والاحترام لكم جميعا 

Prog41.rar

[ابو ياسين المشولي]

جرب هذا

On Error Resume Next

Me.MySubNum = Year(EndDate) - Year(FirstDate)

'---------------------------------------------------------------------------------
Dim x  As Integer
        Form1.Form.SetFocus
        Form1.Frm1.SetFocus
        Form1.Frm1.Form.ShopDate.SetFocus
        DoCmd.GoToRecord , , acFirst
    For x = 1 To Form_Form1.MySubNum
        form1_Form_Frm1.ID = x
        DoCmd.GoToRecord , , acNext
    Next x


'-------------------------------------------------------------------------------------------

On Error Resume Next
     Dim i As Integer
        Me.Form.SetFocus
            Form1.Frm1.SetFocus
           Form1.Frm1.Form.ShopDate.SetFocus
            DoCmd.GoToRecord , , acFirst
    For i = 1 To Form1_Frm1.Form.Recordset.RecordCount
        If Month(form_Form_Frm1.ShopDate) <> 12 Then
                form1_Form_Frm1.EndtharSum = Me.Cost * Me.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12)
                Form1_Form1_Form_Frm1.EndtharYear = Me.Cost * Me.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12)
            Else
                form1_Form_Frm1.EndtharSum = Me.Cost * Me.IndtharRute
                form1_Form_Frm1.EndtharYear = Me.Cost * Me.IndtharRute
        End If
        DoCmd.GoToRecord , , acNext
    Next i
    Me.Refresh

'-------------------------------------------------------------------------------------------
If Me.FirstDate And Me.EndDate >= "" Then

 Dim FariqYear As Integer
        FariqYear = DateDiff("yyyy", Me.FirstDate, Me.EndDate)
        Form1.Form.SetFocus
            Forms!Form1.Frm1.SetFocus
            Forms!Form1.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
                form1_Form_Frm1.ShopDate = Me.FirstDate
            ElseIf i = 1 Then
                form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate)
            Else
                form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1)
            End If
        Else
            If i = 1 Then
                form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate)
            Else
                form1_Form_Frm1.ShopDate = "31/12/" & Year(Me.FirstDate) + (i - 1)
            End If
        End If
        DoCmd.GoToRecord , , acNext
    Next i
    
    Else
    MsgBox "ÑÌÇÁÇ ÇÏÎá ÊÇÑíÎ ÇáÔÑÇÁ æÊÇÑíÎ ÇÎÑ ÇáÝÊÑÉ"

    End If
    Me.Refresh

اذا جاب النتيجه يمكنك ان تعمله في وحده نمطيه

ثم تستعيها في الحالي

او في زر امر

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

استاذي الفاضل ابو ياسين ربي يخليك ويحفظك يا طيب شكرا جزيلا لردك السريع 

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

Prog42.rar

[ابو ياسين المشولي]

اخي انا لا اعلم بصحه النتايج

ولكن الوحده النمطيه بتكون هذا

واذا في خطاء اخبرني

Option Compare Database
Function Assist()
On Error Resume Next

form1.MySubNum = Year(EndDate) - Year(FirstDate)

'---------------------------------------------------------------------------------
Dim x  As Integer
        form1.Form.SetFocus
        form1.Frm1.SetFocus
        form1.Frm1.Form.ShopDate.SetFocus
        DoCmd.GoToRecord , , acFirst
    For x = 1 To Form_Form1.MySubNum
        form1_Form_Frm1.ID = x
        DoCmd.GoToRecord , , acNext
    Next x


'-------------------------------------------------------------------------------------------

On Error Resume Next
     Dim i As Integer
        form1.Form.SetFocus
            form1.Frm1.SetFocus
           form1.Frm1.Form.ShopDate.SetFocus
            DoCmd.GoToRecord , , acFirst
    For i = 1 To Form1_Frm1.Form.Recordset.RecordCount
        If Month(form_Form_Frm1.ShopDate) <> 12 Then
                form1_Form_Frm1.EndtharSum = form1.Cost * form1.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12)
                Form1_Form1_Form_Frm1.EndtharYear = form1.Cost * form1.IndtharRute * ((12 - Month(form_Form_Frm1.ShopDate)) / 12)
            Else
                form1_Form_Frm1.EndtharSum = form1.Cost * form1.IndtharRute
                form1_Form_Frm1.EndtharYear = form1.Cost * form1.IndtharRute
        End If
        DoCmd.GoToRecord , , acNext
    Next i
    form1.Refresh

'-------------------------------------------------------------------------------------------
If form1.FirstDate And form1.EndDate >= "" Then

 Dim FariqYear As Integer
        FariqYear = DateDiff("yyyy", form1.FirstDate, form1.EndDate)
        form1.Form.SetFocus
            Forms!form1.Frm1.SetFocus
            Forms!form1.Frm1.Form.ShopDate.SetFocus
            DoCmd.GoToRecord , , acFirst
    For i = 1 To form1.Frm1.Form.Recordset.RecordCount
        If Month(form1.FirstDate) <> 12 Then
            If i = 1 Then
                form1_Form_Frm1.ShopDate = form1.FirstDate
            ElseIf i = 1 Then
                form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate)
            Else
                form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate) + (i - 1)
            End If
        Else
            If i = 1 Then
                form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate)
            Else
                form1_Form_Frm1.ShopDate = "31/12/" & Year(form1.FirstDate) + (i - 1)
            End If
        End If
        DoCmd.GoToRecord , , acNext
    Next i
    
    Else
    MsgBox "رجاءا ادخل تاريخ الشراء وتاريخ اخر الفترة"

    End If
    form1.Refresh
End Function

 

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

استاذي الفاضل ابو ياسين المشولي 

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

مع وافر التحايا 

 

[ابو ياسين المشولي]

اخي انا عدلت لك بالكود

انسخه 

واستبدله في المدويل اللي عملته

انت

Prog42.rar

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

استاذي الفاضل ابو ياسين المشولي 

الله لايحرمنا من شخصك الكريم والطيب احسنت بارك الله فيك نعم هذا هو المطلوب تماما 

والله تعبتك معاي يا لطيب الان كلشي تمام جزاك الله خيرا 

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

[ابو ياسين المشولي]

العفو اخي بارك الله فيك

مافي تعب بالعكس

انا سعيد اني قدرت اخدمك

بارك الله فيك

ووفقك

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

استاذي الفاضل ابو ياسين المشولي 

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

[ابو ياسين المشولي]

بارك الله فيك اخي

بعطيك معلومه لعله تفيدك

عند وجود كلمه  me

معنها في هذا الفورم او في هذا التقرير

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

وعندما تكون داله

تكون مسمى باسم النموذج او التقرير

مثلا بد مي بيكون فورمforms

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

استاذي الفاضل ابو ياسين المشولي 

ربي يخليك يارب

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

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

مع وافر التحايا 

[ابو ياسين المشولي]

انا كما قلت لك لا اعرف ماهو الكود لاني لم اتفحصه

ولكن قلت لك كيف تعمله في المدويل

ولا اعرف ماهو الصح من الخطاء

انت لو تشرح عمل الكود

وما هو مطلوب

سوف نحاول فهمك

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

استاذي الفاضل ابو ياسين المشولي 

استاذي الفاضل احسنت فعلا الخطا خطئي وهذا البرنامج كما كان سابقا في ثلاثة ازرار امر كل واحد له دور وعمل 

مع وافر التحايا 

Prog43.rar

[ابو ياسين المشولي]

ممكن شرح المطلوب

وماهي النيجه

كي نفهم 

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

استاذي الفاضل ابو ياسين المشولي 

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

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

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

مع وافر التحايا 

[ابو ياسين المشولي]

عندما عملت كل الاكوداد

في وحده نمطيه

هل عملتهم حسب الترتيب

اقصد زر فتح السجلات

ثم الامر

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

استاذي الفاضل ابو ياسين المشولي 

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

مع وافر التحايا 

[ابوخليل]

السلام عليكم

مشاركة مع احبتي

اخوي حربي  مشكلتك في ترتيب  الاوامر

فالكود  بدأ  بالترقيم  ثم الحساب ثم ادراج التواريخ

وطبعا الحساب مبني على التواريخ

يعني الصحيح يبدأ بالترقيم ثم التواريخ ثم الحساب

Prog42.rar

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

استاذي الفاضل ابوخليل

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

نعم هذا هو المطلوب تماما 

ربي يحميك من كل سوء يارب يارب