عمل استعلام تحديث بواسطة VB ينفذ على كامل الجدول دفعة واحدة

[Hamdi Edlbi-khalf]

السلام عليكم

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

ينفذ على كامل الجدول دفعة واحدة و ليس على سجل التركيز .

ليس لدي مثال محدد و لكن بناء على ما واجهني غير مرة  :

1- تحديث جدول بناء على حقل غير منضم في نموذج.

2- تحديث حقل في جدول بناء على حقل في جدول آخر .

 و على الخصوص الحالة الأولى

و كل عام و أنتم بخير .

[Hamdi Edlbi-khalf]

هل هذا ممكن من حيث المبدأ ؟

 

مساء الخير 

[kaser906]

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

نعم ممكن ذلك بعدة طرق

بقى وضع المثال لوضع الحل المناسب

::بالتوفق::

اذا كنت ترى ان هذه المشاركة مفدة فلا تنسى التقم

[Hamdi Edlbi-khalf]

شكراً لك

أستاذ

@kaser906

Database8.accdb

[Hamdi Edlbi-khalf]

في June 18, 2018 at 17:54, kaser906 said:

نعم ممكن ذلك بعدة طرق

بانتظارأفكار هذه الطرق ..

شكراً 

[jjafferr]

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

 

رجاء توضيح اللي تريده من النموذج المرفق.

 

جعفر

[Hamdi Edlbi-khalf]

في June 20, 2018 at 23:27, jjafferr said:

 

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

 

رجاء توضيح اللي تريده من النموذج المرفق.

 

جعفر

 

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

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

في المثال المرفق أرغب بتحديث  حقل منضم بناء على حقل غير منضم .

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

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

@AlwaZeeR

حلاً سحرياً بجعل المؤشر ينتقل عبر كامل النموذج من سجل إلى آخر عند تنفيذ الأمر دفعة واحدة لينسخ قيمة الحقل الغير منضم إلى الحقل المنضم .

لكن بقي السؤال ملحاً في ذهني هل يمكن التحديث باستعلام لكامل الجدول و دون الحاجة إلى جعل المؤشر يتحرك عبر كامل النموذج  ...

عندما شاهدت مشاركات - حضرتكم- توسمت بكم حب المساعدة و القدرة عليها و هاقد شرفتني بالتجاوب مع سؤالي .

و الشكر كل الشكر للأخ الفاضل  

@kaser906

على ما يقدمه و لا زلت بانتظاره مشكوراً على أياديه البيضاء التي لا تمحى .

 

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

@jjafferr

و

@kaser906

و بانتظار ما تجودون به مشكورين غير مأمورين و من الله عز وجل خير الجزاء و من العباد الدعاء و الثناء .

تم تعديل يونيو 24, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

السؤال السابق ...

في June 20, 2018 at 23:27, jjafferr said:

 

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

 

رجاء توضيح اللي تريده من النموذج المرفق.

 

جعفر

 

هنا كانت البداية ...  البحث عن طريقة تمكنني من عمل إشعار عند التكرار يظهر على جميع السجلات المكررة لا عند سجل التركيز فقط .

الحل الذي وصلت إليه

 

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

 

قد يبدو السؤال مبتوراً من سياقه المنطقي و اعتذر لذلك و اعتذر على تأخري بتدارك التوضيح . 

شكراً لكم مرة أخرى .

[kaser906]

يقولون  لايفتى ومال في المدينة

ما دام الاستاذ @jjafferr

دخل على الموضوع فيجب علينا ان نصمت

 فكرتي عن الموضوع تتلخص بالتالي

عندما سألت السؤال في مشاركتك الأولى كان يخطر في بالي

نفس الحل الذي قدمه لك الاخ  @AlwaZeeR

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

وبما ان هذه الطريقة لا تريدها

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

ونقوم ونتعامل معه مباشرة عن طريق الاستعلام لاستخلاص نفس النتيجة

لذلك

سنقوم بعمل جدول مؤقت بأسم  Table1_Temp

ونعمل زر أمر بالنموذج ونضع خلفه هذا الكود

Private Sub cmd_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Table1_Temp.* " & vbCrLf & _
"FROM Table1_Temp;"
DoCmd.RunSQL "INSERT INTO Table1_Temp ( name11, frequency ) " & _
" SELECT Table1.name11, Count(Table1.ID) AS CountfromID " & _
" FROM Table1 LEFT JOIN Table1_Temp ON Table1.ID = Table1_Temp.ID " & _
" GROUP BY Table1.name11;"
DoCmd.RunSQL "UPDATE Table1 INNER JOIN Table1_Temp ON Table1.name11" & _
"= Table1_Temp.name11 SET Table1.frequency = [Table1_Temp]![frequency];"
Me.Refresh
End Sub

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

إذا كنت ترى أن هذه المشاركة مفيدة فلا تنسى التقيم

Database88-906.rar

[ابو جودي]

اتفضل

Database8 (1).accdb

[Hamdi Edlbi-khalf]

أسأل الله العظيم أن يجزيكم خير الجزاء و يحقق مناكم في الدنيا  و الآخرة فيما يرضيه عنكم .

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

@kaser906

@ابا جودى

@jjafferr

أشكركم على وقتكم الثمين و جهدكم الكبير و كرمكم الجم

فمن المعلوم مشقة الرفع و التنزيل مع مخاطرة إصابة الجهاز بالفيروسات و قبلها ما بذلتموه حتى اكتسبتم هذا العلم و هذه الخبرة تجودون بها لمجاهيل و عابري سبيل.

و إن كنتم ثابتين في قلوبنا و أذهاننا بأسمائكم  معلمين نذكركم و نشير إليكم ما شاء الله .

شكراً لكم و ألف شكر .

فمنكم ومن وحيكم خطرت في بالي هذه الأبيات :

فتهدوننا علماً و تفريج كربة

وليس لكم منا سوى المدح و الثنا

و أين الذي قدمتموه من الذي

أتيناها بعداً بين أرض و من سما

[jjafferr]

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

 

شكرا على هذه الكلمات الجميلة ، وهذا من حُسن ظنك فيني

ذكرتني ببرنامج قديم عملته من زمان ، فرفعته بالشرح

 

جعفر