اذهب الي المحتوي
أوفيسنا

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

النجاشي

بواسطه النجاشي
في قسم الأكسيس 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
النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
  في 13‏/12‏/2017 at 14:04, مرشدعلي 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)
 

Expand  

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

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
النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
  في 13‏/12‏/2017 at 15:33, jjafferr said:

تفضل:smile:

 

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

 

جعفر

797.المجموع3.mdb.zipFetching info...

Expand  

 

  في 13‏/12‏/2017 at 15:18, مرشدعلي said:

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

 

المجموع3.rarFetching info...

Expand  

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

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

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

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

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

وضاح

 

الشهور.rar

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

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

قام بنشر
قام بنشر
  في 13‏/12‏/2017 at 18:14, jjafferr said:

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

Expand  

الاخ جعفر

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

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

فتختار

1-1

يطلع الصنف

تعمل له ادراج

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

حق شهر 12

11

  • Like 1
النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
  في 13‏/12‏/2017 at 18:14, jjafferr said:

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

Expand  

ادخل اصناف بالفاتوره 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
ابو ياسين المشولي

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

قام بنشر
قام بنشر
  في 13‏/12‏/2017 at 18:56, 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.zipFetching info...

Expand  

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

مبدع تسلم

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

  • Like 1
النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
  في 13‏/12‏/2017 at 18:56, 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.zipFetching info...

Expand  

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

  في 13‏/12‏/2017 at 19:09, مرشدعلي said:

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

مبدع تسلم

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

Expand  

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

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

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

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

اخي جعفر

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

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

قام بنشر
قام بنشر
  في 13‏/12‏/2017 at 21:53, مرشدعلي said:

Me.Percentage_Discount = Me.Alhasm / Me.n1

Expand  

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

 

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

 

جعفر

  • Like 1
ابو ياسين المشولي

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

قام بنشر
قام بنشر
  في 14‏/12‏/2017 at 07:34, jjafferr said:

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

 

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

 

جعفر

Expand  

تسلم اخي جعفر

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

فكان المطلوب

    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 & " )

النجاشي

النجاشي

قام بنشر
  • الكاتب
قام بنشر
  في 14‏/12‏/2017 at 07:34, jjafferr said:

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

 

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

 

جعفر

Expand  

 

  في 14‏/12‏/2017 at 07:38, مرشدعلي 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 & " )

Expand  

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

jjafferr

jjafferr

قام بنشر
قام بنشر
  في 14‏/12‏/2017 at 07:38, مرشدعلي 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 "

Expand  

 

اخي مرشد

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

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

 

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

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

 

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

00.z_0038_Forum_Code_Formating.jpg.10175120cd46d522773853e14605a13d.jpg

.

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

 

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

 

جعفر

النجاشي

النجاشي

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept