تفعيل خيارات فتح ملفات أخري غير الـ Pdf داخل النموذج

[ًعبد من عباد الله]

الأخوة الأعضاء السلام عليكم

بالمرفق نموذج الغرض منه عرض مادة مكتوبة لملفات متعددة الامتداد أو الصيغ وذلك بحسب تحديد نوع الامتداد أولاً قبل البحث عنه بالحاسب لفتحه من مكانه وتسجيل ذلك بجدول حفظ المسار لاستدعائه مرة أخري عند مواصلة جلسة القراءة وبعد عدة محاولات محاكاة وتطبيق مثال وجدته أثناء البحث أستطعت تنفيذ ذلك علي عملي ولكن فقط علي صيغة ملفات الـ Pdf وقد بقي وهو المطلوب كما يظهر بالصورة المرفقة المساعدة في شيئين:
1- تفعيل وتشغيل بقية الأختيارات الأخري لصيغ الامتدادات الأخري للملفات الموجودة بالنموذج داخل الكود.
2- تسجيل الامتداد وتاريخ بداية القراءة في الجدول عند أختيار كتاب جديد.
أتمني مشاركتكم الفاعلة والإيجابية لحاجتي الضرورية وجزاكم الله خيرا

نموذج القراءة من الكتب.accdb

[ًعبد من عباد الله]

للرفع 

[ًعبد من عباد الله]

تسهيلاً للمشاركة ولكي تعم الفائدة فقد تم بتفاعل إيجابي من أخ فاضل جزاه الله كل خير وضع الكود التالي تحت زر cmdGetPDF

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

Dim OFN As OPENFILENAME
Dim tybFile As String
Select Case Frame148
        Case 1
            tybFile = "*.pdf"
        Case 2
            tybFile = "*.html"
        Case 3
            tybFile = "*.jpg"
        Case 4
            tybFile = "*.txt"
    End Select

  On Error GoTo Err_cmdInsertPic_Click

  With OFN
    .lpstrTitle = "Images"
    If Not IsNull([PicFile]) Then .lpstrFile = [PicFile]
    .flags = &H1804
    .lpstrFilter = MakeFilterString("Image files (" & tybFile & ")", " & tybFile & ", _
      "All files (*.*)", "*.*")
  End With

  If OpenDialog(OFN) Then
    [PicFile] = OFN.lpstrFile
    web.Navigate [PicFile]
    SysCmd acSysCmdSetStatus, "Afbeelding: '" & [PicFile] & "'."
  End If
  Exit Sub

Err_cmdInsertPic_Click:
  MsgBox Err.Description, vbExclamation

تم تعديل مارس 5, 2019 بواسطه وائل أبو عبد الرحمن

[ًعبد من عباد الله]

للرفع

[ًعبد من عباد الله]

السلام عليكم

رجاءاً مساعدة في أمرين:

1- كود لفتح النموذج وعرض مادة أخر ملف تم تصفحه = فتح أخر سجل في جدول مصدر البيانات وعرضه بالنموذج.

2- إدراج التاريخ الحالي في الجدول عند فتح = استعراض ملف جديد في المتصفح بالنموذج.