تعطيل كود عند تغيير الاسم

اخي الفاضل : اواب

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

اتمنى ان تطلعنا على الكود كاملا حتى نستطيع مساعدتك

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

وايضا ما هو اسم قاعدة البيانات المختلف الذي تريد نسخة

نرجو الإيضاح اكثر لأن الموضوع به اكواد برمجيه

بالتوفيق

if [اسم هذه القاعدة]="النقل المدرسي" then

[نفذ هذا الكود]'

Dim strPath As String

Dim fs, OldFile, DBwithEXT, DBwithoutEXT, NewFile

OldFile = CurrentDb.Name

DBwithEXT = Dir(OldFile)

DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4)

strPath = CurrentProject.Path & "\" & DLookup("[العام]", "B")

If Not IsExist(CurrentProject.Path & "\", vbDirectory) Then MkDir CurrentProject.Path & "\"

If Not IsExist(strPath, vbDirectory) Then MkDir strPath

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CopyFile CurrentProject.Path & "\النقل المدرسي ج.mdb", strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4)

fs.CopyFile CurrentProject.Path & "\النقل المدرسي.mdb", strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4)

Set fs = Nothing

Relink strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), True

MsgBox "تم نسخ قاعدة البيانات"

end if

اخي الفاضل

ضع هذا الكود في النهاية للكود الخاص بك 

MsgBox "تم نسخ قاعدة البيانات"
 
Else
MsgBox "عذرا اخي الكريم .... اسم قاعدة البيانات مختلف"
DoCmd.CancelEvent
End if

شكرأ لاهتمامك ..........زهرة المنتدى

ولكن ماذا أكتب قبل الكود؟

أي كيف أعبر عن هذا المعنى:

يعطيك العافية يا ست الكل

وألف شكر