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

[النجاشي]

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

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

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

تحديث المجاميع.rarFetching info...

[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

[النجاشي]

  في 28‏/2‏/2023 at 18:14, 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

 

Expand  

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

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

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

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

[Eng.Qassim]

  في 28‏/2‏/2023 at 18:42, النجاشي said:

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

Expand  

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

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

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

[النجاشي]

  في 28‏/2‏/2023 at 18:47, Eng.Qassim said:

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

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

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

Expand  

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

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

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

[Eng.Qassim]

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

[النجاشي]

  في 28‏/2‏/2023 at 18:53, Eng.Qassim said:

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

Expand  

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

[AbuuAhmed]

  في 28‏/2‏/2023 at 18:14, Eng.Qassim said:

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

Expand  

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

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

 

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

[Barna]

  في 28‏/2‏/2023 at 17:21, النجاشي said:

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

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

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

Expand  

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

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

Me.Recalc

 

[Eng.Qassim]

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

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

Expand  

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

[Barna]

  في 28‏/2‏/2023 at 19:53, Eng.Qassim said:

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

Expand  

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

[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

[النجاشي]

  في 1‏/3‏/2023 at 00:13, 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

Expand  

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

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

[AbuuAhmed]

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

[النجاشي]

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

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

Expand  

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

المثال.rarFetching info...

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

[النجاشي]

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

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

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

Me.Recalc

 

Expand  

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

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

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

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

تحديث المجاميع.rarFetching info...

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

[Barna]

  في 2‏/3‏/2023 at 13:01, النجاشي said:

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

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

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

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

Expand  

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

 

تحديث المجاميع.rarFetching info...

[النجاشي]

  في 2‏/3‏/2023 at 14:01, Barna said:

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

 

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

Expand  

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

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

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

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

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

[AbuuAhmed]

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

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

[النجاشي]

  في 2‏/3‏/2023 at 17:48, AbuuAhmed said:

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

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

Expand  

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

[AbuuAhmed]

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

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

Expand  

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

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

Expand  

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

المثال_01.mdbFetching info...

[النجاشي]

  في 2‏/3‏/2023 at 18:52, AbuuAhmed said:

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

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

Expand  

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

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

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

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

 

[AbuuAhmed]

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

المثال_02.accdbFetching info...

[النجاشي]

  في 2‏/3‏/2023 at 20:34, AbuuAhmed said:

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

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

Expand  

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

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

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

    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

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

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

تحياتي