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

الاخ الكريم

عنوان الموضوع مخالف لقوانين المنتدي برجاء تعديل عنوان الموضوع ليتناسب مع محتواه حتي تجد ردود وتفاعل من الاعضاء وحتي لا يتجاهل الاعضاء موضوعك

شكرا برجاء قراءة قوانين المنتدي

قواعد طرح الاسئلة و المشاركات

/index.php?showtopic=81915

يا خالد يحي الامام

يا كريم ابن الكرام

لك التحيه و السلام

ولك التقدير و الاحترام

ارفق لنا مثلا همام

حتى نحاول حل المشكله بسلام

:)

اخي الكريم خالد لا بد ان نفهم مسبقا كيف تتم عملية النسخ عندك يعني ما هي طريقه النسخ هل تستخدم اوامر داخليه - اوامر خارجيه - نسخ احتيلطس - كود اكسس

لكي يتم توفير البارامتر الذي من خلاله تلغي الملف اولا الموجود و نتشئ ملف جديد

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

http://support.microsoft.com/kb/172711/en-us

بعد التحية والشكر على الاهتمام

استخدمتة وحدة نمطية مرفقة وانشاءت زر امر يستند لهذه الدالة =fMakeBackup() عند النقر يتم النسخ الاحتياطي وكما ذكرت لولا كبر القاعدة لارفقتها لك__________.rar

استاذي الكريم على حسب علمي ان هذا الموضوع سهل جدا..... :D ...... موجود على الرابط التالي تفضل :rolleyes:

/index.ph...c=165447&hl=

اتمنى هذا المطلوب.......... :thumb_up: .

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

Private Sub Form_Load()

TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)

str_Title = "ßáãÉ ÇáãÑæÑ ãØáæÈÉ"

str_Prompt = "ÇÏÎá ßáãÉ ÇáãÑæÑ"

If InputBox(str_Prompt, str_Title) = "gtchail" Then

DoCmd.OpenForm "Main Form"

Else

Beep

MsgBox "ÊÃßÏ ãä ßáãÉ ÇáãÑæÑ!!!", vbInformation, "ÑÓÇáÉ ÊÍÐíÑíÉ"

DoCmd.Close

End If

End Sub