محمد احمد لطفى

دى محاولة قد تكون صحيحة و قد تكون خاطئة حسب فهمى للسؤال مع تغيير حقل age لنص و ليس رقمى age collect.rar

للتوضيح عند وقف On Error Resume Next يظهر خطأ عند حذف الملف Kill aFile الخطأ run time error 70 You tried to open a write-protected file for sequential Output or Append لقد حاولت فتح ملف محمي ضد الكتابة للإخراج المتسلسل أو الإلحاق بالتوفيق

تفضل كليك يمين

تفضل Vtext.zip

تفضلى بالتوفيق أو DoCmd.FindRecord Me![test_list].Column(1), , , , , acCurrent lab.rar

تمت التجربة و الملف يعمل يجب ان يكون بجوار البرنامج فولدر Myfiles وبداخله فولدر My pdf Bbb.rar

مثل ما افاد أستاذ موسى يجلب أرقام IP adress التى تعمل على الشبكة المطلوب مثل ما الصورة و النموذج المرفق و لكن هل يمكن تطبيقها فى نموذج واحد حيث يتم عمل ping و فى حالة ان الجهاز لا يعمل تكون اشارة حمراء أما اذا كان يعمل تكون اشارة خضراء تومض ( مقتبس من موضوع أستاذ ابو جودى )

هل يمكن أن نعرف الاجهزة التى تعمل و الاجهزة التى لا تعمل فى ( نموذج واحد ) بدون تكرار للكود IP.accdb

تفضل BAZEG.accdb

لو هتعمل جدول للمهن و قاعات خاصة لكل مهنة الكود هيتغير للتالى =Nz(DLookUp("[room]";"[جدول2]";"[Grade]='" & [Grade] & "'");"") فقط قم باضافة المهن فى جدول 2 ووضع ارقام القاعات تم عمل الملف فى مشاركة سابقة BASEZ (1) (1).accdb

جزاك الله خيراً أستاذى @Foksh

نعم ان شاء الله

تفضل =IIf([grade]="طبيب";"25";IIf([grade]="مهندس";"25";Nz(DLookUp("[room]";"[جدول1]";"[Grade]='" & [Grade] & "'");""))) BASEZ (2).accdb

المهندس رقم كام الطبيب 25

تفضل BASEZ (1).accdb

لابد أن يربط الجدولين حقل مشترك ويكون غير متكرر

أستاذ @Foksh جزاك الله خيراً لقد صممت الكود بطريقة يدوية كل ما أريده أن يتحرك الشريط بطريقة عادىة أى ليس كما موجود الأن حيث يتحرك من 0 الى 15 فى ثانية واحدة ومن 16 الى 30 فى ثانية واحدة اى يتحرك بطريقة بطيئة حتى و لو 15 ثانية * للتوضيح تم وضع التايمر بين الاكواد للانتظار فقط و الاصل سوف يحذف و يتم وضع اكواد نقل جداول من جهاز الى أخر Update Prog.mdb

أستاذ @Foksh أنا مش عاوز الشريط يتحرك عن طريق وقت عن طريق مربع النص يعنى أول ما الكود الاول ينفذ مربع النص هيتغير بعديها الكود التانى و هكذا 😁

تفضل BASEZ.accdb

تفضل و يمكنك تكرار مع المهن الاخرى BASEZ.accdb

حاولت العمل ولكنى فشلت من مثال الامر عندما يكون Me.Hello_World = "1 from 6" يعمل الكود الاول و مؤشر التحميل يتقدم و يصبح 16 % وهكذا 6 اكواد Update.mdb 888.مؤشر تحميل.mdb

حضرتك اكتب الكود كحقل فى الاستعلام بجانب حقل (الحالة و تاريخ الدخول و تاريخ الخروج ) وليس معيار او ارفق مثال صغير للتعديل عليه الكود الصحيح iif(isnull ([dateout]);"To this day" ; [dateout] ) Test.accdb

أريد اضافة شريط متحرك بعد تنفيذ أمر Me.Hello_World = "1 from 7" like run code 1 Me.Hello_World = "2 from 7" like run code 2 Me.Hello_World = "3 from 7" like run code 3 Me.Hello_World = "4 from 7" like run code 4 Me.Hello_World = "5 from 7" ' like run code 5 Me.Hello_World = "6 from 7" ' like run code 6 Me.Hello_World = "6 from 7" ' like run code 7 أى عند تنفيذ كو د 1 يتحرك الشريط المتحرك حتى يصل الى كود 7 100% و يغلق النموذج عند وضع الكود عند الفتح لا يظهر النموذج لذلك وضعته عند عداد الوقت وجزاك الله كل خير Update.mdb

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

تفضل بالتوفيق iff(isnull ([dateout]);"To this day" ; [dateout] )