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

مثل ما افاد أستاذ موسى يجلب أرقام 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

المرفق change dfb.accdb

اتفضل الطلب الأول Me.Y = Int((Date - [bdate]) / 365) Me.M = Int(((Date - [bdate]) / 365 - Int((Date - [bdate]) / 365)) * 12) Me.D = Int((((Date - [bdate]) / 365 - Int((Date - [bdate]) / 365)) * 12 - Int(((Date - [bdate]) / 365 - Int((Date - [bdate]) / 365)) * 12)) * 30)

برنامج حميل أستاذ @kkhalifa1960 شفاك الله و عافاك