ابو جودي

استخدم الكود كالاتى 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" oldpathANDname = CurrentProject.Path & "\download\" & [id] & ".jpg" newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & GetFileExt(oldpathANDname) Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If

اتفضل test.accdb

استنى انت المرفق تبعك يعتمد على بيانات جدول Informations فقط و انت عملت اكثر من استعلام لنفس الجدول يعنى مالنا علاقة بأى جدول غيره لا ذكرنا جداول ولا تصميمك اعتمد على جداول غير جدول Informations انا باطلب منك فى كل سؤال خطوة خطوة انت مصر تضع تصورك كله مره واحدة اثناء الاجابة انا اصلا مش قادر افهم طلبك ولان مش فاهم انت عاوز تعمل ايه انا عدلت لك مرفقك باستعلام واحد فقط اذا الموضوع شقين واحدهم نجح نفذ ما نجح للاخر بتغيير ما يلزم فقط وقتها تحصل على نحجاح الشقان

هل ذلك يحقق طلبك ؟َ loseNumber(3).accdb

انا يهمنى الان فقط نتائح الاستعلام فقط لو مضبوطة تماما نكمل خطوة بعد خطوة

طيب انت الاول جرب تغير بيانات مربعات السرد وشوف النتيجة واكد على انها تمام واللا فيها مشكلة

طيب اولا جرب المرفق ده loseNumber(2).accdb

Q1 هذا يعزل نتائج حسبت معيار نوع الكتاب (صادر او وارد) وكذلك (كتاب او برقية) هل العزل انت تريده ثابت ام تريده متغيرا تبعا لمربعات السرد من النموذج ؟!

مش عارف لسه لم ارى المرفق ابشر تعالى نمشى نقطة نقطة انا فتحت المرفق اول شئ اعمل ايه علشان اقدر افهم لان انا مش فاهم اى شئ

استاذ @Ahmed_J انا لو مكانك اعمل سطل شاى واراجع الكود اولا كل التقدير لصاحب المرفق جزاه الله خيـرا بس على سبيل المثال وليس الحصر كان ممكن اختصار اسطر الكود لسهولة التعديل للتطوير مستقبلا طيب جرب السطر ده FDName = "My Archive\Import\My pdf"

طيب يا سيدى انت زعلان وبتزعق ليه اتفضل FDName = "\My Archive\Import\My pdf"

هلا والله جزاكم الله خيرا طبعا ممكن جدا جدا بس امتى يكون ممكن لما سيادتك تعمل موضوع جديد يخص السؤال ده ده لازم ضرورى ومهم وانا وكل الاساتذة الكرام فى انتظارك

بسيطه ان شاء الله غير السطر الاتى فى الكود FDName = [Fname] & "_" & [id] & "_" & Format([ADate], "dd-mm-yyyy") الى FDName = CurrentProject.Path & "\My Archive\Import\My pdf"

منتظر الرد طبعا بعد التجربة جيدا مرارا وتكرارا

طبعا لو ان الحل يعتمد على مكتبة الاكسل سوف يكون مرتبطا بأصدار الاوفيس الذى تم انشاء التصميم والكود به اثناء اضافة المكتبة المشكلة انه لو تم مجاولة فتح القاعدة بإصدار اوفيس اقدم مين فاكر موضوع المكتبات الىى تحدثنا عنه

طيب بعد اذن الاستاذ @Foksh اتفضل يا استاذ @بونس الخطابي ان كنت قد استطعت فهمك عياده طبيب3.rar

افتح الصورة من خلال برنامج ال paint ثم قم بعمل حفظ باسم واختر النوع JPG

اتفضل يا استاذ @jo_2010 AAA (2).accdb

السؤال المهم انت عملت اعادة تسمية للامتداد ام قمت بتغيير الامتداد فعلا لانك على اغلب الظن وبنسبة 100.01% لم تقم بتغير الامتداد بل قمت باعادة تسمية الامتداد افتح الصورة من خلال برنامج ال paint ثم قم بعمل حفظ باسم واختر النوع JPG

اضعط قاعدة البيانات ببرنامج winrar مثلا ثم ارفقها او استخدم احمد المواقع الاتية وضع روابط المرفق بعد ذلك https://top4top.io/ https://www.mediafire.com/

وانا حبيبت اهز الورد بس يا ورد

وبعد اذن استاذى الكريم @kkhalifa1960 هذا تعديل على المرفق report (2).accdb

اكيد واحد عنده ما يزيد عن 8000 ثانيه من عمره يريد اضاعتهم هباءً فلا أهمية للوفت مطلقاً بالنسبة له

حتى اسهل على احبابى كثرة التفكير والتجارب وضعت رابط الموضوع وما لم انتبه اليه بداية وجعلتنى اصرف نظر عن كل افكارى اللاحقة هى كلمات استاذى الجليلالاستاذ @jjafferr والتى لم انتبه اليها جيدا فى اول الامر

هههههه انت لسه فاكر انا نسيت الموضوع من 6 years later...