احمد ابو غريب

المقصود عمل نموذج لتجميع البيانات بجدول واحد

شكرا لاهتمامك اخي الفاضل عندي قاعدة بيانات موجوده على أكثر من جهاز اماكن متفرقه مش على شبكه واحده مثلا الجهاز الاول بيسجل أسماء من كود 1 - 1000وهكذا الجهاز الثاني من 1001 الى 2000 والثالث من 3001 الى 4000 وهكذا المطلوب عمل نسخة تجميع لكل البيانات التي تمت كتابتها على جميع الاجهزة

السلام عليكم الرجاء المساعده من الاحباب الكرام محتاج اعمل نسخة تجميع لقاعدة بيانات موحده على أكثر من جهاز ما الخطأف في هذا الكود مرفق قاعدة البيانات Option Compare Database Option Explicit Dim addsql, a As String Dim WK As DAO.Workspace Dim db As DAO.Database Dim Chemin As String Private Sub BtImporter_Click() If Nz(cmbTable, "") <> "" Then DupliquerTable db, cmbTable Else MsgBox "اختــر جـــدولا" End If End Sub Private Sub cmd_new_Click() On Error GoTo mm DoCmd.SetWarnings False addsql = "INSERT INTO asdst IN '" & New_DB & "' SELECT [asdst].* FROM asdst;" db.Execute addsql MsgBox ("تم الاستيراد بنجاح"), vbOKOnly + vbMsgBoxRight, " رساله " DoCmd.Close End mm: MsgBox ("تأكد من أختيار ملف الأستيراد الصحيح"), vbOKOnly + vbMsgBoxRight, " رساله " New folder (24).rar