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

تفضل 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] )

تم الحل و الخطأ من عندى و تم التصحيح test2023.rar

أريد نقل اسم الزرار من نموذج الى نموذج 1 - يتم فتح نموذج Formtest هناك حقلين عند الضغط على حقل منهم سوف يفتح نموذج test1 و يتم نقل اسم الحقل المطلوب أن يتم نقل الرقم اسم الزرار الى الحقل فى النموذج Formtest Dim a As String a = Me.chosenx Forms = Me.ActiveControl.Name أى ضبط (a) لكى يعمل حيث a اسم الحقل الذى سينقل الية فى النموذج Formtest وجزاكم الله خيراً test2023.mdb

تم حل المشكلة جزاكم الله خيراُ If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & [id] & ".*") <> "" Then Kill (CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & [id] & ".*") Me!imgPicture.Requery End If If Dir(CurrentProject.Path & "\download\" & [id] & ".*", vbDirectory) <> "" Then If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" End If Dim Mypath As String Mypath = FileName6(CurrentProject.Path & "\Download\", Me.id) Dim oldpathANDname As String, newpathANDname As String oldpathANDname = CurrentProject.Path & "\download\" & [id] & "." & Right([mypath], Len([mypath]) - InStrRev([mypath], ".")) newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If