السلام عليكم ورحمة الله وبركاته
هذا الكود يعمل بشكل ممتاز قبل التحويل
ولكن بعد تحويل (تكبير)قاعدة البيانات من اكسس 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 بنجاح لايعمل
اين الخطا ؟؟؟؟؟