استعلام تحديث لكامل العمود بقيم مختلفة

[Hamdi Edlbi-khalf]

السلام عليكم 

كيف أقوم بعمل استعلام تحديث لعمود كامل في نموذج مستمر و بقيم مختلفة ؟

لدي نموذج مستمر  فيه مربع نص غير منضم

Unbound textbox 

يحوي معادلة 

dmax 

بشروط تتناسب مع السجل 

و لدي استعلام تحديث ينقل القيم إلى حقل منضم  في السجل الذي أضع المؤشر فيه .

 

أرغب بتحديث كامل العمود الخاص بالحقل المنضم بالبيانات الموجودة في  مربع النص المذكور دفعة واحدة لا عن طريق تحديث السجلات واحداً واحداً 

 و ذلك بمجرد ضغط زر أو  اطلاق حدث

و ذلك بعد نجاح المعادلة المذكورة في المنشور السابق 

https://www.officena.net/ib/topic/83377-dmax-و-شرط-في-حقل-غير-منضم-في-نموذج-مستمر/

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

 

 

 

 

[kaser906]

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

أخي الكريم

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

فطلباتك لايمكن تطبيقها نظريا

لعل احد الاساتذة أو الخبراء يمر على  موضوعك ويجده متكامل ويعطيك الحل

الا تتفق معي أنك بحاجة الى الوصول لحل في المنشور السابق

قبل طرح هذا الموضوع

::بالتوفيق::

 

 

[Hamdi Edlbi-khalf]

و أخيراً وجدت من يجيب 

شكراً شكراً 

أخي الفاضل 

بارك الله بك 

لقد وجدت الحل للأسئلة السابقة  بعد التجريب و للأسف لم أجد شيئاً في الإنترنت بعد البحث سواء باللغة العربية أو الإنكليزية 

و المشكلة التي تبقت هي إمكانية التحديث المذكورة فإلم تكن ممكنة سأتوقف عن البحث و إن كانت سأضع نسخة مصغرة عن البرنامج و لكن من مكان آخر يتوفر به انترنت سريع  لا يكون ٢٥٦ و بعد الحسميات بالكاد ٥٦

و سرعة الـ

upload 

لا تزال أبطأ من الـ

Download

 مما يضطرني إلى التصفح عبر الهاتف المحمول كونه أخف حملاً و أيسر مؤنة من الحاسوب .

و سأحاول أن أرفع ملفاً طالما أن هناك من شرفني و أسعدني بالالتفات إلى منشوري هذا .

و   أعطاك الله على قدر نيتك .

و شكراً لك 

و ليتك تفيدني إن كان هذا الطلب مستحيلاً مبدئياً .

[kaser906]

2 دقائق مضت, Khalf said:

و ليتك تفيدني إن كان هذا الطلب مستحيلاً مبدئياً .

لا اعتقد  يوجد شيئ مستحيل في عالم البرمجة

ولدينا في هذا الصرح الشامخ اساتذة يشار إليهم بالبنان

::بالتوفيق ::

[Hamdi Edlbi-khalf]

و ألفت عنايتكم أن الأسئلة هي موضوعات منفصلة يمكن الإجابة عن أحدها دون التطرق للأخرى 

و لكنها في المجموع تحقق المطلوب .

 

[Hamdi Edlbi-khalf]

أشكركم أخواني بالسلف  و لكم دعاء من خلف

مجالس الإدارة.7z

[Hamdi Edlbi-khalf]

للرفع ....

[عبد الفتاح كيرة]

أنشئ استعلام تحديث

فى معيار الحقل الذى تريد تحديثه

اجعل القيمة إحالة لمربع النص فى النموذج

بعد ذلك فى النموذج أنشئ زرا لتشغيل هذا الاستعلام

وفى نهاية الكود حدث النموذج

 

تم تعديل أبريل 20, 2018 بواسطه عبد الفتاح كيرة

[Hamdi Edlbi-khalf]

صباح الخير أستاذ عبد الفتاح .

لقد جربت الطريقة التي اقترحتها و لم أحصل على النتيجة بل توقف الاستعلام عن التحديث كلياً .

 

أعتقد أنني لم أتمكن من تطبيق طريقتكم بصورة صحيحة .

حبذا لو تكرمت عليّ و عدلت على الملف الذي أرفقته في التعليق السابق على جوابكم الكريم .

 

   

[AlwaZeeR]

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

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

Dim rst As Recordset
    Set rst = Me.RecordsetClone
    With rst
        .MoveLast
        .MoveFirst
        Do Until .EOF
            Me.Bookmark = .Bookmark
            Me.Refresh
            Me.End = Text1
            .MoveNext
        Loop
        .MoveFirst
        Me.Bookmark = .Bookmark
    End With

 

[Hamdi Edlbi-khalf]

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

أخي الوزير 

لم يعمل الكود لدي و قد أشار إلى 

error

عند 

me.end = text1

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

[AlwaZeeR]

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

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

Dim rst As Recordset
    Set rst = Me.RecordsetClone
    With rst
        .MoveLast
        .MoveFirst
        Do Until .EOF
            Me.Bookmark = .Bookmark
            Me.Refresh
            Me.End = Text1
            .MoveNext
        Loop
        .MoveFirst
        Me.Bookmark = .Bookmark
    End With

 

Khalaf2018.rar

[Hamdi Edlbi-khalf]

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

الكلام قليل على ما قدمته  ، اليوم لدي أستاذ ثالث في عالم النت

Startnet  - أزهر ..

و أنت أيها الأمير

( الوزير )

لا أنسى أي منهم و ليس جحوداً ألا أذكرهم جميعاً فالقائمة تطول  و  لكن لبعضهم أياد بيضاء تفوق الكلمات و العبارات   .

و الشكر موصول لكل من قرأ و تفاعل 

أساتذتي و أخوتي

عبد الفتاح كيرة

Kaser906 

جزاكم الله كل خير نالتكم رحماته و عطاياه

سبحانك اللهم و بحمدك أشهد ألا إله إلا أنت

أستغفرك و أتوب إليك 

[kaser906]

::بالتوفيق::