خطا در کپی کردن یا Export یک جدول

[jamalgholizadeh]

سلام
در یک فایل اکسس که چندین سال است از آن استفاده می‌کنم، تازگی با مشکلی مواجه شدم و آن اینکه وقتی می‌خواهم از جدول اصلی اطلاعات فایل کپی بگیرم و یا آن را به فایل دیگری Export کنم، انجام نمی‌شود و پیغام خطای زیر را می‌دهد:

record is deleted

لطفا دوستان راهنمایی فرمایند.
سپاس فراوان

[jamalgholizadeh]

سلام
از دوستان کسی نظری در این رابطه ندارند؟

[eb_1345]

سلام
در یک فایل اکسس که چندین سال است از آن استفاده می‌کنم، تازگی با مشکلی مواجه شدم و آن اینکه وقتی می‌خواهم از جدول اصلی اطلاعات فایل کپی بگیرم و یا آن را به فایل دیگری Export کنم، انجام نمی‌شود و پیغام خطای زیر را می‌دهد:

record is deleted

لطفا دوستان راهنمایی فرمایند.
سپاس فراوان

سلام
دوتا سوال:
1 -آبا اطلاعات جدول قابل ویرایش و حذف و اضافه میباشد ؟
2- آیا در بانک اطلاعاتی مربوطه قادر به ایجاد جدول جدید میباشید ؟

[mmbguide]

به چه روشی انجام میدهد؟ Query یا VBA؟ به نظرم از طریق VBA انجام بدید و در کدها از Resume Next On Error استفاده کنید تا عملیات با وجود خطا ادامه پیدا کند و در انتهای می‌تونید با یک Query آنچه که انتقال نیافته را از جدول اصلی کشف کنید (اگر وجود داشته باشد).

[jamalgholizadeh]

سلام
دوتا سوال:
1 -آبا اطلاعات جدول قابل ویرایش و حذف و اضافه میباشد ؟
2- آیا در بانک اطلاعاتی مربوطه قادر به ایجاد جدول جدید میباشید ؟

سلام
پاسخ هر دو سوال شما مثبت است و ضمنا جدولهای دیگر همین بانک اطلاعاتی بدون هیچ خطایی هم به صورت معمولی و هم با کد کپی یا اکسپورت می شوند.

[eb_1345]

سلام
پاسخ هر دو سوال شما مثبت است و ضمنا جدولهای دیگر همین بانک اطلاعاتی بدون هیچ خطایی هم به صورت معمولی و هم با کد کپی یا اکسپورت می شوند.

باسلام
من قصدم از پرسیدن سوال اول این بود که اگر اطلاعات جدول اصلیتون براتون مهم و محرمانه میباشه میتونی اطلاعات مربوطه رو با اطلاعات غیر مهم دیگه جایگزین کنی و بعد بانک اطلاعاتی رو در اینجا قرار بدهی تا برای رسیدن به علت واقعی خطا بررسی های بیشتری بعمل بیاد.

[eb_1345]

یک سوال دیگر:
فرمودی جدول اصلی قابل اکسپورت (Export ) به فایل دیگر نیست ؛ آیا از فایل دیگر هم جدول اصلی قابل ایمپورت(Import) کردن نیست؟

[eb_1345]

از فانکشن زیر برای ارسال اطلاعات به یک دیتابیس دیگر استفاده کن ببین جواب میده :

Function ExpAllTbls(sDestDb As String)

    Dim db As DAO.Database

    Dim td As DAO.TableDefs

    Set db = CurrentDb()

    Set td = db.TableDefs

    For Each t In td

        If Left(t.Name, 4) <> "MSys" Then

            DoCmd.CopyObject sDestDb, t.Name, acTable, t.Name

        End If

    Next

End Function

یک کمند باتن بر روی فرم ایجاد کن و در رویداد کلیک اون فانکشن رو با کد زیر فراخوانی کن:

ExpAllTbls (Access.CurrentProject.path & "\" & "x.accdb")

در این کد فرض شد دیتابیس جدید درکنار برنامه بوده و نام آن هم x.accdbمی باشد