عرض ملف pdf في النموذج بمقياس ثابت

[jo_2010]

31 دقائق مضت, Foksh said:

بعد التجربة ، قمت بإزالة برنامج الـ Adobe Acrobat Reader ، وتمت عملية الحذف للمجلد الفارغ بنجاح ، يعني ولله الحمد المشكلة في إنه البرنامج ( Adobe Acrobat Reader ) يحجز متغير يبقى يعمل في الخلفية في الويندوز  ، وليس في ملف الآكسيس .

 

استاذى الخبير الفاضل

شكرا على تعب حضرتك معايا كتر الف خيرك 

اود ان ابلغ حضرتك بانى معنديشAdobe Acrobat Reader اصلا ومع ذلك يتم مسح الصور فقط وتبقى الفولدرات  حتى لو فارغة وبالنسبة لل pdf لايمسح الملف او القولدر

مش عارف اشكر حضرتك ازاى على صبرك وسعة صدرك

[Foksh]

16 دقائق مضت, jo_2010 said:

 

استاذى الخبير الفاضل

شكرا على تعب حضرتك معايا كتر الف خيرك 

اود ان ابلغ حضرتك بانى معنديشAdobe Acrobat Reader اصلا ومع ذلك يتم مسح الصور فقط وتبقى الفولدرات  حتى لو فارغة وبالنسبة لل pdf لايمسح الملف او القولدر

مش عارف اشكر حضرتك ازاى على صبرك وسعة صدرك

مافيش مشكلة أبداً صدقني ، لكني قمت بتجربة الفكرة على الصور لوحدها وتمام التمام ، وبعد كدة جربتها على ملفات الـ PDF وكانت ناجحة كمان ، لكن ممكن لو حد جرب ويعطينا رأيه يبقى مشكور 

[jo_2010]

17 دقائق مضت, Foksh said:

مافيش مشكلة أبداً صدقني ، لكني قمت بتجربة الفكرة على الصور لوحدها وتمام التمام ، وبعد كدة جربتها على ملفات الـ PDF وكانت ناجحة كمان ، لكن ممكن لو حد جرب ويعطينا رأيه يبقى مشكور 

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

[Foksh]

4 دقائق مضت, jo_2010 said:

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

جاري التعديل على الأكواد السابقة اللي حضرتك انشأتها في النموذج مع الحفاظ على الوظائف المطلوبة ،، انتظرني 

[Foksh]

13 دقائق مضت, Foksh said:

جاري التعديل على الأكواد السابقة اللي حضرتك انشأتها في النموذج مع الحفاظ على الوظائف المطلوبة ،، انتظرني

تفضل وأخبرني بالنتيجة 

TESTEdit.accdb

[jo_2010]

2 ساعات مضت, Foksh said:

تفضل وأخبرني بالنتيجة 

TESTEdit.accdb 1.39 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 5 downloads

ما الجديد لانى مش قادر اكتشفة لازال شريط التمرير الراسى موجود

[Foksh]

1 دقيقه مضت, jo_2010 said:

ما الجديد لانى مش قادر اكتشفة لازال شريط التمرير الراسى موجود

اخي الكريم اسعد الله مسائك ،، على ما اعتقد انت طلبت التعديل على حذف المجلد اذا كان فارغ ، والآن بالخط العريض مش قادر تكتشف الجديد لأنه شريط التمرير الرأسي موجود 

في 2‏/11‏/2023 at 18:58, jo_2010 said:

قمت بتنفيذ اقتراح حضرتك وظهرت الصور والpdf 

ولكن عندما دخلت على الكود وادرجت الملفات بدون extention 

هل هناك طريقة لاضافة الامتداد للملفات ؟

وظهرت مشكلة اخرى وهى عند  حذف الملف يمسح الصور فقط ولا يمسح pdf من My Folsers

اعتذر لازعاجك واشكر تعبك

اود اخذ راى حضرتك فى موضوع وهو الاتى

اريد حذف جدول AttachmentList لكى اتخلص من path حتى 

تصبح القاعدة والفولدر  احرار عند نقلهم الى اى مكان يتم عرص الصور والpdf 

لانة عند اختلاف path تحدث مشكلة فى العرض

 

في 2‏/11‏/2023 at 19:48, jo_2010 said:

عند إضافة صورة سوف تاخد امتداد pdf ايضا 

وبالتالي لاتظهر فى العرض لذلك قمت بايقافها

طلبى هو جعل وضع pdf امتداد لملفات pdf

 ووضع Jpg  امتداد  للصور دات الامتداد jpg

بالنسبة للفولدر لو فية ملفات ومسحت ملف يتم مسح الملف فقط  واذا كان الفولدر بة ملف واحد وتم حذفة سيصبح فارغ الفولدر يتم حذفة ايضا بمعنى ابسط

مسح الفولدر اذا كان فارغ واذا احتوى على ٢ ملف ومسحت واحد يفضل الفولدر  بالملف التانى

ياريت يكون طلبى واضح

 

[jo_2010]

15 دقائق مضت, Foksh said:

اخي الكريم اسعد الله مسائك ،، على ما اعتقد انت طلبت التعديل على حذف المجلد اذا كان فارغ ، والآن بالخط العريض مش قادر تكتشف الجديد لأنه شريط التمرير الرأسي موجود 

 

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

[jo_2010]

46 دقائق مضت, Foksh said:

اخي الكريم اسعد الله مسائك ،، على ما اعتقد انت طلبت التعديل على حذف المجلد اذا كان فارغ ، والآن بالخط العريض مش قادر تكتشف الجديد لأنه شريط التمرير الرأسي موجود 

 

برجاء مشاهدةهذا الفيديو

Rec004.rar

[Foksh]

25 دقائق مضت, jo_2010 said:

برجاء مشاهدةهذا الفيديو

Rec004.rar 2.37 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

بس عشان نفهم حاجة انا وانت ونتأكد منها ، إزاي بيعرض عندك ملفات الـ PDF من غير ما يكون عندك برنامج اكروبات ريدر !!!!!!

وهنا المشكلة إنه بيكون مستخدم المسار بين برنامج عرض الـPDF وبين الآكسيس ؛ والإتصال ده اللي بينهم بيمنع انك تحذف الملف وبيعتمد على إنه لسه ما زال قيد الإستخدام .

( فهمت قصدي )

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

للتوضيح 
عند وقف On Error Resume Next

يظهر خطأ عند حذف الملف Kill aFile

الخطأ run time error 70

You tried to open a write-protected file for sequential Output or Append

لقد حاولت فتح ملف محمي ضد الكتابة للإخراج المتسلسل أو الإلحاق

بالتوفيق

[jo_2010]

9 ساعات مضت, Foksh said:

بس عشان نفهم حاجة انا وانت ونتأكد منها ، إزاي بيعرض عندك ملفات الـ PDF من غير ما يكون عندك برنامج اكروبات ريدر !!!!!!

وهنا المشكلة إنه بيكون مستخدم المسار بين برنامج عرض الـPDF وبين الآكسيس ؛ والإتصال ده اللي بينهم بيمنع انك تحذف الملف وبيعتمد على إنه لسه ما زال قيد الإستخدام .

( فهمت قصدي )

اسعد اللة صباحكم

انا بالفعل معنديش Adobe Acrobat Reade عندى Foxit PhantomPDF للتعديل على pdf ومقدرش استغنى عنة

ملحوظة   قمت بعمل تعديل بسيط على امكانية ادراج الملفات باكثر من امتداد اية راى حضرتك ولو في اى تعديل تحب حضرتك تضيفة اكون شاكر   للتقييم

 

TEST_new.rar

تم تعديل نوفمبر 5, 2023 بواسطه jo_2010

[Foksh]

11 ساعات مضت, jo_2010 said:

امتداد اية

أخي الكريم @jo_2010 ، بداية لدي عدة ملاحظات حسب رأيي (وليس خبرتي) :-

1. في القائمة المنسدلة هذه ليست امتدادات ، لإنما هي فحوصات لمختبر ؛ وبالاعتماد على فكرة المشروع والهدف منه فهناك احتمالين لإدراج المرفقات الخاصة بالتحاليل :-

• إما أن تكون النتيجة عبارة عن صورة أو ملف PDF أو ملف نصي - وبالعودة إلى إحدا مشاركاتي وأعتقد أنها الأخيرة كنت قد جعلت الاختيار يكون لنوع ملفات JPG بناءً على معطيات التصميم عند اختيارك نوع المرفق صورة ، وجعلت الإمتدادات تعرض النوع PDF عند اختيارك تقرير .. إن كنت تذكر ، وهنا عليك بالعودة لهذه الفكرة حتى تسهل على نفسك اختيار المرفقات .

2. اخفاء مربع النص File_Path لعدم حاجتك له ظاهراً ؛ إلا إن كان لك به حاجة وذلك رأي آخر طبعاً .

3. بالعودة إلى مربع النص File_Name ؛ ما هي الغاية منه إن كانت الفكرة نتائج فحص لمختبر مثلاُ ، فالأولى أن يكون اسم الملف تلقائياً مقرون بنوع الفحص List_JO - مجرد رأي

4. مع اختلاف الأكواد وخوفاً من تعارضها ؛ قم بإلغاء الأمر Kill aFile واستبدله بـ Kill File_Path .

5. تابعاً للنقطة 4 ، قم بالإستغناء عن الأسطر التالية :-

قمت بحذفهم ولم يحدث اي أخطاء
'aFile = DLookup("[Attachment_Path]", "[AttachmentList]", "[Attachment_NO]=[forms]![Show_Files]![MyList]")
'FolderPath = Left(aFile, InStrRev(aFile, "\") - 1)
'FolderName = Right(FolderPath, Len(FolderPath) - InStrRev(FolderPath, "\"))

استبدل كما في النقطة 4
'Kill aFile

حذف هذا السطر
'Kill (Me.Attachment_Path = DLookup("[Attachment_Path]", "[AttachmentList]", "[Attachment_NO]=[forms]![Show_Files]![MyList]"))

 

6. في أحد مرفقاتي الأخيرة لك ، كنت قد اعتمدت على مربع نص اسمه TXT وكانت قيته هي احضار مسار المجلد الذي به المرفق ( إن كان صورة أو PDF .... الخ ) ؛وهو في كود الـ VBA ما زال موجود بالرغم من إنه غير موجود ككائن في النموذج ، وكذلك الأمر ينطبق على مربع النص TxTP وكان الهدف منه في مرفقي القديم هو أن يقوم بعد الملفات داخل المجلد الذي مساره TXT .

 

وفي النهاية ، هذا ما استطعت حصره بشكل سريع والسبب ضغط العمل والحالة الصحية مع اختلاف الجو - والحمد لله

[jo_2010]

45 دقائق مضت, Foksh said:

أخي الكريم @jo_2010 ، بداية لدي عدة ملاحظات حسب رأيي (وليس خبرتي) :-

1. في القائمة المنسدلة هذه ليست امتدادات ، لإنما هي فحوصات لمختبر ؛ وبالاعتماد على فكرة المشروع والهدف منه فهناك احتمالين لإدراج المرفقات الخاصة بالتحاليل :-

• إما أن تكون النتيجة عبارة عن صورة أو ملف PDF أو ملف نصي - وبالعودة إلى إحدا مشاركاتي وأعتقد أنها الأخيرة كنت قد جعلت الاختيار يكون لنوع ملفات JPG بناءً على معطيات التصميم عند اختيارك نوع المرفق صورة ، وجعلت الإمتدادات تعرض النوع PDF عند اختيارك تقرير .. إن كنت تذكر ، وهنا عليك بالعودة لهذه الفكرة حتى تسهل على نفسك اختيار المرفقات .

2. اخفاء مربع النص File_Path لعدم حاجتك له ظاهراً ؛ إلا إن كان لك به حاجة وذلك رأي آخر طبعاً .

3. بالعودة إلى مربع النص File_Name ؛ ما هي الغاية منه إن كانت الفكرة نتائج فحص لمختبر مثلاُ ، فالأولى أن يكون اسم الملف تلقائياً مقرون بنوع الفحص List_JO - مجرد رأي

4. مع اختلاف الأكواد وخوفاً من تعارضها ؛ قم بإلغاء الأمر Kill aFile واستبدله بـ Kill File_Path .

5. تابعاً للنقطة 4 ، قم بالإستغناء عن الأسطر التالية :-

قمت بحذفهم ولم يحدث اي أخطاء
'aFile = DLookup("[Attachment_Path]", "[AttachmentList]", "[Attachment_NO]=[forms]![Show_Files]![MyList]")
'FolderPath = Left(aFile, InStrRev(aFile, "\") - 1)
'FolderName = Right(FolderPath, Len(FolderPath) - InStrRev(FolderPath, "\"))

استبدل كما في النقطة 4
'Kill aFile

حذف هذا السطر
'Kill (Me.Attachment_Path = DLookup("[Attachment_Path]", "[AttachmentList]", "[Attachment_NO]=[forms]![Show_Files]![MyList]"))

 

6. في أحد مرفقاتي الأخيرة لك ، كنت قد اعتمدت على مربع نص اسمه TXT وكانت قيته هي احضار مسار المجلد الذي به المرفق ( إن كان صورة أو PDF .... الخ ) ؛وهو في كود الـ VBA ما زال موجود بالرغم من إنه غير موجود ككائن في النموذج ، وكذلك الأمر ينطبق على مربع النص TxTP وكان الهدف منه في مرفقي القديم هو أن يقوم بعد الملفات داخل المجلد الذي مساره TXT .

 

وفي النهاية ، هذا ما استطعت حصره بشكل سريع والسبب ضغط العمل والحالة الصحية مع اختلاف الجو - والحمد لله

خالص الشكر على ماقدمتة من خبرة وعلم والف سلامة عليك انا اسف لانى تعبتك بما فية الكفاية

ربنا يبارك فيك ويعطيك الصحة والعافية