أخوتي الأعزاء قمت بإعداد قاعدة بيانات لمراسلات إدارية بالآكسس وعجزت عن ربط ملف pdf للوثيقة مع النموذج بحيث عند الضغط على زر أو الرابط يتم عرض الوثيقة ببرنامج acrobat reader في جزء من النموذج أو في نافذة خاصة به فهل أجد لديكم مساعدة في ذلك
كيفية عرض الوثيقة التي أخذت بالسكانر على هيئة ملف Pdf وربطها مع نموذج آكسس
اخي الفاضل عمران
السلام عليكم ورحمة الله وبركاته
وكل عام وانتم بخير
ورمضان كريم
هذه المواضيع تم الإجابه عليها بهذا الخصوص
ربط ملفات Pdf مع قاعدة بيانات عبر فهرس معين,
تصدير التقرير الى جميع انواع الملفات وفتحها
أشكرك جزيل الشكر على الرد أستاذتنا ومشرفتنا القديرة ولكن للأسف لم أفهم شئ من ذلك فأنت في المثال تخاطبي في خبير برمجة مثلك ولكن نحن على قد الحال "ويدووووبك" في الخطوة الأولى في البرمجة والأوامر اللي كتبت في module أكبر مني فعلا وتريد دورة بحالها .
على كل حال يعجز لساني عن شكرك يا أم شهد وجعلها الله في ميزان حسناتك وأتمنى أن أجد لديك مثال عن كيفية إدراج (إطار كائن غير منضم) ثم Adobe Acrobat Document في النموذج وربطه باسم ملف اكروبات متغير فإذا لم أثقل عليك أتمنى أن تشرحي عليها ولو باختصار "غير شديد" .
أسأل الله أن يغفر لك ولوالديك ولكافة المؤمنين ويحفظ لك بناتك وأسرتك ( اللهم آمين ببركة هذا الشهر العظيم ) .
الأخت زهرة حاولت الاستفادة من المثال اتذي اعطيتني أياه من خلال الرابط ويظهر أنني لم أستطع فأرجو المساعدة في تحديد الخطأ في هذا الكود
Dim IntRet As Integer
Dim StrCommandLine As String
Dim FilePDF As String
FilePDF = "C:\Followup For Users\2000\211.pdf"
StrCommandLine = """C:\Program Files\Adobe\Reader 8.0\Reader\AcroRD32.exe""" & FilePDF
IntRet = Shell(StrCommandLine, 1)
حيث تظهر لي رسالة عندما يفتح برنامج Acrobat Reader نصها كالتالي :
There was an error opening this document, Access denied.
وعندما أضغط على زر OK تظهر رسالة أخرى بالصيغة التالية :
There was an error opening this document, This file cannot be found.
ثم تتكرر هذه الرسالة مرة أخرى .. فما السبب ياترى وأين الخطأ جزاك الله عني كل الخير
يظهر أنني عرفت الخطأ ولكن لا أعرف كيف الحل فالخطأ سببه أن مسار ملف الـ PDF يحتوي على مسافات أي أن اسم المجلد "Followup For Users" تحتوي على مسافات مما سبب في هذا الخطأ علماً بأنني أتعامل مع المسار عن طريق متغيرات وهي على النحو التالي :
Decision_Doc = "C:\Followup For Users\2001" FilePDF = Decision_Doc & "\" & Me.ID.Value & ".pdf" StrCommandLine = """C:\Program Files\Adobe\Reader 8.0\Reader\AcroRD32.exe""" & FilePDF
اخي الفاضل
لماذا لا تضع المثال الذي تعمل عليه الآن حتى نرى اين موقع الخطا فيه ونحاول اصلاحه
هل تستخدم نسخة رقم 8 من قارئ ملفات pdf لأنني اراك وضعت في المسار التالي
strCommandLine = """C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"""
سيدتي الفاضلة
السلام عليك ورحمة الله وبركاته
ها انا أرفق لك مثال عما أعمل عليه
أرجو ان يتم الفك في جذر السواقة C
الزر الذي يعمل هو " متابعة قرارات اللجان " وعند عرض نموذج الدخول يكون الرقم الاشاري = 1 وكلمة السر = 11 ثم عند ظهور نموذج السنوات نختار السنة 2000 ثم موافق
والمشكلة التي أعاني منها عند الضغط على الأمر " عرض القرار " في نموذج الادخال لا يتم عرض ملف pdf المحدد وبالمرة إذا سمحتي كيف أعدل الأمر الموجود في " تصغير " بحيث تكون الاكسس عبارة عن أيقونة في سطر الحالة لا أن يتم تصغير النموذج فقط ويبقى الاكسس
أشكرك كل الشكر وجزاك الله خيرا
المرفقات : Followup_for_Users.rar
أختي الفاضلة
السلام عليك ورحمة الله وبركاته
سامحيني لقد نسيت أن أجيب على سؤالك وهو أنني فعلا أعمل على Acrobat Reader 8 كما أرجو إن لم أكن قد أثقلت عليك لماذا كتبت في مثالك المسار ما بين ثلاث علامات تنصيص هكذا """ c:\mainfolder\subfolder """ فإذا كان ممكن شرح بسيط عن ذلك .
دمت ذخرا لأسرتك وأبناء أمتك ومنارة علم يشد إليها الرحال على صفحات الويب
اخي الفاضل
كان يوجد لديك خطأ بسيط في وضع المسار
الآن طالما انك متأكد تمام التأكيد بأن مكان المجلد ومكان ملفات القرارات PDF على هذا المسار C:\Followup_for_Users\2000
اذا من باب اولى ان تضع المسار الصحيح كما تم تعديله لك وسوف يتم فتح جميع القرارات PDF بنفس ارقامها في النموذج بدون اي مشكله .
اذا رغبت ان تقوم بالتغيير الى مجلد سنة اخرى مثلا فأنت مخير بين طريقتين :
الأولى : وضع مسار مجلد السنه كاملا كما في الشرح السابق
الثانية : اضافة مربع نص غير منضم وإضافة زر امر يقوم بإستعراض المجلدات من جهاز الكمبيوتر ثم تختار المجلد المطلوب ويتمك وضعه في مربع النص ثم تقوم بإسناد مسار المجلد الى الكود بطريقة عادية وسيتم فتح اي ملف خاص بنفس السنة لنفس المجلد .
ملفك بعد التعديل ( تأكد منه جيدا لأنه سيكون بنفس اسم المجلد او الملف السابق لديك وتأكد في الكود من المسار الصحيح C:\Followup_for_Users )
بالنسبة لوضع علامات التنصيص في برنامج الأكسيس فإننا نستخدم التالي :
علامة تنصيص واحده ' '
تستخدم مع عبارة صريحه او نص طويل مثل 'رمضان كريم ' حيث يتم تحديد بداية الجملة ونهايتها ( كلام عام )
علامتي التنصيص " "
تستخدم للحقول الموجوده في الجداول والنماذج
علامة التنصيص وعلامتي التنصيص "' "'
تستخدم اثناء الفلترة والتصفية لحقل نصي اما الحقل الرقمي فلا يستخدم معه علامات تنصيص .
ثلاث علامات تنصيص """ """
تستخدم لتشغيل ملف تنفيذي موجود في مسار معين
أختي الفاضلة
السلام عليك ورحمة الله وبركاته
أكرمك الله ونفعك بعلمك وتقبلي مني أسمى درجات التقدير والاحترام وسأدرس ما قمت بتعديله على مثالي وسأوافيك بأي استفسار لم أعرف كنهه وعمله .
أشكرك مرة أخرى وأدعو الله أن يجعلها في ميزان حسناتك ببركة هذا الشهر الفضيل
أختي الفاضلة
السلام عليك ورحمة الله وبركاته
لقد اطلعت على التعديل الذي وضعتيه على المثال ورأيت أن التغيير تم في اسم المجلد بحيث لغيت المسافة بين كل كلمة وأخرى واستبدلتها بعلامة (_) وهذا فعلاً حل المشكلة وهو ما توصلت إليه كما بينت في المشاركة رقم (5) كما وإنني أحب أن استفيد من جملة Select case في الإجراء Form_Load بحيث يتم اختيار السنة وعندها بالضبط يتم تحديد المجلد الخاص بملفات القرارات لتلك السنة وبالتالي يجب استخدام متغير لهذا الأمر ومن ذلك يتبين بأنني لن أستفيد من أي من الطريقتين التي وضعتيها .
ونظراً لخبرتك الطويلة في البرمجة وبالخصوص بقاعدة البيانات آكسس فإنني أتمنى أن تجدي لي الحل في إسناد اسم مجلد يحتوي على عدة كلمات تتخللها مسافات بين كلمات اسمه إلى متغير والتعامل مع هذا المتغير .
( ولا يكلف الله نفساً إلا وسعها ) فإن أمكنك ذلك أكون لك شاكرا وإلا فتقبلي تقديري واحترامي وجزيل الشكر على ما بذلتيه من جهد معي ومع أعضاء المنتدى بصفة عامة .
جعلك الله من عتقاء هذا الشهر الكريم
اخي الفاضل
كل شيء ممكن تنفيذه ولا يوجد اي صعوبه إن شاء الله تعالى
ولكني لم افهم ماذا تريد بالضبط
الآن عند فتح البرنامج يتم فتح الواجهه ويتم اختيار متابعة قرارات اللجان وسيتم فتح نموذج متابعة قرارت اللجان ونختار منه السنه المطلوبه
الآن ما هو المطلوب بعد ذلك
هل ممكن التوضيح اكثر
أخني الفاضلة
السلام عليك ورحمة الله وبركاته
باركك الله ... عند اختيار السنة يتم تحديد قيم لمتغيرات سيتم العمل بها في باقي النماذج وهي :
workyear الذي سنستغله في تحديد الجدول الذي نعمل عليه عند الاستعلام هكذا : TblName = "Decisions" & WorkYear
كذلك نستخدم في عبارة Select Case كما هو مبين أسفله اسم الجدول الذي يتم إدخال البيانات فيه لأنني استخدم نموذج إدخال بيانات القرارات وهو DesInput لإدخال البيانات لعدد من الجداول حسب عدد السنين أي أنني أدخل بيانات قرارات كل سنة في جدول منفصل والسبب في ذلك تكرار رقم القرار في كل سنة .
Decision_Doc أستخدمه لتحديد المجلد الذي فيه ملفات الـ PDF الخاصة بالقرارات الصادرة خلال السنة المحددة وهو المطلوب حيث يكون على النحو التالي : Decision_Doc = "C:\Followup For Users\2001" لاحظي أختي الفاضلة المسافة بين الكلمات Followup For Users (( هنا تقع المشكلة)) في هذه المسافة أريدها أن تبقى كما هي وأريد أن استخدم المتغير لتحديد المجلد المطلوب لكل سنة .
Case "01" Me.M01.Visible = True Me.RecordSource = "Decisions01" Decision_Doc = "C:\Followup For Users\2001" Case "02" Me.M02.Visible = True Me.RecordSource = "Decisions02" Decision_Doc = "C:\Followup For Users\2001"
وفقك الله وأعذريني على ما سببته لك من تعب :wacko:
عفوا عبارة Select Case موجودة في النموذج DesInput حيث منها يتم تحديد الجدول الذي سنعمل عليه