تحديث قيمه مجاميع الحقول عموديا

[النجاشي]

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

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

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

تحديث المجاميع.rar

[Eng.Qassim]

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

اعتقد ...تحتاج مع كل حقل تعمل هذا ..انا عملته مع حقل واحد ..اعمله مع التسعة البقية

ويجب اضافة هذا الحقل ايضا ID_Time الى النموذج واجعله مخفي

Private Sub day1_AfterUpdate()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE table_BAIN SET day1 = " & Me.day1 & " WHERE ID_Time = " & Me.ID_Time
    DoCmd.SetWarnings True
    Me.Requery
End Sub

 

تم تعديل فبراير 28, 2023 بواسطه Eng.Qassim

[النجاشي]

21 دقائق مضت, Eng.Qassim said:

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

اعتقد ...تحتاج مع كل حقل تعمل هذا ..انا عملته مع حقل واحد ..اعمله مع التسعة البقية

ويجب اضافة هذا الحقل ايضا ID_Time الى النموذج واجعله مخفي

Private Sub day1_AfterUpdate()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE table_BAIN SET day1 = " & Me.day1 & " WHERE ID_Time = " & Me.ID_Time
    DoCmd.SetWarnings True
    Me.Requery
End Sub

 

بارك الله فيك استاذي الفاضل اشتغل الكود جيدا 

لكن ارى هذا مرهقا عندما اضعه بكل حقل عندما يكون عندي حدود 100 حقل 

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

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

[Eng.Qassim]

1 دقيقه مضت, النجاشي said:

هل يوجد مثلا داله تكون لكل الحقول

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

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

ربما احد الاخوة لديه طريقة افضل

[النجاشي]

الان, Eng.Qassim said:

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

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

ربما احد الاخوة لديه طريقة افضل

كثر الله خيرك استاذي الغالي اذا لم نجد طريقه  من احد الاخوه  ما معانا الا كودك

تحياتي اليك مشكورررررررررر

تم تعديل فبراير 28, 2023 بواسطه النجاشي

[Eng.Qassim]

بالتوفيق يارب ...ودعواكم لنا يا أهل المملكة المشرفة

[النجاشي]

12 دقائق مضت, Eng.Qassim said:

بالتوفيق يارب ...ودعواكم لنا يا أهل المملكة المشرفة

ربنا يحفظكم ويوفقكم اخي العزيز وجميع المسلمين

[AbuuAhmed]

منذ ساعه, Eng.Qassim said:

DoCmd.RunSQL "UPDATE table_BAIN SET day1 = " & Me.day1 & " WHERE ID_Time = " & Me.ID_Time

طريقة استخدمها مع تكرار حدث ما وحتى أتفادى أخطاء الأسماء استخدم بعض التعديل على الكود (وهذا لا يعني كود المهندس قاسم به خطأ).
لم أستطع أن أفتح قاعدة البيانات والتعديل مباشرة في محرر المنتدى.
 

With Me.ActiveControl
    DoCmd.RunSQL "UPDATE table_BAIN SET " & .Name & " = " & .Value & " WHERE ID_Time = " & Me.ID_Time
End With

 

تم تعديل فبراير 28, 2023 بواسطه AbuuAhmed

[Barna]

2 ساعات مضت, النجاشي said:

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

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

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

مشاركة مه استاذي الكريم @Eng.Qassim

استخدم في حدث بعد التحديث هذا ....

Me.Recalc

 

[Eng.Qassim]

15 دقائق مضت, Barna said:

مشاركة مه استاذي الكريم

استغفر الله .. فانت استاذي ...استاذ برناوي

[Barna]

الان, Eng.Qassim said:

استغفر الله .. فانت استاذي ...استاذ برناوي

كل من استفيد منه فيعتبر استاذي وتاج رأسي ايضا .... بارك الله في تواضعك اخي الكريم

[AbuuAhmed]

لو أستطيع أفتح قاعدة البيانات لعملت لك الحل في حدث واحد فقط .. ولكن ما باليد حيلة.
الجايات أفضل إن شاء الله.

[AbuuAhmed]

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

Private Sub Form_KeyPress(KeyAscii As Integer)
    With Screen.ActiveControl
        If .ControlSource Like "Day*" Then
            DoCmd.RunSQL "UPDATE table_BAIN SET " & .ControlSource & " = " & .Value & " WHERE ID_Time = " & Me.ID_Time
        End If
    End With
End Sub

وأخمن أن التحديث لن يتم بخاصية Value كون القيمة لا تزال في طور التحديث وعليه حاول تبديل الخاصية إلى Text

تم تعديل مارس 1, 2023 بواسطه AbuuAhmed

[النجاشي]

10 ساعات مضت, AbuuAhmed said:

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

Private Sub Form_KeyPress(KeyAscii As Integer)
    With Screen.ActiveControl
        If .ControlSource Like "Day*" Then
            DoCmd.RunSQL "UPDATE table_BAIN SET " & .ControlSource & " = " & .Value & " WHERE ID_Time = " & Me.ID_Time
        End If
    End With
End Sub

وأخمن أن التحديث لن يتم بخاصية Value كون القيمة لا تزال في طور التحديث وعليه حاول تبديل الخاصية إلى Text

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

وأخمن أن التحديث لن يتم بخاصية Value كون القيمة لا تزال في طور التحديث وعليه حاول تبديل الخاصية إلى Text

[AbuuAhmed]

حياك الله عزيزي ، مشكلتي أن الأكسس عندي قديم أعتقد ٢٠٠٧ ولا أستطيع فتح قاعدة البيانات ، إن استطعت ترفع لي نسخة لإصدار ٢٠٠٧ أكون لك شاكرا ، لأني أنا أحتاجها كذلك لعمل بعض التجارب عليها.

[النجاشي]

8 دقائق مضت, AbuuAhmed said:

حياك الله عزيزي ، مشكلتي أن الأكسس عندي قديم أعتقد ٢٠٠٧ ولا أستطيع فتح قاعدة البيانات ، إن استطعت ترفع لي نسخة لإصدار ٢٠٠٧ أكون لك شاكرا ، لأني أنا أحتاجها كذلك لعمل بعض التجارب عليها.

استاذي العزيز تقصد المثال يكون باصدار 2007 انظر الي هذا المثال 

المثال.rar

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

[النجاشي]

في 28‏/2‏/2023 at 22:37, Barna said:

مشاركة مه استاذي الكريم @Eng.Qassim

استخدم في حدث بعد التحديث هذا ....

Me.Recalc

 

استاذي الفاضل جربت ولم يعمل معي 

حبيت اكد المطلوب تحديث الحقول اسفل النموذج اسمائهاSUM

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

تحياتي استاذي الفاضل ممكن تطبيقه على المثال

تحديث المجاميع.rar

تم تعديل مارس 2, 2023 بواسطه النجاشي

[Barna]

57 دقائق مضت, النجاشي said:

استاذي الفاضل جربت ولم يعمل معي 

حبيت اكد المطلوب تحديث الحقول اسفل النموذج اسمائهاSUM

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

تحياتي استاذي الفاضل ممكن تطبيقه على المثال

هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم  ..... جرب المرفق .......

 

تحديث المجاميع.rar

[النجاشي]

4 دقائق مضت, Barna said:

هل انت تسخدم مفتاح الادخال ( Enter ) للانتقال ..... اذا كانت الاجابة نعم  ..... جرب المرفق .......

 

تحديث المجاميع.rar 53.92 kB · 0 downloads

بارك الله فيك استاذي الغالي ممتاز 

ابدعت يالغالي ممكن اكتفي بهذا يلبي الطلب 

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

ولكن اخي الفاضل هذا زياده خير اذا امكن ذاللك والا اكتفي باجابتك حفظك الله 

مشكوررررررررررر

[AbuuAhmed]

أخي @النجاشي لم أنسى موضوعك وأنا أعمل عليه ولكن أوده أن يخرج بأفضل صورة مع أخذ اعتبارات حجم البيانات.
قد أنتهي منه بالكثير 24 ساعة وربما أقل.

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

[النجاشي]

26 دقائق مضت, AbuuAhmed said:

أخي @النجاشي لم أنسى موضوعك وأنا أعمل عليه ولكن أوده أن يخرج بأفضل صورة مع أخذ اعتبارات حجم البيانات.
قد أنتهي منه بالكثير 24 ساعة وربما أقل.

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

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

[AbuuAhmed]

في 1‏/3‏/2023 at 14:31, AbuuAhmed said:

إن استطعت ترفع لي نسخة لإصدار ٢٠٠٧ أكون لك شاكرا ، لأني أنا أحتاجها كذلك لعمل بعض التجارب عليها.

في 1‏/3‏/2023 at 14:34, النجاشي said:

استاذي العزيز تقصد المثال يكون باصدار 2007 انظر الي هذا المثال

المثال بعد إجراء عدة محاولات ، جربه وارجع لنا بنائج الفحص.

المثال_01.mdb

[النجاشي]

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

المثال بعد إجراء عدة محاولات ، جربه وارجع لنا بنائج الفحص.

المثال_01.mdb 676 kB · 0 downloads

رائع جدا يابو احمد حفظك الله والجميل اعجبني الهدوء بالتحديث استخدمت الاكواد لجلب القيم ممتاز يالغالي

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

رغم الاستاذ Barna الله يحفظه ابدي محاوله رائعه 

مشكورين استاذتي الكرام

 

[AbuuAhmed]

طريقة أفضل بكثير من سابقتها، ولكنها مشروطة بعدم استخدامك لحدث بعد التحديث After Update

المثال_02.accdb

[النجاشي]

48 دقائق مضت, AbuuAhmed said:

طريقة أفضل بكثير من سابقتها، ولكنها مشروطة بعدم استخدامك لحدث بعد التحديث After Update

المثال_02.accdb 788 kB · 1 download

ما عاد بيكون احتاج لحدث بعد التحديث

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

اضفت هذا الكود

    If KeyCode = vbKeyUp Then
    DoCmd.GoToRecord , , acPrevious
  End If

  If KeyCode = vbKeyDown Then
    DoCmd.GoToRecord , , acNext
  End If

للتحرك اعلى واسفل وخاصه بعد ما اغير قيمه بحقل يعمل

اما هذا الكود لم افهمه

    Select Case KeyCode
        Case 37: KeyCode = 39
        Case 39: KeyCode = 37
    End Select

صحيح شغال ولكن قم  تقوم بتغير قيمه بحقل ستلاحظ  يبقى مركز بنفس الحقل لم ينتقل 

معذرتا استاذي الفاضل غلبتك معي ولكن لمساتك الاخيره نكون خلصنا من هذا الموضوع

تحياتي