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

[علي هندسة]

السلام عليكم

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

Function GetPath(Name As String) As String
Dim i As Integer, pathtemp As String
i = 1
Do While i < Len(Name)
pathtemp = ""
Do While Mid(Name, i, 1) <> "\" And i <= Len(Name)
pathtemp = pathtemp & Mid(Name, i, 1)
i = i + 1
Loop
If Mid(Name, i, 1) = "\" Then
GetPath = GetPath & pathtemp & "\"
i = i + 1
End If
Loop
End Function

والكود 

"Me.Text1 = GetPath(CurrentDb.Name) & "do.md 

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

المطلوب هل يمكن جعل الاسم متغير حسب اسم الملف 

اي عندما يتم تغيير اسم قاعدة البيانات وفتحها يتغير اسمها حسب الاسم الجديد

 

 

do.mdb

[kanory]

تفضل ........

 

bbb.mdb

[علي هندسة]

1 ساعه مضت, kanory said:

تفضل ........

 

bbb.mdb

شكرا استاذ kanory 

رائع وهو المطلوب

[dmid]

جزاك الله خير 

وبارك فيك  

كنت ابحث عن هذا الكود من زمان وانت فكيت لي أزمة 💚💚💚💚🙂✋ 

انت مبدع تستحق ⭐️⭐️⭐️⭐️⭐️⭐️⭐️

 

تم تعديل ديسمبر 27, 2018 بواسطه dmid
خطأ إملائي

[علي هندسة]

في ٢٦‏/١٢‏/٢٠١٨ at 22:44, kanory said:

تفضل ........

 

bbb.mdb

السلام عليكم استاذ kanory المحترم

لقد تم تجربة الكود المرسل من قبلكم متفضلاً وهو حسب طلبي

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

لكن مشكلة الكود القديم كما قلت سابقا هو يجب تحديد اسم قاعدة البيانات الرئيسية .

في المرفق ملف مضغوط يحتوي على قاعدتين اكسس (exam 1 و exam 2) وتم تطبيق الكود المرسل من قبلكم فهل من حل لاني احتاج ان تكون القاعدة الرئيسية هي المصدر الرئيسي للبيانات وان يكون اختيارها ثابت .

exam.rar

[kanory]

تفضل ........

 

exam 1.mdb

exam 2.mdb

[علي هندسة]

16 ساعات مضت, kanory said:

تفضل ........

 

exam 1.mdb

exam 2.mdb

شكرا استاذنا kanory على الاجابة

لقد تم تجربة الكود وكان اكثر من المطلوب

شكرا

[kanory]

الحمد لله رب العالمين

[علي هندسة]

4 ساعات مضت, علي هندسة said:

تفضل ........

 

exam 1.mdb

exam 2.mdb

السلام عليكم استاذنا kanory المحترم

اسف على كثرة اسئلتي وطلباتي لكن طمعي في المعرفة والتعلم  وكرمك اكبر

البرنامج الذي ارسلته لي يعمل 100% لكن عندما قمت بتحويل قاعدة البيانات كما بالصورة ومرفق نسخه من القاعدة بعد التحويل لم تظهر الجداول كما في القاعدة قبل التحويل فهل هنالك طريقة لذلك وشكرا

exam 1.accdb

[kanory]

انظر ......

 

exam 1.accdb

[علي هندسة]

في ٢٩‏/١٢‏/٢٠١٨ at 16:07, kanory said:

انظر ......

 

exam 1.accdb

شكرا استاذنا الفاضل kanory

وهو المطلوب

بارك الله فيك

[canary2522]

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

مرفق لكم نسخة للنظر 

ضغط محتويات مجلد.rar