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

تم الحل و الخطأ من عندى و تم التصحيح 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

أستاذى @ابو جودي جزالك الله خيرا ً و للعلم هناك اضافة فى جوجل لتحميل الصورة الى اى امتداد Save image as Type

صحيح قمت بتغير الامتداد يدويا و لكن هل هناك حل ليعمل WEBP

واحهتنى مشكلة وهى أن البرنامج لا يعرض الصورة من نوع WEBP حتى و لو تم تغيير الامتداد الى JPG لم تعمل هل يمكن حل المشكله تم وضع صور موظف (محمد) بامتداد WEBP وجزاكم الله خيراً PhotoWEBP.rar

ألف مبروك الترقية

اتفضل ده مثال من أستاذى @دروب مبرمج Replace.accdb

تفضل هل هذا ما تريد بالتوفيق قاعدة تجربة.accdb

هنا الحل أو ضع مثال للعمل عليه

ان أمكن ممكن التعديل لارسال رسائل للجمع

UP

المشكلة عند ارسال صورة لرقم غير مسجل فى واتساب نموذج SendWhatsMoreMsg يتوقف البرنامج عن العمل وتاتى رسالة خروج من الوتساب المطلوب اغلاق رسالة الخروج و العودة الى ادخال الرقم التالى وجزاكم الله كل خير sendwatsWebAll2.rar

جزاك الله خيراً أستاذى @ابوخليل ربنا يبارك فى حضرتك و يحفظك