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

[النجاشي]

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

استاتذتي الكرام 

عندما اضيف صنف بنموذجfrm_ajrd من نموذجfrmEdrajSenf  اريد تزيد الكميه 

مثلا ادخلت صنف 1-1 الكميه 5

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

اريد يصير 10 بنفس السجل  

ولا يعطينا سجل جديد اي لا يتكرر نفس الصنف وانما يضيف عليه

ان شاء الله تكون وصلت فكرتي

شاكرين اليكم احبتي

 

جرد.rar

تم تعديل مارس 1, 2018 بواسطه ابو زاهر

[ابوآمنة]

روعة

سؤال كان يراودني من زمان

نرجو أن نرى الحل ؟

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

جرب هذا

Dim rs As Recordset, db, Database

    Set db = CurrentDb
Set rsedit = CurrentDb.OpenRecordset("tfsil_jard")
rsedit.MoveFirst
Do While Not rsedit.EOF
     rsedit.MoveFirst
   Do Until rsedit.EOF
 If rsedit![Rajmsanf] = Me.[Rajmsanf] Then

         rsedit.Edit
         rsedit!Alkmiah = rsedit!Alkmiah + Me.Alkmiah
        rsedit.Update

   End If
   rsedit.MoveNext
   Loop


Loop
Set rsedit = Nothing
     
    DoCmd.Close

 

[Shivan Rekany]

3 ساعات مضت, ابو زاهر said:

عندما اضيف صنف بنموذجfrm_ajrd من نموذجfrmEdrajSenf  اريد تزيد الكميه 

اتفضل اليك هذا الرابط بها ما تريد
https://www.officena.net/ib/topic/76815-زيادة-الكمية-عند-ادخال-نفس-المادة-في-الفاتورة/?do=findComment&comment=491976
انت شاطر فعلا اذا تحاوله راح تقدر تعمل ما تريد
واذا ما اقدرت نحن حاضرين لمساعدتك اكثر

تحياتي

[النجاشي]

3 دقائق مضت, Shivan Rekany said:

اتفضل اليك هذا الرابط بها ما تريد
https://www.officena.net/ib/topic/76815-زيادة-الكمية-عند-ادخال-نفس-المادة-في-الفاتورة/?do=findComment&comment=491976
انت شاطر فعلا اذا تحاوله راح تقدر تعمل ما تريد
واذا ما اقدرت نحن حاضرين لمساعدتك اكثر

تحياتي

راح اجرب عضلاتي هههههه وانا يكون التمارين نفعت معي 

جاري العمل ساخبرك بالنتايج  استاذي الكريم

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

بعد اذن اخي Shivan Rekany

شوف هل هذا طلبك

 

 

جرد.mdb

تم تعديل مارس 1, 2018 بواسطه ابو ياسين المشولي

[النجاشي]

2 دقائق مضت, ابو ياسين المشولي said:

بعد اذن اخي Shivan Rekany

شوف هل هذا طلبك

جرد.mdb

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

تحياتي اليك ابو ياسين 

[النجاشي]

للرفع

[النجاشي]

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

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

تحياتي

777799.rar

[صالح حمادي]

هذا سهل و إن شاء الله الحل عندي أصلي المغرب في المسجد و أعود

[النجاشي]

الله يتقبل منك ربنا يجزيك كل خير استاذنا الكريم صالح حمادي

 

[AlwaZeeR]

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

عزيزي ابو زاهر

المرفق الذي ارفقته في مشاركتك الاخيرة لم ينزل عندي

لذا اشتغلت لك على المرفق الاول

تفضل ووافني بالنتيجة

طبعا انا لا استخدم RS ووو كثيرا

فقط اعمل على Sql

::

تحياتي

 

Jard-waz.rar

[النجاشي]

9 دقائق مضت, AlwaZeeR said:

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

عزيزي ابو زاهر

المرفق الذي ارفقته في مشاركتك الاخيرة لم ينزل عندي

لذا اشتغلت لك على المرفق الاول

تفضل ووافني بالنتيجة

طبعا انا لا استخدم RS ووو كثيرا

فقط اعمل على Sql

::

تحياتي

 

Jard-waz.rar

استاذي الكريم اريد العمليه تتم بالنماذج بهذا النموذج frm_ajrd ومن ثم اعمل حفظ  لانه الجدوال  المستخدم طبعا  ما راح يشوفها بينظر للنموذج

تحياتي اليك يالغالي

 

تم تعديل مارس 2, 2018 بواسطه ابو زاهر

[AlwaZeeR]

8 دقائق مضت, ابو زاهر said:

اريد العمليه تتم بالنماذج بهذا النموذج frm_ajrd ومن ثم اعمل حفظ  لانه الجدوال  المستخدم طبعا  ما راح يشوفها بينظر للنموذج

مش فاهم

هل جربت المرفق:

انا طبقتها على زر ادراج

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

واذا كان غير مووجود يتم اضافة الصنف بشكل عادي

 

[النجاشي]

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

اولا نقوم بفتح نموذجfrm_ajrd ثم نظغط انتر كم مره بيفتح لك نموذج الذي عملت عليه نريدها يدرج بنموذجfrm_ajrd

 

[AlwaZeeR]

اذن تريد هذا العمل ان يتم تحت امر حفظ في النموذج الذي قمت بذكره؟؟؟

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

::

تحياتي

 

[النجاشي]

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

انظر لهذا الصوره 

[صالح حمادي]

آه كم أنت محظوظ أخي ابوزاهر لأن موضوعك دخل في أحد عمالقة الأكسس @AlwaZeeR

[النجاشي]

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

الف  تحيه اليك  استاذنا الغالي نورت المنتدي بوجودك 

[صالح حمادي]

السلام عليكم

هذا الكود المستعمل:

On Error Resume Next

    Dim Rs As DAO.Recordset
    Set Rs = Forms!frm_ajrd!SubSales.Form.RecordsetClone
Dim Rc As Integer, x As Integer
x = 0
    Rc = Rs.RecordCount
If Rc > 0 Then
   Rs.MoveFirst
   Do Until Rs.EOF

   If Rs!Rajmsanf = Rajmsanf Then

         Rs.Edit
Rs!Alkmiah = Rs!Alkmiah + Alkmiah
         Rs.Update
Rajmsanf = Null
Alkmiah = Null
         Exit Sub

End If
   Rs.MoveNext
   Loop
End If

Rs.AddNew
Rs!Rajmsanf = Rajmsanf
Rs!Alkmiah = Alkmiah
Rs!äæÚåÇ = "ÇáÌÑÏ"
Rs!Almwka = Almwka
Rs.Update
Rajmsanf = Null
Almwka = Null
Alkmiah = Null
Undo

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

777799.rar

[النجاشي]

4 دقائق مضت, صالح حمادي said:

السلام عليكم

هذا الكود المستعمل:

On Error Resume Next

    Dim Rs As DAO.Recordset
    Set Rs = Forms!frm_ajrd!SubSales.Form.RecordsetClone
Dim Rc As Integer, x As Integer
x = 0
    Rc = Rs.RecordCount
If Rc > 0 Then
   Rs.MoveFirst
   Do Until Rs.EOF

   If Rs!Rajmsanf = Rajmsanf Then

         Rs.Edit
Rs!Alkmiah = Rs!Alkmiah + Alkmiah
         Rs.Update
Rajmsanf = Null
Alkmiah = Null
         Exit Sub

End If
   Rs.MoveNext
   Loop
End If

Rs.AddNew
Rs!Rajmsanf = Rajmsanf
Rs!Alkmiah = Alkmiah
Rs!äæÚåÇ = "ÇáÌÑÏ"
Rs!Almwka = Almwka
Rs.Update
Rajmsanf = Null
Almwka = Null
Alkmiah = Null
Undo

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

777799.rar

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

والشكر موصول لاخونا واستاذنا@AlwaZeeR الله يبارك فيه بذل الكثير 

والشكر لاستاذنا @ابو ياسين المشولي ما قصر بذل جهد

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

الف الف تحيه اليكم اخواني الكرام اسعدكم الله

 

 

[صالح حمادي]

الحمد لله الذي أنعم علينا و منا علينا بالحل الصواب

[النجاشي]

الحمد والشكر لله

الله يجزيك كل خير ويعطيك الصحه والعافيه ويزيدك علما

[AlwaZeeR]

احسنت صديقي صالح ،،، حل رائع

والحمد لله على كل شيء

::

تحياتي لكم جميعا

 

[صالح حمادي]

آمين يا رب العالمين و إن شاء الله أجمعين

فقط إريد أن أنوه إلى شيء و هو كثر الإقتباس

فالرجاء عند إقتباس مشاركة عدم إقتباسها كاملة و الإكتفاء بإقتباس الأسطر التي تريد الرد عليها مثلما فعل صديقي العزيز @AlwaZeeR

لكي لا تطول المشاركة أكثر من اللازم.