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! = Me!
السلام عليكم ورحمة الله وبركاته
هذا الكود يعمل بشكل ممتاز قبل التحويل
ولكن بعد تحويل (تكبير)قاعدة البيانات من اكسس 2003 الى اس كيو ال سيرفر2008 بنجاح لايعمل