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

المرفق 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

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

صورة توضحية لارسال الرسالة

أستاذى @ابوخليل عند الارسال يتم البحث عن الرقم واذا كان غير موجود يتم وضع الرسالة بجانب الرقم كما بالصورة وهكذا يتم وضع باقى الارقام والرسائل فى نفس الخانة ويتوقف البرنامج عن الارسال حل المشكلة هو قبل وضع الرقم يتم مسح الكلام الموجود select all لخانة البحث عن الرقم و للمسح Backspace or Delet و تغيير الرسالة الى مربع نص بحوار رقم التليفون بالاسفل أسف لا يوجد نموذج فرعى أقصد بجور الاسم ورقم الهاتف بالأسفل حيث يمكن عن طريق استعلام تحديث اضافة المزيد من البيانات لكل رقم هاتف تخص كل شخص على حده . وجزاكم الله كل خير

up