اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

::بالتوفق::

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

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

  • Like 2
رابط هذا التعليق
شارك

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

 

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

 

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

 

جعفر

 

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

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

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

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

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

@AlwaZeeR

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

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

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

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

@kaser906

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

 

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

@jjafferr

و

@kaser906

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

تم تعديل بواسطه Khalf
رابط هذا التعليق
شارك

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

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

 

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

 

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

 

جعفر

 

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

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

 

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

 

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

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

رابط هذا التعليق
شارك

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

ما دام الاستاذ @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

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

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

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

Database88-906.rar

  • Like 2
  • Thanks 2
رابط هذا التعليق
شارك

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

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

@kaser906

@ابا جودى

@jjafferr

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

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

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

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

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

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

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

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information