جایگزین کردن تیبل همنام

[azadich]

باسلام خدمت اساتید،من در برنامه ام یه تیبل به اسم a دارم حالا می خوام وقتی تیبلی با همین نام از برنامه دیگر وارد کردم جایگزین این تیبل شود چکار کنم اگه با کلیدی روی یه فرم باشه خیلی خوبه

[Abbas Amiri]

اگر به تیبل قبلی احتیاجی نداری آنرا حذف کن بعد جایگزین کن
"DoCmd.DeleteObject acTable,"TableName

[azadich]

اگر به تیبل قبلی احتیاجی نداری آنرا حذف کن بعد جایگزین کن
"DoCmd.DeleteObject acTable,"TableName
ضمن تشکر از شما من میخوام وقتی روی کلید ایمپورت زدیم و جدول همنام انتخاب کردیم خود به خود جایگزین شود ممنون میشم

[Abbas Amiri]

در تاپیک های قبلی در این مورد مطلالبی وجوددارد. یکی از آنها لینک زیر است.
http://barnamenevis.org/showthread.php?311707-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%D9%8A-%D9%88-import-%D9%83%D8%B1%D8%AF%D9%86-%D8%AC%D8%AF%D8%A7%D9%88%D9%84-%D9%8A%D9%83-%D9%81%D8%A7%D9%8A%D9%84-%D8%A7%D9%83%D8%B3%D8%B3-%D8%A8%D9%87-%D8%AF%D8%A7%D8%AE%D9%84-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%A8%D8%A7-%D9%83%D8%AF

[azadich]

در تاپیک های قبلی در این مورد مطلالبی وجوددارد. یکی از آنها لینک زیر است.
http://barnamenevis.org/showthread.php?311707-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%D9%8A-%D9%88-import-%D9%83%D8%B1%D8%AF%D9%86-%D8%AC%D8%AF%D8%A7%D9%88%D9%84-%D9%8A%D9%83-%D9%81%D8%A7%D9%8A%D9%84-%D8%A7%D9%83%D8%B3%D8%B3-%D8%A8%D9%87-%D8%AF%D8%A7%D8%AE%D9%84-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D8%A8%D8%A7-%D9%83%D8%AF
ضمن تشکر فراوان حالا می خوام فایل پیوست را به این صورت اصلاح فرمایید: وقتی روی دکمه کلید می کنیم پنجره ای باز شود که بتوانیم فایل را از مسیر دلخواه انتخاب کنیم ممنون

[Abbas Amiri]

تغییرات انجام شد

[azadich]

تغییرات انجام شد
ببخشید وقتی فایلی انتخاب میکنیم جدول وارد برنامه نمیشود

[Abbas Amiri]

از تابع زیر استفاده کنید


Function RepalceTable(TableName As String) As Boolean
On Error GoTo ErrImport
Dim tdf As TableDef
Dim sPath As String
sPath = fFileDialogAns(msoFileDialogFilePicker, "", "", "Access Database", "*.mdb; *.accdb")
If sPath = "" Then Exit Function
DoCmd.TransferDatabase acImport, "Microsoft Access", sPath, acTable, TableName, "tmpTableReplacement"
DoCmd.DeleteObject acTable, TableName
CurrentDb.TableDefs("tmpTableReplacement").Name = TableName
RepalceTable = True
Exit Function
ErrImport:
MsgBox Err.Number & " , " & Err.Description
End Function

مثال:
RepalceTable "TableName"

[azadich]

از تابع زیر استفاده کنید


Function RepalceTable(TableName As String) As Boolean
On Error GoTo ErrImport
Dim tdf As TableDef
Dim sPath As String
sPath = fFileDialogAns(msoFileDialogFilePicker, "", "", "Access Database", "*.mdb; *.accdb")
If sPath = "" Then Exit Function
DoCmd.TransferDatabase acImport, "Microsoft Access", sPath, acTable, TableName, "tmpTableReplacement"
DoCmd.DeleteObject acTable, TableName
CurrentDb.TableDefs("tmpTableReplacement").Name = TableName
RepalceTable = True
Exit Function
ErrImport:
MsgBox Err.Number & " , " & Err.Description
End Function

مثال:
RepalceTable "TableName"


اگه داخل نمونه برام بزاری ممنون میشم

[Abbas Amiri]

این هم نمونه