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

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

النجاشي

بواسطه النجاشي
في قسم الأكسيس Access

 مشاركة

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

النجاشي

النجاشي

قام بنشر
قام بنشر (معدل)

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

عندي هذه الداله

=IIf(DSum("Alkmiah";"HRR";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'")>0;DSum("Alkmiah";"HRR";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'");0)-IIf(DSum("Alkmiah";"HRR";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'")>0;DSum("Alkmiah";"HRR";"Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'");0)

هل من طريقه لعمل كود يقوم بنفس الوظيفه 

تحياتي اليكم / وضاح

تم تعديل بواسطه ابو زاهر
رابط هذا التعليق
شارك
ابو ياسين المشولي

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

قام بنشر
قام بنشر

اخي ابو زاهر

اظن انت تريد هكذا

وهو يحتاج قليل من التعديل من الاخوه العباقره

 Forms!frmSales!sh12 = (DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=12" & " and Nwaha='" & 13 & "'") > 0 = DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=11" & " and Nwaha='" & 13 & "'") = 0) - IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=12" & " and Nwaha='" & 14 & "'") > 0, DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=11" & " and Nwaha='" & 14 & "'"), 0)
 

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

النجاشي

قام بنشر
  • الكاتب
قام بنشر
9 ساعات مضت, مرشدعلي said:

اخي ابو زاهر

اظن انت تريد هكذا

وهو يحتاج قليل من التعديل من الاخوه العباقره

 Forms!frmSales!sh12 = (DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=12" & " and Nwaha='" & 13 & "'") > 0 = DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=11" & " and Nwaha='" & 13 & "'") = 0) - IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=12" & " and Nwaha='" & 14 & "'") > 0, DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=11" & " and Nwaha='" & 14 & "'"), 0)
 

بجرب لما اوصل البيت بعد نص ساعه الان على الجوال اخي الكريم ابو ياسين

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

jjafferr

قام بنشر
قام بنشر

السلام عليكم:smile:

 

ضع هذا الكود في وحدة نمطية (تستطيع ان تضيفها مع اي وحدة نمطية اخرى عندك): 

Public Function Sum_Alkmiah(iwerNumSenf)

'الكود القديم
'A = IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'") > 0, _
        DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 13 & "'"), 0) _
        - _
    IIf(DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'") > 0, _
        DSum("Alkmiah", "HRR", "Rajmsanf='" & werNumSenf() & "'" & " and month(Atarih)=5" & " and Nwaha='" & 14 & "'"), 0)


'الكود الجديد
    Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=5 and Nwaha='13'")
    Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=5 and Nwaha='14'")
    
    Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0)
    
End Function

.

ثم في الاستعلام تنادي الوحدة النمطية هكذا 

Sum_Alk: Sum_Alkmiah(werNumSenf())

 

جعفر

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

النجاشي

قام بنشر
  • الكاتب
قام بنشر
9 دقائق مضت, jjafferr said:

تفضل:smile:

 

في الاستعلام QryDaily

 

جعفر

797.المجموع3.mdb.zip

 

24 دقائق مضت, مرشدعلي said:

لم افهم الاخ جعفر

 

المجموع3.rar

اليكم هذه القاعده مع اعتذاري لكم احبتي استاتذتي الكرام  اخي جعفر وخي ابو ياسين انا لم اوضح كثير هو بالفاتوره عندي الشهور من شهر 1 الي شهر 12 الله يجزي خير الاستاذ ابو خليل عملها لي شغاله مظبوط  بوحده نمطيه وعمل مصدر كل خانه الداله الذي رفقتها سابقا لكن متظايق من الاهتزاز جدا 

فايش رايكم هل الكود بيحل الموضوع او لازام طريقه اخري

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

اليكم القاعدع عملت فيها مبعات لشهر 11  وشهر 12

تحياتي اليكم احبتي

وضاح

 

الشهور.rar

رابط هذا التعليق
شارك
ابو ياسين المشولي

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

قام بنشر
قام بنشر
الان, jjafferr said:

وكيف اقدر اشوف مبيعات شهر 11 و 12 ؟

الاخ جعفر

عندما تضغط انتر عللى اسم الصنف

يفتح نموذج الاصناف

فتختار

1-1

يطلع الصنف

تعمل له ادراج

وعند الضغط على الصنف يعطيك العدد

حق شهر 12

11

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

النجاشي

قام بنشر
  • الكاتب
قام بنشر
1 دقيقه مضت, jjafferr said:

وكيف اقدر اشوف مبيعات شهر 11 و 12 ؟

ادخل اصناف بالفاتوره 2 او ثلاثه مثلا  بتظهر معاك انظر الي الصوره  بالشهور تحت توضح

 

89.png

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

jjafferr

قام بنشر
قام بنشر

تفضل:smile:

 

تم تعديل الوحدة النمطية الى: 

Public Function Sum_Alkmiah(iMonth, iwerNumSenf)

    Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='13'")
    Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='14'")

    Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0)
    
End Function

.

ومناداتها من حدث "الحالي" للنموذج الفرعي ، هكذا: 

Private Sub Form_Current()
On Error Resume Next
werSenf = Rajmsanf
frshtxt

Me.Parent.نص57 = DLookup("[Rsnf]", "Qryasnaf", "[Rajmsanf]='" & Me.Rajmsanf & "'")
Me.Parent.نص61 = DLookup("[LastOfPrice]", "Query1", "[Rajmsanf]='" & Me.Rajmsanf & "'")


    Forms!frmSales!sh1 = Sum_Alkmiah(1, werNumSenf())
    Forms!frmSales!sh2 = Sum_Alkmiah(2, werNumSenf())
    Forms!frmSales!sh3 = Sum_Alkmiah(3, werNumSenf())
    Forms!frmSales!sh4 = Sum_Alkmiah(4, werNumSenf())
    Forms!frmSales!sh5 = Sum_Alkmiah(5, werNumSenf())
    Forms!frmSales!sh6 = Sum_Alkmiah(6, werNumSenf())
    Forms!frmSales!sh7 = Sum_Alkmiah(7, werNumSenf())
    Forms!frmSales!sh8 = Sum_Alkmiah(8, werNumSenf())
    Forms!frmSales!sh9 = Sum_Alkmiah(9, werNumSenf())
    Forms!frmSales!sh10 = Sum_Alkmiah(10, werNumSenf())
    Forms!frmSales!sh11 = Sum_Alkmiah(11, werNumSenf())
    Forms!frmSales!sh12 = Sum_Alkmiah(12, werNumSenf())

End Sub

 

جعفر

797.1.الشهور.mdb.zip

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

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

قام بنشر
قام بنشر
12 دقائق مضت, jjafferr said:

تفضل:smile:

 

تم تعديل الوحدة النمطية الى: 


Public Function Sum_Alkmiah(iMonth, iwerNumSenf)

    Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='13'")
    Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='14'")

    Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0)
    
End Function

.

ومناداتها من حدث "الحالي" للنموذج الفرعي ، هكذا: 


Private Sub Form_Current()
On Error Resume Next
werSenf = Rajmsanf
frshtxt

Me.Parent.نص57 = DLookup("[Rsnf]", "Qryasnaf", "[Rajmsanf]='" & Me.Rajmsanf & "'")
Me.Parent.نص61 = DLookup("[LastOfPrice]", "Query1", "[Rajmsanf]='" & Me.Rajmsanf & "'")


    Forms!frmSales!sh1 = Sum_Alkmiah(1, werNumSenf())
    Forms!frmSales!sh2 = Sum_Alkmiah(2, werNumSenf())
    Forms!frmSales!sh3 = Sum_Alkmiah(3, werNumSenf())
    Forms!frmSales!sh4 = Sum_Alkmiah(4, werNumSenf())
    Forms!frmSales!sh5 = Sum_Alkmiah(5, werNumSenf())
    Forms!frmSales!sh6 = Sum_Alkmiah(6, werNumSenf())
    Forms!frmSales!sh7 = Sum_Alkmiah(7, werNumSenf())
    Forms!frmSales!sh8 = Sum_Alkmiah(8, werNumSenf())
    Forms!frmSales!sh9 = Sum_Alkmiah(9, werNumSenf())
    Forms!frmSales!sh10 = Sum_Alkmiah(10, werNumSenf())
    Forms!frmSales!sh11 = Sum_Alkmiah(11, werNumSenf())
    Forms!frmSales!sh12 = Sum_Alkmiah(12, werNumSenf())

End Sub

 

جعفر

797.1.الشهور.mdb.zip

ماشاء الله عليك اخي جعفر

مبدع تسلم

اصبت بارك الله فيك

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

النجاشي

قام بنشر
  • الكاتب
قام بنشر
13 دقائق مضت, jjafferr said:

تفضل:smile:

 

تم تعديل الوحدة النمطية الى: 


Public Function Sum_Alkmiah(iMonth, iwerNumSenf)

    Sum_13 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='13'")
    Sum_14 = DSum("Alkmiah", "HRR", "Rajmsanf='" & iwerNumSenf & "' and month(Atarih)=" & iMonth & " and Nwaha='14'")

    Sum_Alkmiah = IIf(Sum_13 > 0, Sum_13, 0) - IIf(Sum_14 > 0, Sum_14, 0)
    
End Function

.

ومناداتها من حدث "الحالي" للنموذج الفرعي ، هكذا: 


Private Sub Form_Current()
On Error Resume Next
werSenf = Rajmsanf
frshtxt

Me.Parent.نص57 = DLookup("[Rsnf]", "Qryasnaf", "[Rajmsanf]='" & Me.Rajmsanf & "'")
Me.Parent.نص61 = DLookup("[LastOfPrice]", "Query1", "[Rajmsanf]='" & Me.Rajmsanf & "'")


    Forms!frmSales!sh1 = Sum_Alkmiah(1, werNumSenf())
    Forms!frmSales!sh2 = Sum_Alkmiah(2, werNumSenf())
    Forms!frmSales!sh3 = Sum_Alkmiah(3, werNumSenf())
    Forms!frmSales!sh4 = Sum_Alkmiah(4, werNumSenf())
    Forms!frmSales!sh5 = Sum_Alkmiah(5, werNumSenf())
    Forms!frmSales!sh6 = Sum_Alkmiah(6, werNumSenf())
    Forms!frmSales!sh7 = Sum_Alkmiah(7, werNumSenf())
    Forms!frmSales!sh8 = Sum_Alkmiah(8, werNumSenf())
    Forms!frmSales!sh9 = Sum_Alkmiah(9, werNumSenf())
    Forms!frmSales!sh10 = Sum_Alkmiah(10, werNumSenf())
    Forms!frmSales!sh11 = Sum_Alkmiah(11, werNumSenf())
    Forms!frmSales!sh12 = Sum_Alkmiah(12, werNumSenf())

End Sub

 

جعفر

797.1.الشهور.mdb.zip

تسلم يديدك ربنا يعطيك العافيه يالغالي هو المطلوب

الان, مرشدعلي said:

ماشاء الله عليك اخي جعفر

مبدع تسلم

اصبت بارك الله فيك

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

رابط هذا التعليق
شارك
ابو ياسين المشولي

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

قام بنشر
قام بنشر (معدل)

اخي جعفر

كيف نجعل الخصم يطلع

30%

بدلا من 

03

DoCmd.Beep


Dim str1SaveMssage As String
str1SaveMssage = "   ÓÜÜíÜÜÊÜÜã  ÎÜÜÕÜÜã  :   "
str1SaveMssage3 = "   ãÜÜä ÇáÜãÜÜÈÜÜÜáÜÛ  :  "
str1SaveMssage3 = str1SaveMssage3 & Me.[n1]
str1SaveMssage2 = str1SaveMssage2 & [Alhasm] & "   Ñ íÜÇá : "
If MsgBox(str1SaveMssage & str1SaveMssage2 & str1SaveMssage3 & vbCrLf & "", vbYesNo, "           æÖÜÜÇÍ ÇáÜäÜæÈÜå    ") = vbYes Then

          Dim DrXes As Double
          DrXes = DLookup("[DracaALXesim]", "tb5", "[name]= '" & Me.user1 & "'")

'        DrXes = DLookup("[DracaALXesim]", "[tb5]", "[name]='" & Me.user1 & "'")
If DrXes < (Me.Alhasm / Me.n1) Then
'    MsgBox "ÇÚáì ÏÑÌÉ ÎÕã ÇáãÓãÍ áåÐÇ ÇáãÓÊÎÏã åæ" & " (% " & DrXes & " ) ", , "ÊäÈíå"
'    MsgBox "   ÇÚÜáÜì ÏÑÌÜÉ ÎÜÕÜã ÇáÜãÓÜãÜÍ áÜåÜÐÇ ÇáÜãÜÓÜÊÜÎÜÏã åÜæ    " & " (% " & DrXes & " ) ", , "ÊäÈíå"
    MsgBox "   ÇÚÜáÜì ÏÑÌÜÉ ÎÜÕÜã ÇáÜãÓÜãÜÍ áÜåÜÐÇ ÇáÜãÜÓÜÊÜÎÜÏã åÜæ    " & " (% " & DrXes & " ) ", , "   áÜÜíÜÜÓ  áÜÜÏíÜÜß  ÕÜÜáÇ ÍÜÜíÜÜÉ ÈÜÇáÎÜÜÕÜã ÇßÜËÜÑ " ', , vbOKOnly, "æÖÜÜÇÍ ÇáÜäÜæÈÜå : ÇáÕÜÜÜÜáÇÍíÜÜÇÊ "
        Cancel = 0

    Else
    Me.Percentage_Discount = Me.Alhasm / Me.n1
End If
End If
 

تم تعديل بواسطه مرشدعلي
رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر
9 ساعات مضت, مرشدعلي said:

Me.Percentage_Discount = Me.Alhasm / Me.n1

وعليكم السلام

 

هذا مجرد تنسيق تعمله في اعدادات الحقل في النموذج ، وسترى اللي تريده في نموذج اخي وضاح frmSales ، الحقل Percentage_Discount:smile:

 

جعفر

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

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

قام بنشر
قام بنشر
2 دقائق مضت, jjafferr said:

وعليكم السلام

 

هذا مجرد تنسيق تعمله في اعدادات الحقل في النموذج ، وسترى اللي تريده في نموذج اخي وضاح frmSales ، الحقل Percentage_Discount:smile:

 

جعفر

تسلم اخي جعفر

توصلت الى نتيجه

فكان المطلوب

    MsgBox "   C?U?U? I??UE IU?U? C?U??U?U? ?U?U?C C?U?U?UEUIUI? ?U?    " & " (" & Me.n1 * DrXes & " ) ", , "   ?UU?UU?  ?UUI?UU?  ?UU?C ?UU?UUE EUC?IUU?U? C?UEU? " ', , vbOKOnly, "??UUC? C?U?U?EU? : C??UUUU?C??UUCE "
 

هذا ماكنت اقصده

(" & Me.n1 * DrXes & " )

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

النجاشي

قام بنشر
  • الكاتب
قام بنشر
9 ساعات مضت, jjafferr said:

وعليكم السلام

 

هذا مجرد تنسيق تعمله في اعدادات الحقل في النموذج ، وسترى اللي تريده في نموذج اخي وضاح frmSales ، الحقل Percentage_Discount:smile:

 

جعفر

 

9 ساعات مضت, مرشدعلي said:

تسلم اخي جعفر

توصلت الى نتيجه

فكان المطلوب

    MsgBox "   C?U?U? I??UE IU?U? C?U??U?U? ?U?U?C C?U?U?UEUIUI? ?U?    " & " (" & Me.n1 * DrXes & " ) ", , "   ?UU?UU?  ?UUI?UU?  ?UU?C ?UU?UUE EUC?IUU?U? C?UEU? " ', , vbOKOnly, "??UUC? C?U?U?EU? : C??UUUU?C??UUCE "
 

هذا ماكنت اقصده

(" & Me.n1 * DrXes & " )

كم انا ممنون لكم الله يسعدكم افرحتنونا كثير ربنا يعطيكم العافيه

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

jjafferr

قام بنشر
قام بنشر
8 دقائق مضت, مرشدعلي said:

فكان المطلوب

    MsgBox "   C?U?U? I??UE IU?U? C?U??U?U? ?U?U?C C?U?U?UEUIUI? ?U?    " & " (" & Me.n1 * DrXes & " ) ", , "   ?UU?UU?  ?UUI?UU?  ?UU?C ?UU?UUE EUC?IUU?U? C?UEU? " ', , vbOKOnly, "??UUC? C?U?U?EU? : C??UUUU?C??UUCE "

 

اخي مرشد

بالنسبة لطريقة مشاركتك في الموضوع اعلاه ،

  1. تلاحظ ان جميع الكلمات العربية تحولت الى احرف اغريقية في موضوعك ،
  2. كما ان تنسيق الكود اصبح مثل تنسيق الكلمات ، وهو غير مفهوم ،

 

1. لجعل الكلمات العربية تظهر بصورة صحيحة:

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

 

2. استعمل هذه الاداة لفتح نافذة الكود

00.z_0038_Forum_Code_Formating.jpg.10175120cd46d522773853e14605a13d.jpg

.

وفي داخل النافذة اعمل لصق للكود :smile:

 

هذا الموضع يجب ان يُغلق ، إلا اذا في سؤال له علاقة بنفس الموضوع فقط:smile:

 

جعفر

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

النجاشي

قام بنشر
  • الكاتب
قام بنشر

وعليكم السلام ورحمه الله

استاذي@jjafferr الف الف شكر اليك دوما وانت ما تقصر معنا فاسال الله ان يضع كل اعمالك بميزان حسناتك

احسنت صنعا استاذي الف تحيه اليك

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

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

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



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

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

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

Important Information

  I accept