reshehri
پنج شنبه 30 دی 1389, 22:22 عصر
دوستان سلام
مي خواستم محتواي يك جدول در جدول ديگري كپي گردد و جدول اولي خالي گردد
اين كد و نوشتم اما ايراد مي گيرد:
Dim DBase As Database
' Dim SQL As String
'
' Set DBase = OpenDatabase(App.Path & "\data89.mdb", True, False)
'
' SQL = "INSERT INTO rez_asnad In '" & App.Path & "\data89.mdb' SELECT * FROM main_rez_asnad "
'
' DBase.Execute SQL
از ناحيه اي كه قرمز كردم ابراد مي گيرد در تعريف متغير بعد از AS عبارت database ندارد
اگه راه حل بهتر وجود دارد بزارين متشكرم
65328
مي خواستم محتواي يك جدول در جدول ديگري كپي گردد و جدول اولي خالي گردد
اين كد و نوشتم اما ايراد مي گيرد:
Dim DBase As Database
' Dim SQL As String
'
' Set DBase = OpenDatabase(App.Path & "\data89.mdb", True, False)
'
' SQL = "INSERT INTO rez_asnad In '" & App.Path & "\data89.mdb' SELECT * FROM main_rez_asnad "
'
' DBase.Execute SQL
از ناحيه اي كه قرمز كردم ابراد مي گيرد در تعريف متغير بعد از AS عبارت database ندارد
اگه راه حل بهتر وجود دارد بزارين متشكرم
65328