اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

جرب هذا

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

 

رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

وما هو مطلوب

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

رابط هذا التعليق
شارك

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

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

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

Prog43.rar

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

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

Prog42.rar

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information