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

تطبيق لاستعلام التحديث من خلال كود VBA


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

السؤال للأخ ابو وليد وهو:

لو حبيت اضيف سجل جديد على الجدول وابغى رقمه يكون مثلا 6 كيف اخلي رقم 6 يصير 7 وهكذا للي بعده يعني 7 يصير 8 ........الخ

تم تعديل بواسطه امير عاطف
  • Thanks 1
رابط هذا التعليق
شارك

يمكنك عمل ذلك عن طريق وضع الكود التالي لحدث بعد التحديث After Apdate لمربع النص Boxnum

حيث Boxnum اسم مربع النص الذي نقوم بكتابة الرقم بداخله داخل النموذج

Boxnum.value=Boxnum.value+1

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

لم تنجح معي

ربما لم اوصل المطلوب بالصورة الصحيحة

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

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

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

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

ويضاف الى الارقام التالية له 1 لكل سجل

شرح

1 محمد رسام

2 على مساح

3 احمد مهندس

4 صالح مساح

عند اضافة شخص جديد اسمه وليد ووضيفته صيدلي واريد الرقم له 2 يصبح الجدول هكذا

1 محمد رسام

2 وليد صيدلي

================ لاحظ السجلات تغير رقمة +1

3 على مساح

4 احمد مهندس

5 صالح مساح

اتمنى ان تكون وصلت المعلومة

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

ادخل الكود التالي في حدث قبل التحديث للنموذج

Private Sub Form_BeforeUpdate(Cancel As Integer)

DoCmd.RunSQL "UPDATE aa " & _

          "SET aa.num = aa.num + 1 " & _

          "WHERE aa.num >= forms!aa!num"

End Sub

حيث ان aa هو اسم نموذج ادخال البيانات و num هو حقل الرقم

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

  • 1 year later...

المشكلة حقيقة تتعلق بتحديث بيانات مخزنة في جدول معين بقيم مخزنة في جدول آخر ولدي ملف مرفق000

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

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

اعانكم الله لسد حوائج الناس

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

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

أولاً بعد إذن المشرفين يرجى الأطلاع على قواعد المشاركة في هذا المنتدى ومنها :

أن يكون عنوان المشاركة دالاً على المشاركة نفسها وليس مبهماً مثل ( ساعدوني ) ( أنقذوني ) ...

ثانياً : أرفق المثال وستجد المساعدة ..

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

انسخ الكود التالي و ضعه في حدث زر أمر على النموذج Fixed

Private Sub Command32_Click()
Dim f As String
f = "UPDATE fixed, salary SET salary.alaw1 = [fixed].[alaw1], salary.alaw2 = [fixed].[alaw2], salary.alow3 = [fixed].[alaw3];"
DoCmd.RunSQL f

End Sub

و هذا طبعا مثال لتحديث قيم ثلاثة حقول , و يمكنك التعديل في الكود حسب الحقول التي تريدها

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

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

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

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

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

Important Information