مسار قاعدة البيانات

[adnan gharbi]

السلام عليكم 

كيف يمكن إظهار مسار قاعدة البيانات في تيكست بوكس؟

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

مع الشكر 

[Moosak]

وعليكم السلام ورحمة الله وبركاته .. 🙂 

ضع هذا الكود في موديول :

Public Function BECurrentPath()

    On Error GoTo ErrHandler

    Dim FullLinkedPath As String
    Dim LinkedDBPath As String

    FullLinkedPath = Nz(DFirst("database", "msysobjects", "[Database]<> '""'"), "")
    LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1)

   If FullLinkedPath <> "" Then
    
    BECurrentPath = LinkedDBPath & "\"
    
    Else
    
    BECurrentPath = CurrentProject.Path & "\"
    
    End If

ErrHandler:
    If Err.Number = 0 Then Exit Function Else
    MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description

End Function

ثم أكتب في مصدر بيانات مربع النص :

=BECurrentPath()

 

[ابو جودي]

طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak 

لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن 

=[CurrentProject].[Path]

 

[adnan gharbi]

منذ ساعه, Moosak said:

وعليكم السلام ورحمة الله وبركاته .. 🙂 

ضع هذا الكود في موديول :

Public Function BECurrentPath()

    On Error GoTo ErrHandler

    Dim FullLinkedPath As String
    Dim LinkedDBPath As String

    FullLinkedPath = Nz(DFirst("database", "msysobjects", "[Database]<> '""'"), "")
    LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1)

   If FullLinkedPath <> "" Then
    
    BECurrentPath = LinkedDBPath & "\"
    
    Else
    
    BECurrentPath = CurrentProject.Path & "\"
    
    End If

ErrHandler:
    If Err.Number = 0 Then Exit Function Else
    MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description

End Function

ثم أكتب في مصدر بيانات مربع النص :

=BECurrentPath()

 

شكرا لك اخي الكريم هو الكود شغال تمام لكن لا يظهر اسم قاعدة البيانات يظهر المسار فقط فإن أمكن إظهار الاسم ايضا لو تكرمت

12 دقائق مضت, ابو جودي said:

طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak 

لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن 

=[CurrentProject].[Path]

 

هذا الكود يظهر اسم الفرونت اند وليس الباك اند اخي 

[Barna]

تم تعديل .... لاني فهمت الموضوع خطأ

 

تم تعديل مارس 28, 2022 بواسطه Barna

[ابو جودي]

14 دقائق مضت, adnan gharbi said:

هذا الكود يظهر اسم الفرونت اند وليس الباك اند اخي 

بسيطة للقاعدة الخلفية

=DLookUp("Database","MSysObjects","Type=6 ")

 

[Barna]

4 دقائق مضت, ابو جودي said:

بسيطة للقاعدة الخلفية

=DLookUp("Database","MSysObjects","Type=6 ")

 

ايضا اضافة لما ذكر استاذي الحبيب ....

= DFirst("Database", "MSysObjects", "[Type] = 6")

 

[ابو جودي]

ولو اردت اسم القاعدة فقط بدون  المسار الكامل

استخدم 

=Right(DLookUp("Database","MSysObjects","Type=6 "),Len(DLookUp("Database","MSysObjects","Type=6 "))-InStrRev(DLookUp("Database","MSysObjects","Type=6 "),"\"))

 

[adnan gharbi]

28 دقائق مضت, ابو جودي said:

بسيطة للقاعدة الخلفية

=DLookUp("Database","MSysObjects","Type=6 ")

 

أحسنت اخي الكريم ابو جودي طريقة مختصرة ومفيدة

[ابو جودي]

اضاقة بسيطة للعمل على الطريقتين 

الطريقة الاول قاعدة البيانات كاملة بدون تقسيم

الطريقة الثانية قاعدة البيانات منقسمة الى قاعدتين امامية وخلفية

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

=IIf(IsNull(DLookUp("Database","MSysObjects","Type=6 ")),[CurrentProject].[Path] & "\" & [CurrentProject].[Name],DLookUp("Database","MSysObjects","Type=6 "))

 

[Moosak]

6 ساعات مضت, ابو جودي said:

بسيطة للقاعدة الخلفية

=DLookUp("Database","MSysObjects","Type=6 ")

 

(وفوق كل ذي علم عليم) 😅✋🏻

ومنك نتعلم حبيبنا 😄

 

6 ساعات مضت, ابو جودي said:

طيب ممكن سؤال اخى الحبيب واستاذى الجليل باش مهندس @Moosak 

لماذا لم تستحدم الكود الاتى فى مصدر بيانات مربع النص مباشرة بدون استخدام الكود فى الموديول لتوفير استخدام حجم كائن 

=[CurrentProject].[Path]

 

عملت الموديول هذا من زمان بهدف أنه لما يكون عندي مرفقات مثلا أو ملفات مصاحبة للبرنامج تروح على طول جنب قاعدة البيانات سواء مقسمة ولا لا .. بدون ما أغير كل مرة في الكود 🙂

لكن شكلي هحدثه بالكود بتاعك شكله رشيق ودلع 😁

[ابو جودي]

 

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

شكله رشيق ودلع 😁

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

[Moosak]

4 دقائق مضت, ابو جودي said:

 

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

اللهم آمين وإياك يا زعيم الأغلبية 😊🤲🏻