Taaiy قام بنشر مارس 9, 2019 مشاركة قام بنشر مارس 9, 2019 عند استخدام النموذج (في الملف المرفق) والضغط على زر الشهر اريد الإجابة على سؤال الاستعلام اللي هو (ادخل رقم الشهر) تكون الإجابة برمجيا بدلا من الكتابة وليكن مثلا رقم الشهر 7 والف شكرا للمساعدة مقدما vba.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 10, 2019 مشاركة قام بنشر مارس 10, 2019 ضع في الاستعلام في المعيار بدلا من الجملة [ادخل رقم الشهر] ضع رقم 7 هذه اجابة حسب طلبك بالضبط الحل الآخر : عادة يتم اختيار الرقم من داخل النموذج قبل النقر على الزر وهو ما صنعته لك في مثالك المرفق vba.mdb رابط هذا التعليق شارك More sharing options...
Taaiy قام بنشر مارس 10, 2019 الكاتب مشاركة قام بنشر مارس 10, 2019 شكرا أستاذ أبو خليل على المساعدة بس اللي انا محتاجة غير الحل ده الفكرة اني محتاج انه يتم الرد على سؤال القيمة المعلمة بالكود برمجيا Private Sub أمر0_Click() DoCmd.SetWarnings False DoCmd.OpenQuery "2" هنا مثلا يتم الرد DoCmd.SetWarnings True End Sub رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 10, 2019 مشاركة قام بنشر مارس 10, 2019 في الاستعلامات الاجرائية ( التحديث والالحاق والحذف والإنشاء) يمكن تمرير المعلمات داخل الكود وتنفيذ الاجراء ولكن يمتنع عرض جملة select باستخدام OpenQuery ايضا لا مكان للمعلمات داخل الجملة بناء الجملة : OpenQuery(QueryName, View, DataMode) ولكن يمكن لتطبيق الفكرة التحايل واستخدام وسيط مؤقت انظر المرفق vba2.mdb رابط هذا التعليق شارك More sharing options...
Taaiy قام بنشر مارس 10, 2019 الكاتب مشاركة قام بنشر مارس 10, 2019 بارك الله فيك استاذي الفاضل وزادك الله من فضله وعلمه رابط هذا التعليق شارك More sharing options...
Taaiy قام بنشر مارس 10, 2019 الكاتب مشاركة قام بنشر مارس 10, 2019 29 دقائق مضت, ابوخليل said: ي الاستعلامات الاجرائية ( التحديث والالحاق والحذف والإنشاء) يمكن تمرير المعلمات داخل الكود وتنفيذ الاجراء طب الكود هنا هيكون ازاي رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 نفرض اضفنا عمود باسم text1 الى جدول الشهور ونريد ان نضع كلمة ok في الحقل امام شهر 7 الكود سيصبح هكذا DoCmd.RunSQL "UPDATE tbl1 SET tbl1.text1 = ""ok"" WHERE tbl1.month_ID=7" vba3.mdb رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 (معدل) الاخ @Taaiy وبعد اذن الاستاذ ابا خليل هذا لتمرير الباراميتر في امر فتح الاستعلام Private Sub أمر0_Click() DoCmd.SetParameter "[ادخل رقم الشهر]", "1" DoCmd.SetWarnings False DoCmd.OpenQuery "2" DoCmd.SetWarnings True End Sub بالتوفيق تم تعديل مارس 11, 2019 بواسطه رمهان 1 1 رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 اهلا استاذ رمهان يبدوا ان SetParameter موجودة ضمن docmd في الاصدارات الجديدة الصورة تتكلم : ما الحب الا للحبيب الأول .. لا تصلح في هذا العلم .. اما المواكبة واما التوقف رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 (معدل) اتفضل دى حاجة سهلة جدا شوف المرفق كده يا سيدى دا سؤال ده يا راجل لا وايه ما شاء الله رزقك واسع جدا تجد الرد من أعمدة المنتدى الاستاذ الفاضل المبجل ووالدى الحبيب الاستاذ @ابوخليل والاستاذ الفاضل المبجل وأخى الحبيب صاحب اللمسات الساحرة الرمهانية الاستاذ @رمهان vba2 الله لا يحرمنا اللمسة الرمهانية .mdb تم تعديل مارس 11, 2019 بواسطه ابا جودى تعديل المرفق 1 رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 4 ساعات مضت, ابوخليل said: اهلا استاذ رمهان يبدوا ان SetParameter موجودة ضمن docmd في الاصدارات الجديدة الصورة تتكلم : ما الحب الا للحبيب الأول .. لا تصلح في هذا العلم .. اما المواكبة واما التوقف صحيح استاذنا واعتقد من الاصدار 2010 ويمكن استخدامها حتى في فتح النموذج واتقرير docmd.openform docmd.openreport تحياتي رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 ولاضافة بعد المرونة حتى لا يتم التعديل على الكود لتغير القيمة المعلمة vba2 الله لا يحرمنا اللمسة الرمهانية (2).mdb رابط هذا التعليق شارك More sharing options...
Taaiy قام بنشر مارس 11, 2019 الكاتب مشاركة قام بنشر مارس 11, 2019 ماشاء الله دايما سباقين في الخير عجز اللسان عن الشكر ربنا يجازيكم جميعا خير جزاء رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر مارس 11, 2019 مشاركة قام بنشر مارس 11, 2019 وهذه طريقة اخرى بالاستعلام 3 vba.accdb رابط هذا التعليق شارك More sharing options...
Taaiy قام بنشر مارس 11, 2019 الكاتب مشاركة قام بنشر مارس 11, 2019 شغلت الكود بالفعل ووفر عليا 24 استعلام كنت مكررهم شكرا للجميع مرة اخرى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.