• 0
أواب

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

سؤال

إخواني الكرام

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

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

أرجو اذا تغيير اسم القاعدة يتعطل هذا الكودعلى نمط

if (اسم هذه القاعدة =كذا) then[نفذ هذا الكود]end if

شاكراُ لكم حسن تعاونكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

تفضل اخي الكريم

 

الكود كامل

If Left(CurrentProject.Name, Len(CurrentProject.Name) - 4) = "النقل المدرسي" ThenDim strPath As StringDim fs, OldFile, DBwithEXT, DBwithoutEXT, NewFileOldFile = CurrentDb.NameDBwithEXT = 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 strPathSet 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 = NothingRelink strPath & "\" & "ج- ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), strPath & "\" & "ف1- " & DLookup("[العام]", "B") & right(DBwithEXT, 4), TrueMsgBox "تم نسخ قاعدة البيانات"ElseMsgBox "عذرا اخي الكريم .... اسم قاعدة البيانات مختلف"DoCmd.CancelEventEnd If

بالتوفيق

2

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

 

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

 

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

 

 

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

 

 

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

 

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

 

MsgBox "تم نسخ قاعدة البيانات" ElseMsgBox "عذرا اخي الكريم .... اسم قاعدة البيانات مختلف"DoCmd.CancelEventEnd if
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

 

 
then(اسم هذه القاعدة =كذا) if
تم تعديل بواسطه أواب
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

وألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .