اذهب الي المحتوي
أوفيسنا

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

قام بنشر

عند استخدام النموذج (في الملف المرفق) والضغط على زر الشهر اريد الإجابة على سؤال الاستعلام

اللي هو (ادخل رقم الشهر)

تكون الإجابة برمجيا بدلا من الكتابة وليكن مثلا رقم الشهر 7

والف شكرا للمساعدة مقدما

vba.accdb

قام بنشر

ضع في الاستعلام  في المعيار  بدلا من الجملة [ادخل رقم الشهر] ضع رقم 7

هذه اجابة حسب طلبك بالضبط

الحل الآخر :

عادة  يتم اختيار الرقم  من داخل النموذج  قبل النقر على الزر

وهو ما صنعته لك في مثالك المرفق

vba.mdb

قام بنشر

شكرا أستاذ أبو خليل على المساعدة

بس اللي انا محتاجة غير الحل ده

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

Private Sub أمر0_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "2"

هنا مثلا يتم الرد
DoCmd.SetWarnings True

End Sub

 

قام بنشر

 

في الاستعلامات الاجرائية ( التحديث والالحاق والحذف والإنشاء) يمكن تمرير المعلمات داخل الكود  وتنفيذ الاجراء 

ولكن يمتنع عرض جملة select   باستخدام  OpenQuery

ايضا لا مكان للمعلمات داخل الجملة

بناء الجملة :

OpenQuery(QueryName, View, DataMode)

ولكن يمكن لتطبيق الفكرة التحايل واستخدام  وسيط مؤقت

انظر المرفق

vba2.mdb

قام بنشر
29 دقائق مضت, ابوخليل said:

ي الاستعلامات الاجرائية ( التحديث والالحاق والحذف والإنشاء) يمكن تمرير المعلمات داخل الكود  وتنفيذ الاجراء 

طب الكود هنا هيكون ازاي 

قام بنشر

نفرض اضفنا عمود باسم  text1 الى جدول الشهور ونريد ان نضع كلمة ok في الحقل امام شهر 7  الكود سيصبح هكذا

DoCmd.RunSQL "UPDATE tbl1 SET tbl1.text1 = ""ok"" WHERE tbl1.month_ID=7"

 

 

vba3.mdb

قام بنشر (معدل)

الاخ @Taaiy

وبعد اذن الاستاذ ابا خليل

هذا لتمرير الباراميتر في امر فتح الاستعلام

Private Sub أمر0_Click()
DoCmd.SetParameter "[ادخل رقم الشهر]", "1"
DoCmd.SetWarnings False
DoCmd.OpenQuery "2"
DoCmd.SetWarnings True
End Sub

بالتوفيق

تم تعديل بواسطه رمهان
  • Like 1
  • Thanks 1
قام بنشر

اهلا استاذ رمهان

يبدوا ان  SetParameter  موجودة ضمن  docmd  في الاصدارات الجديدة

الصورة تتكلم :

 ما الحب الا للحبيب الأول .. لا تصلح في هذا العلم .. اما المواكبة واما التوقف

Untitled.jpg

قام بنشر (معدل)

اتفضل دى حاجة سهلة جدا :power:شوف المرفق كده يا سيدى :biggrin::biggrin: 

دا سؤال ده يا راجل

لا وايه ما شاء الله رزقك واسع جدا تجد الرد من أعمدة المنتدى

الاستاذ الفاضل المبجل ووالدى الحبيب الاستاذ @ابوخليل :fff:

والاستاذ الفاضل المبجل وأخى الحبيب صاحب اللمسات الساحرة الرمهانية الاستاذ @رمهان :fff:

 

vba2 الله لا يحرمنا اللمسة الرمهانية .mdb

تم تعديل بواسطه ابا جودى
تعديل المرفق
  • Thanks 1
قام بنشر
4 ساعات مضت, ابوخليل said:

اهلا استاذ رمهان

يبدوا ان  SetParameter  موجودة ضمن  docmd  في الاصدارات الجديدة

الصورة تتكلم :

 ما الحب الا للحبيب الأول .. لا تصلح في هذا العلم .. اما المواكبة واما التوقف

Untitled.jpg

صحيح استاذنا

واعتقد من الاصدار 2010 ويمكن استخدامها حتى في فتح النموذج واتقرير    docmd.openform     docmd.openreport

تحياتي

قام بنشر

ماشاء الله دايما سباقين في الخير

عجز اللسان عن الشكر

ربنا يجازيكم جميعا خير جزاء

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