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

تفضل 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 شفاك الله و عافاك

تم عمل الكود بهذه الطريقة 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 oldpathANDname As String, newpathANDname As String oldpathANDname = CurrentProject.Path & "\download\" & [id] & "." & Right([ext], Len([ext]) - InStrRev([ext], ".")) newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If End Sub مع وضع FileName6([CurrentProject].[Path] & "\Download\";[ID]) فى مربع نص غير منظم فهل يمكن تشغيله فى الكود بدون وضعه فى النموذج وجزاكم الله خيراً PhotoWEBP.rar

تم معرفة امتداد الصورة فى استعلام عن طريق FileName6([CurrentProject].[Path] & "\Download\";[ID]) Kno1: Right([PicFile];Len([PicFile])-InStrRev([PicFile];".")) كيف يمكن استخدامهم داخل النموذج للحصول على الامتداد برمجيا PhotoWEBP.rar

هل هناك طريقة ما لنبديل بين الثلاث امتدادات "JPEG" و "PNG" و ".jpg"

أستاذ @Foksh مسار الصورة المراد نقلها غير مضافة للبرنامج فهى صورة جديدة لن يتعرف البرنامج عن امتداد الصورة

أستاذى @ابو جودي لم يحدث شيء المشكلة فى امتداد السطر الاول و ليس الثانى oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & GetFileExt(oldpathANDname)

أستاذ @Foksh 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 oldpathANDname As String, newpathANDname As String oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If الصورة سوف تنقل من مكان oldpathANDname الى newpathANDname البرنامج ينقل الصورة ".jpg" فقط ومثل ما قال استاذ @Moosak يجب أن أعرف امتداد الصورة ووضعه فى نهاية السطر oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" حتى يستطيع البرنامج نقل الصورة

أريد نقل صورة من مكان الى مكان المشكلة فى امتداد الصورة فى هذا السطر oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" المشكلة أنه ينقل الصور امتداد ".jpg" فقط أرجو التعديل يشمل "JPEG" و "PNG" وجزاكم الله خيراً PhotoWEBP.rar

هناك اضافة فى جوجل لتحميل الصورة الى اى امتداد Save image as Type