مشاكل بعد تحويل (تكبير)قاعدة البيانات من اكسس 2003 الى اس كيو ال سيرفر2008

[ابو فتحى]

السلام عليكم ورحمة الله وبركاته

هذا الكود يعمل بشكل ممتاز للربط البرتامج ( اكسيس ) بالجدوال 

ولكن تحويل (تكبير)قاعدة البيانات من اكسس 2003 الى اس كيو ال سيرفر2008 بنجاح لايعمل 

حتى ربط البرنامح بطريقة العادي من قوائم اكسيس بظهر البيانات المحول بدون جدوال فى معالجة الاكسيس

Dim BackObj As TableDef, BackDB As Database
Set BackDB = DBEngine.Workspaces(0).OpenDatabase(strPath, False, False, ";PWD=" & strPwd)
For Each BackObj In BackDB.TableDefs
   Left(BackObj.name, 4) <> "MSys 
Then
DoCmd.TransferDatabase acLink, "Microsoft Access", strPath, acTable, BackObj.name, BackObj.name
End If
Next BackObj
Set FrontDB = Nothing
Set BackDB = Nothing

 

[ابو فتحى]

السلام عليكم ورحمة الله وبركاته

هذا الكود يعمل بشكل ممتاز قبل التحويل 

ولكن بعد تحويل (تكبير)قاعدة البيانات من اكسس 2003 الى اس كيو ال سيرفر2008 بنجاح لايعمل 

اين الخطا ؟؟؟؟؟

On Error GoTo err_pic:
Dim db As Database, rec As Recordset, REC1 As Recordset
Dim i As Integer, X As Long, recset As Recordset
Dim frm As Form
Dim ctl As Variant
Dim VarReturn As Variant, str As String
Dim tarek As String, strPwd As String     
strPwd = Nz(DFirst("[CopyPassword]", "[OptCopies]"), "")
tarek = Nz(DFirst("[Path2010]", "[OptCopies]"), "")
Set db = OpenDatabase(tarek, False, False, ";pwd=" & strPwd)
Set rec = db.OpenRecordset("Customers", DB_OPEN_TABLE)
rec.Index = "Cust_id"
rec.Seek "=", Me![Cust_id]
add:
    With recset
    rec.addnew
    rec![Cust_id] = Me![Cust_id]
    rec![CustomerName] = Me![CustomerName]
    rec![PhoneHome] = Me![PhoneHome]
    rec![Address] = Me![Address]
    rec![Mobile] = Me![Mobile]
    rec![fax] = Me![fax]
    rec![email] = Me![email]
    rec.Update
    End With

السلام عليكم ورحمة الله وبركاته

هذا الكود يعمل بشكل ممتاز قبل التحويل 

ولكن بعد تحويل (تكبير)قاعدة البيانات من اكسس 2003 الى اس كيو ال سيرفر2008 بنجاح لايعمل 

اين الخطا ؟؟؟؟؟

[ابو فتحى]

up