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

[jo_2010]

  في 4‏/11‏/2023 at 13:52, Foksh said:

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

Expand  

 

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

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

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

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

[Foksh]

  في 4‏/11‏/2023 at 14:24, jo_2010 said:

 

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

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

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

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

Expand  

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

[jo_2010]

  في 4‏/11‏/2023 at 14:43, Foksh said:

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

Expand  

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

[Foksh]

  في 4‏/11‏/2023 at 15:07, jo_2010 said:

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

Expand  

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

[Foksh]

  في 4‏/11‏/2023 at 15:12, Foksh said:

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

Expand  

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

TESTEdit.accdbFetching info...

[jo_2010]

  في 4‏/11‏/2023 at 15:26, Foksh said:

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

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

Expand  

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

[Foksh]

  في 4‏/11‏/2023 at 17:50, jo_2010 said:

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

Expand  

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

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

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

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

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

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

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

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

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

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

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

 

Expand  

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

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

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

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

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

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

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

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

Expand  

 

[jo_2010]

  في 4‏/11‏/2023 at 17:57, Foksh said:

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

 

Expand  

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

[jo_2010]

  في 4‏/11‏/2023 at 17:57, Foksh said:

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

 

Expand  

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

Rec004.rarFetching info...

[Foksh]

  في 4‏/11‏/2023 at 18:47, jo_2010 said:

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

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

Expand  

بس عشان نفهم حاجة انا وانت ونتأكد منها ، إزاي بيعرض عندك ملفات الـ 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]

  في 4‏/11‏/2023 at 19:15, Foksh said:

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

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

( فهمت قصدي )

Expand  

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

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

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

 

TEST_new.rarFetching info...

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

[Foksh]

  في 5‏/11‏/2023 at 05:02, jo_2010 said:

امتداد اية

Expand  

أخي الكريم @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]

  في 5‏/11‏/2023 at 16:46, 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 .

 

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

Expand  

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

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