اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

عندي قاعدة بيانات جداولها على السيرفر ... ومرتبط به جهازين ...

المطلوب يا أخوان : هو نسخ هذه الجداول لجهاز المستخدم ... بحيث يستطيع أن يحدث هذه الجداول .. وتكون نسخة الجداول موجودة على جهاز المستخدم ..

والغرض من ذلك هو القراءة والبحث يكون سريع لما تكون هذه الجداول موجودة على جهاز المستخدم ...

فهل هناك كود يقوم بنقل الجداول الموجودة على السيرفر ,,, ويكون هناك زر مثلاً لتحديث الجديد من السجلات .... ؟!

غفر الله لي ولكم .

قام بنشر

السلام عليكم ...

انا جربت الملف المرفق .. فوجدته ينسخ الجداول إلى قاعدة بيانات أخرى ...

مزيد من الأيضاح :

انا اعمل على قاعدة بيانات على جهاز مرتبطة بجداول على جهاز السيرفر ....

أريد ومن داخل النماذج التي أعمل عليها أن تنسخ الجداول التي على السيرفر إلى جهازي وإلى النماذج التي أعمل عليها ..... وفي هذه الحالة سوف تكون اسماء الجدوال متساوية .. وهنا لن يتم نسخ الجداول ...!!

فما هو الحل ؟؟ أريد أن أنسخ الجداول من على السيرفر إلى جهازي وإلى قاعدة بياناتي بحيث أصمم نماذج بحث واحصاء مباشرة من هذه الجداول المنقولة من السيرفر .. على أن يتم تحديثها ...!

فهل هناك حل !

غفر الله لي ولكم .

قام بنشر

بسم الله الرحمن الرحيم

أولا هذا هو الكود

Private Sub BackUp_Click() On Error GoTo Err_Backup
Dim strSource As String, strDest As String
Dim strError As String
'
BeginBackup:

 DoCmd.Hourglass True

 ' مسار القاعدة الرئيسة التي يوجد بها الجداول

 strSource = "D:\backup\Backend.mdb"

 '  مسار المجلد الذي سيتم حفظ نسخة القاعدة الإحتياطية بداخله
strSource = "C:\YourFolderName\YourBackend.mdb"

 FileCopy strSource, strDest
 DoCmd.Hourglass False

 MsgBox ".تم بنجاح نسخ جداول القاعدة", _
   vbInformation + vbMsgBoxRight + vbOKOnly, _
   "إكتمال عملية النسخ"

Exit_Backup:
 Exit Sub

Err_Backup:
 Select Case Err.Number
   Case 61
     strError = "The Floppy Disk is full, Cannot Save to this Disk." _
       & vbCrLf & vbCrLf & "Insert a New Disk then Click ""OK"""
     If MsgBox(strError, vbCritical + vbOKCancel, " Disk Full") = vbOK Then
       Resume BeginBackup
     Else
       Resume Exit_Backup
     End If
   Case 70
     strError = "The File is currently open." & vbCrLf & _
       "The File can not be Backed Up at this time."
     MsgBox strError, vbCritical + vbOKCancel, " File Open"
   Case 71
     strError = "There Is No Disk in Drive" & vbCrLf & vbCrLf & _
       "Please Insert Disk then Click ""OK"""
     If MsgBox(strError, vbCritical + vbOKCancel, " No Disk") = vbOK Then
       Resume BeginBackup
     Else
       DoCmd.Hourglass False
       Resume Exit_Backup
     End If
   Case Else
     DoCmd.Hourglass False
     MsgBox Err.Number & vbCrLf & Err.Description
     Resume Exit_Backup
 End Select

End Sub
أذا اردت تغير المسار قم بعمل التالي إضافة أخرى للكود السابق ، تمكنك من إختيار مسار واسم موقع الحفظ :- إستبدل السطر التالي في الكود أعلاه :
strSource = "C:\YourFolderName\YourBackend.mdb"
بهذا السطر
strDest = InputBox("Enter Complete Path, File Name and Extension" & vbCrLf & "Where the Backup File is to be Saved.", " Enter Path And File Name")

وتقبل تحياتي

أخيك سهل أحمد ( ابو نعيم )

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

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

Important Information