سوال: كپي يك جدول با نام جديد در يك ديتابيس ديگر [بایگانی]

nazanin_90

پنج شنبه 28 اردیبهشت 1391, 11:06 صبح

سلام
با كد زير در داخل برنامه ميتوانيم از جدول OldName يك كپي جديد با نام NewName ايجاد كنيم ، اما همين كار را اگر از داخل برنامه و در يك ديتابيس ديگر بخواهيم انجام بدهيم چه كدي را بايد بكار ببريم؟
البته با فرض اينكه ديتابيس داراي پسورد است
با تشكر

DoCmd.CopyObject "", "NewTableName", acTable, "SourseTableName"

nazanin_90

جمعه 05 خرداد 1391, 00:16 صبح

سلام
با كد زير در داخل برنامه ميتوانيم از جدول OldName يك كپي جديد با نام NewName ايجاد كنيم ، اما همين كار را اگر از داخل برنامه و در يك ديتابيس ديگر بخواهيم انجام بدهيم چه كدي را بايد بكار ببريم؟
البته با فرض اينكه ديتابيس داراي پسورد است
با تشكر

DoCmd.CopyObject "", "NewTableName", acTable, "SourseTableName"

سلام
باعدم حضور جناب آقاي عباس اميري اين تاپيك بي جواب به صفحه دوم منتقل شد الآن كه ديدم ايشان حضور دارند آن را بالا آوردم

با تشكر

Abbas Amiri

جمعه 05 خرداد 1391, 00:43 صبح

روش کلی دستور همانطور که در Help اکسس وجود دارد بصورت زیر است

CopyObject([DestinationDatabase], [NewName], [SourceObjectType As AcObjectType = acDefault], [SourceObjectName])

شما میتوانید مقصد ومبدا آبجکتها را معین کنید

nazanin_90

چهارشنبه 10 خرداد 1391, 13:27 عصر

روش کلی دستور همانطور که در Help اکسس وجود دارد بصورت زیر است

CopyObject([DestinationDatabase], [NewName], [SourceObjectType As AcObjectType = acDefault], [SourceObjectName])

شما میتوانید مقصد ومبدا آبجکتها را معین کنید
با سلام
جناب اميري متاسفانه موفق به انجام آن نشدم
ضمن اينكه بايد عرض كنم مقصد و مبدا آبجكت ها يكي است . به عبارتي ميخواهيم از داخل برنامه دستور فوق را اجرا كنيم كه از يك جدول در ديتابيس ديگر كپي گرفته و با يك اسم جديد در همان ديتابيس جدول ديگري را ايجاد نمايد.

با تشكر

Abbas Amiri

چهارشنبه 10 خرداد 1391, 21:01 عصر

باعرض معذرت با دستورفوق فقط میتوان از هرمبدا ، به فایل جاری کپی کرد . از روال زیر میتوانید استفاده کنید

Sub CopyObjectInExternalFile(strFileName As String, objType As AcObjectType, SourceName As String, NewName As String)
On Error GoTo ErrH
Dim appAccess As Access.Application
If Len(Dir(strFileName)) > 0 Then
Set appAccess = New Access.Application
With appAccess
.OpenCurrentDatabase strFileName
.DoCmd.CopyObject , NewName, acTable, SourceName
.Quit
End With
Else
MsgBox "آدرس نامعتبر"
Exit Sub
End If
MsgBox "عملیات کپی سازی باموفقیت انجام شد"
Exit Sub
ErrH:
MsgBox "خطا دراجرای کپی : خطای شماره" & Err.Number
End Sub

nazanin_90

پنج شنبه 11 خرداد 1391, 00:27 صبح

باعرض معذرت با دستورفوق فقط میتوان از هرمبدا ، به فایل جاری کپی کرد . از روال زیر میتوانید استفاده کنید

Sub CopyObjectInExternalFile(strFileName As String, objType As AcObjectType, SourceName As String, NewName As String)
On Error GoTo ErrH
Dim appAccess As Access.Application
If Len(Dir(strFileName)) > 0 Then
Set appAccess = New Access.Application
With appAccess
.OpenCurrentDatabase strFileName
.DoCmd.CopyObject , NewName, acTable, SourceName
.Quit
End With
Else
MsgBox "آدرس نامعتبر"
Exit Sub
End If
MsgBox "عملیات کپی سازی باموفقیت انجام شد"
Exit Sub
ErrH:
MsgBox "خطا دراجرای کپی : خطای شماره" & Err.Number
End Sub

مثل هميشه جواب آقاي اميري بي عيب و نقص