الاشارة الى مسار/مكان وجود الجداول المضمنة والمرتبطة

[jjafferr]

السلام عليكم 

 

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

يعني مجلد الصور دائما يجب ان يكون في نفس مجلد قاعدة البيانات التي تحتوي على الجداول (بغض النظر ، سواء أكانت قاعدة البيانات واحدة او مقسمة).

 

نضع هذا الكود في وحدة نمطية:

Public Function GetDBPath() As String

    Dim strFullPath, Table_Name As String
    Dim rst As DAO.Recordset

    'check for a linked table
    Set rst = CurrentDb.OpenRecordset("SELECT Name FROM msysObjects WHERE Type=6 AND Left([Name],2) Not In ('~t','ms')")

    If rst.EOF Then
        'Table doesn't exist
        Exit Function
    Else
        'linked Table exists
        Table_Name = rst(0)
    End If
    rst.Close
    Set rst = Nothing
   
    'now get the path
    strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs(Table_Name).Connect, 11)
    GetDBPath = Left(strFullPath, InStrRev(strFullPath, "\"))
    
End Function

Public Function BE_or_FE()
' to use:
' BE_or_FE
'
    'if BE exits, use its path,
    'otherwise use the Application path
    
    'get the BE Path
    BE_or_FE = GetDBPath
    If Len(BE_or_FE & "") = 0 Then
        BE_or_FE = Application.CurrentProject.Path
    End If
              
End Function

Function Images_Location()

    'If we want the Backend Folder
    Images_Location = BE_or_FE & "\archive"
    
    'or we can assign any location we want
    'Images_Location = "c:\Temp" & "\archive"
    
End Function

وعندما اريد ان اعرف مسار الجداول (بغض النظر في كون الجداول مضمنه او مرتبطة) ، فاناديه هكذا:

msgbox BE_or_FE

وعندما اريد ان اعرف مسار مجلد الصور ، فاناديه هكذا:

msgbox Images_Location

وعندما اريد ان اشير الى الصورة التي اشرت اليها انت ، فاناديه هكذا:

Images_Location & "\" & txt1 & ".jpg"

جعفر

تم تعديل أبريل 12, 2015 بواسطه jjafferr
لفصل المشاركة في موضوع مستقل

[ابوخليل]

جزاك الله خيرا ،،،

[jjafferr]

يا سلام عليك أخوي أبوخليل ، أكيد فنان وإحنا ما ندري 

 

 

جعفر

[راعي الغنم]

عندما يتكلموا الكبار فالصغار يسكتوا

هكذا علمونا اهلنا, ولا يسعنا الا ان نسكت ونتامل في مجهود الكبار

وفقكم الله

[محمد سلامة]

بارك الله فيك استاذ جعفر

الله يكرمك وين ماتروح.. 

كنت اتفحص وابحث علي شئ معين فوجدت مشاركتك هذه فواجب علي شكرك

تحياتي لك يا استاذنا

[صالح حمادي]

جزاك الله خيرا أستاذ جعفر

[ابو جودي]

في 4/12/2015 at 22:09, jjafferr said:

السلام عليكم 

 

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

يعني مجلد الصور دائما يجب ان يكون في نفس مجلد قاعدة البيانات التي تحتوي على الجداول (بغض النظر ، سواء أكانت قاعدة البيانات واحدة او مقسمة).

 

نضع هذا الكود في وحدة نمطية:

Public Function GetDBPath() As String

    Dim strFullPath, Table_Name As String
    Dim rst As DAO.Recordset

    'check for a linked table
    Set rst = CurrentDb.OpenRecordset("SELECT Name FROM msysObjects WHERE Type=6 AND Left([Name],2) Not In ('~t','ms')")

    If rst.EOF Then
        'Table doesn't exist
        Exit Function
    Else
        'linked Table exists
        Table_Name = rst(0)
    End If
    rst.Close
    Set rst = Nothing
   
    'now get the path
    strFullPath = Mid(DBEngine.Workspaces(0).Databases(0).TableDefs(Table_Name).Connect, 11)
    GetDBPath = Left(strFullPath, InStrRev(strFullPath, "\"))
    
End Function

Public Function BE_or_FE()
' to use:
' BE_or_FE
'
    'if BE exits, use its path,
    'otherwise use the Application path
    
    'get the BE Path
    BE_or_FE = GetDBPath
    If Len(BE_or_FE & "") = 0 Then
        BE_or_FE = Application.CurrentProject.Path
    End If
              
End Function

Function Images_Location()

    'If we want the Backend Folder
    Images_Location = BE_or_FE & "\archive"
    
    'or we can assign any location we want
    'Images_Location = "c:\Temp" & "\archive"
    
End Function

وعندما اريد ان اعرف مسار الجداول (بغض النظر في كون الجداول مضمنه او مرتبطة) ، فاناديه هكذا:

msgbox BE_or_FE

وعندما اريد ان اعرف مسار مجلد الصور ، فاناديه هكذا:

msgbox Images_Location

وعندما اريد ان اشير الى الصورة التي اشرت اليها انت ، فاناديه هكذا:

Images_Location & "\" & txt1 & ".jpg"

جعفر

تسلم والدنا الحبيب جزاكم الله خيرا هذة الطريقة الرائعه سوف تفتح افاق وافكار رائعه ان شاء الله 

[kaser906]

حاولت اطبق على المرفق

لكن فشلت

عندي نفس العملية لكن يجب ان تكون قاعدة البيانات مقسمة

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

مع الاخذ بالاعتبار ان اغلب الصور والملفات موجود على جهاز خادم ويتم فتحها من قبل جهاز مستخدم

للوهلة الأولى من نظرتك للمرفق ستعرف ان طريقة عرض ملف pdf

هي من افكارك النيرة

امل منك التطبيق لعرض ملف pdf وصورة jpg

والتعديل على زري الامر  بحيث لو كان المجلد EmpPdf.File موجود بمجلد قاعدة البيانات  يتم إضافة ملف Pdf بنفس رقم  الحقل  PcDigt بالنموذج

وان كان الملف موجود تظهر رسالة هل تريد الاستبدال

وان لم يكن المجلد موجود يتم انشائة داخل مجلد قاعدة البيانات ويتم إضافة الملف الية  

ونفس الشي  بالنسبة للصورة بحيث يكون اسم المجلد Empjpg.File

وان كانت موجودة تظهر رسالة هل تريد الاستبدال

Addpdf.rar