محمد عبد الله ٢

أسأل الله لك و لنا الفرج و راحة البال

جزاك الله خيرآ

تم الأمر بنجاح 👍

3 دقائق مضت, Barna said:

لم افهم ما المقصود ببقية الكود

DoCmd.RunCommand acCmdDeleteRecord

أقصد هذا الجزء من الكود المسؤول عن مسح السجل الموجود في جدول Tag 

24 دقائق مضت, Barna said:

 DoCmd.SetWarnings False
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
        Me.Refresh
        MsgBox "تمت عملية الحذف بنجاح", , "تم"
        Me.U1.SetFocus

جزاك الله خيرآ

الآن يعمل على الجدول hmola تمامآ

و يقف و لا ينفد بقية الكود 👆

منذ ساعه, Barna said:

 DoCmd.RunSQL " UPDATE tag1 INNER JOIN hmola ON tag1.byan = hmola.BYAN SET hmola.tag = False;"

        DoCmd.RunSQL " UPDATE tag1 INNER JOIN hmola ON [tag1].form![byan] = hmola.BYAN SET hmola.tag = False;"
استبدلت

tag1.byan

ب [tag1].form![byan] يقوم الكود بتحديث اول سجل فقط و الباقي لا يتم تحديثه

7 دقائق مضت, محمد عبد الله ٢ said:

يوجد علاقة بين الجدول tag و الجدول tag1 بحيث يتم عرض الرقم المشترك بينهما

أما بالنسبة للجدول hmola فلا توجد اي علاقة بينهما

1 دقيقه مضت, Barna said:

طيب .. انا على الموبايل ... ارجع ووافيك

بالسلامة ان شاء الله 

حياك الله و جعل عملك في ميزان حسناتك 

الان, ابو البشر said:

هل جربت الكود يا اخ محمد

تحياتي أستاذ ابو البشر 

نعم جربته و هو يقوم بتحديد false لكل القيم الموجودة في الحقل [tag]![hmola] 

1 دقيقه مضت, Barna said:

ولكن هل الجدول tag1 يحوي سجلات غير المعروضة في النموذج الفرعي

نعم 

يوجد علاقة بين الجدول tag و الجدول tag1 بحيث يتم عرض الرقم المشترك بينهما

6 دقائق مضت, Barna said:

جرب هذا الكود بدل الموجود لديك ........................

جزاك الله خيرآ

ولكن هذا الكود يقوم بتحديد كل القيمة  في الحقل tag ضمن الجدول hmola ك false

الان, Barna said:

الكود شغال .... ماذا تريد بالضبط ... ممكن شرط مبسط ؟؟؟

حياك الله أستاذي الكريم

المطلوب تحديد علامة false للحقل tag الموجود ضمن جدول hmola

علمآ أن الكود موجود ضمن النموذج tag الزر U1

الكود يقوم بتحديد FALSE للبيانات الموجودة ضمن الجدول hmola و لكن بشرط أن يكون رقم البيان مطابق للمعلومات الموجودة ضمن النموذج الفرعي tag1 الموجود ضمن النموذج tag

اي أن التحديث سيتم على الجدول hmola و ليس tag1

حياكم الله أساتذتي الكرام

أعتذر عن تأخري في الرد على هذا الموضوع الهام لإنشغالي في العمل

و جزاكم الله خيرآ على هذه المعلومات القيمة

و لكن مع الأسف لم ينجح تنفيذ الكود لدي !!!

الملف في المرفقات إن تكرمتم 

testUP.accdb

السلام عليكم 

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

مثلآ لدي مربع من نوع رقم قيمته 5 

و لدي الكود الذي أريد تنفيذه

المطلوب  تكرار الكود بحسب قيمة المربع اي 5 مرات مثلأ

استخدمت دالة loop مع الاسف لم أنجح

السلام عليكم 

لدي جدول اسمه numd فيه حقول : code  و false/true

المطلوب كود للبحث عن القيمة الموجودة في الجدول numd الحقل code  بناء على القيمة في المربع النصي text1 بشرط أن تكون قيمة الحقل في الجدول  false/true = true و لكم الشكر 

test.accdb

جزاكم الله خيرآ أساتذتي الأعزاء 

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

ممكن تحديد الخطأ في الكود التالي :

  DoCmd.RunSQL "DELETE sanduk.yat , sanduk.DAT , sanduk.SAH  FROM sanduk  WHERE ((sanduk.yat)= FORMS!edaa1![ser]) AND ((sanduk.daf)= forms!edaa1![daf]) AND ((sanduk.dat)= forms!edaa1![dat]));"

أو إن أمكن طريقة مسح سجل معين بشروط  قد تصل إلى ثلاثة و لكم جزيل الشكر

منذ ساعه, RaDwAn00 said:

اخي مواسك اللي حصل هنا ان التقرير فعلا فتح لكن ظهر فقط الشريط العلوي دون ظهور محتوى التقرير

حدد منبثق : نعم

شكلي أو مشروط : نعم

حدث عند الفتح :    Docmd.Restore

احمد الفلاحجي

جزاك الله كل خير

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

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

المطلوب عرض القيم المالية التي تحتوي على قروش فقط أي تحتوي على فاصلة عشرية 

رقم صحيح.accdb

للرفع

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

البرنامج هو لعمل رسم هندسي بناء على أرقام معينة 

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

و لكم الشكر

رسم.accdb

12 ساعات مضت, SEMO.Pa3x said:

هل يوجد لديك برنامج Teamviewer او AnyDesk ؟

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

ان كنت حضرتك متفرغآ اليوم مساءً أقوم بتشغيل برنامج Teamviewer 

الان, SEMO.Pa3x said:

قم بتشغيل البرنامج المسمى SWM والتقط لي صورة للخطأ الذي يظهر

لا يظهر أي خطأ  , و كأنما نقرتين على سطح المكتب في مكان فارغ , و قمت بتشغيله كمسؤول و كان الأمر كالسابق

5 دقائق مضت, king5star said:

ممكن ارفقه غداُ بارسال الصور والملفات .

جزاك الله خيرآ  أسأل الله أن يبارك لك في علمك و أعمالك 

2 دقائق مضت, king5star said:

جرب المرفق الذى وضعته بالمشاركة التى قبلك .

قمت بتجربته و هو يعمل بشكل صحيح 

جزاك الله خيرآ أستاذي المحترم 

8 دقائق مضت, SEMO.Pa3x said:

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

تمامآ أستاذي الكريم .. كما تفضلت في ردك , قمت بكتابة الرقم بدقة متناهية

إلا أنني إنتبهت على أن البرنامج الملحق المسمى SWM لا يعمل لدي

قد يكون الويندوز هو سبب في ذلك , أعمل على ويندوز 10 نواة 64

جزاك الله خيرآ أخي الكريم

و لكن مع الأسف لم يعمل لدى حاسوبي

و قد اتبعت الخطوات بدقة متناهية .. إلا أنه لم يعمل !!

10 دقائق مضت, محمد عبد الله ٢ said:

هل من الممكن إضافة القيمة المالية للملاحظة ؟

تم الحل و لله الحمد و الشكر

و الشكر للأستاذ حسام أسأل الله له الجنة

حيث عدلت الكود في الوحدة النمطية ليصبح على الشكل التالي : 

 For i = 1 To k
    If XSum = "" Then
      XSum = Trim(XSum & Rs!mon & " " & Rs!not1)
    Else
      XSum = XSum & " + " & Rs!mon & Rs!not1
    End If
    Rs.MoveNext
  Next i

2 دقائق مضت, د.كاف يار said:

وتفضل هذه محاولة اخرى

جزاك الله أستاذ د.كاف يار

أسأل الله لك الأجر و الثواب

10 دقائق مضت, Eng.Qassim said:

مشاركة مع اخي استاذ حسام

ألف شكر لحضرتك أستاذ Eng.Qassim

زادنا الله و إياكم من علمه ..