[ تمت الإجابة ]التعديل على كود

اختي الفاضله : صبحا

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

استبدلي هذا الكود

sBackupDB = Dir(Mid(tdf.Connect, 11))

بهذا الكود

sBackupDB = CurrentDBFolder()

وسيتم عمل النسخة الإحتياطية للقاعدة data.mde مباشرة وتجدينها في نفس المجلد وقد تم اضافة التاريخ لها

وهذا ملفك بعد التعديل

LinkBackup.rar

بالتوفيق

السلام عليكم

استبدل الكود الموجود في الفورم بحدث form_load ليصبح هكذا

If CheckLinks("") = False Then
Call Application.Quit
End If
'On Error Resume Next
Dim tdfs As DAO.TableDefs
    Dim tdf As TableDef
    Dim sSourceDB As String
    Dim sBackupDB As String
    Dim backDBName As String
    Set tdfs = CurrentDb.TableDefs
    Set tdf = tdfs(tdfs.Count - 1)
   sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10)
   backDBName = Dir(Mid(tdf.Connect, 11))

 sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' 

 [DBOld] = sSourceDB
[DBNew] = sBackupDB

تحياتي

zahrah كتب:

اختي الفاضله : صبحا

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

sBackupDB = CurrentDBFolder()

الأستاذة زهرة .. هذه الدالة تعود بمسار الفولدر الذي تعمل به قاعدة البيانات الحالية interface . وليس بالفولدر الموجود به قاعدة البيانات BackENd خصوصا إذا كانتا قاعدتي البيانات موجودتين في مجلدين مختلفين . ففي هذه الحالة سيتم انشاء النسخه في فولدر interface .

تحياتي

اخي الفاضل : عماني

بارك الله بك على التصحيح

قد أكون اخطأت فهم التنويه الذي ذكرته الأخت الكريمه صبحا في الكود

اعتقادا مني انها تريد النسخة الإحتياطية في نفس مجلد القاعدة الحالية .

عموما بارك الله بك على التصحيح ولك مني +1

أخي العماني .. هذا هو المطلوب

:ty: