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

اليك الحل :

Sub DBNAMEINFO()

Dim DBName As String
Dim DBPath As String
Dim DBFullName As String

'فقط اسم قاعدة البيانات بدون المسار
DBName = Application.CurrentProject.Name

'المسار فقط
DBPath = Application.CurrentProject.Path

'الاسم كاملاً : المسار + \ + اسم قاعدة البيانات
DBFullName = Application.CurrentProject.FullName

MsgBox DBName
MsgBox DBPath
MsgBox DBFullName

End Sub

اخي الكريم

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

اولا نشكر الاخ f11 على هذا الكود

وقد قمنا بتعديل بسيط على الكود ليكون في متغير بدلا من اظهار رساله بمعنى يتم توجيهه الى مربع نص في نموذج حسب الكود التالي .

اولا : انشئ نموذج وضع به ثلاث مربعات نص مثل

Path1 و Path2 و Path3

ضع الكود التالي بعد التعديل في محرر الفيجول بيسك

'اذا لم تكن هذه موجوده لديك قم بأضافتها
Option Compare Database
Option Explicit

Function DBNAMEINFO() As String
Dim strDBName As String
Dim strDBPath As String
Dim strDBFullName As String

'اسم القاعدة فقط
strDBName = Application.CurrentProject.Name

'مسار القاعده يعني المجلد التي تقع يه القاعدة
strDBPath = Application.CurrentProject.Path

'مسار القاعدة كاملا المجلد مع القاعدة
strDBFullName = Application.CurrentProject.FullName

End Function

ضع هذا الكود في حدث عند الفتح

'هذا حدث عند الفتح
Private Sub Form_Open(Cancel As Integer)

'مسار القاعدة كاملا في مربع النص
Me.Path1 = Application.CurrentProject.FullName

'مسار القاعدة  في مربع النص
Me.Path2 = Application.CurrentProject.Path
'اسم القاعدة فقط  في مربع النص
Me.Path3 = Application.CurrentProject.Name
End Sub

وهذا مثال على ذلك

DatabaseName.rar

اختكم

زهره

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

جزاكم الله عني كل خير هذا ما أردته الضبط

سبحان الله وبحمده سبحان الله العظيم