اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم

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

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 

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

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

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

 

 

1.JPG

do.mdb

قام بنشر (معدل)

جزاك الله خير 

وبارك فيك  

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

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

 

تم تعديل بواسطه dmid
خطأ إملائي
قام بنشر
في ٢٦‏/١٢‏/٢٠١٨ at 22:44, kanory said:

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

 

bbb.mdb

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

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

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

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

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

exam.rar

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

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

 

exam 1.mdb

exam 2.mdb

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

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

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

Capture.JPG

exam 1.accdb

  • 3 years later...
قام بنشر

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information