كود يعمل على الجداول العادية ولا يعمل على جداول sql

[عبد الله قدور]

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

اسعدد الله مساءكم اخواني الكرام

عندي هذا الكود الجميل استخدمه في اضافة البيانات الى الجدول، ولكن بعد تغيير الجدول واصبح مرتبط بقاعدة بيانات SQL لم يعد يعمل فما السبب دام فضلكم

Set DB = CurrentDb()
Set RsW = DB.OpenRecordset("spech")
    With RsW
        .AddNew
        !code = Me.code
        !Datee = Me.Datee
        !SourceItem = Me.SourceItem
        !SpplierName = Me.SpplierName
        !Address = Me.Address
        !DateRec = Me.DateRec
        !Driver = Me.Driver
        !TruckNo = Me.TruckNo
        !sgin1 = Me.sgin1
        !sgin2 = Me.sgin2
        !sgin3 = Me.sgin3
        !user = DLookup("user", "currentuser")
        .Update
    End With

 

[رمهان]

3 ساعات مضت, عبد الله قدور said:

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

اسعدد الله مساءكم اخواني الكرام

عندي هذا الكود الجميل استخدمه في اضافة البيانات الى الجدول، ولكن بعد تغيير الجدول واصبح مرتبط بقاعدة بيانات SQL لم يعد يعمل فما السبب دام فضلكم

Set RsW = DB.OpenRecordset("spech")
   

 

مع انك لم تذكر هل هناك رسالة خطا وماهي ؟ ولكن جرب االتالي :

1. تاكد انه يوجد مفتاح اساسي ... هذا دائما يحل مشاكل الربط مع الاس كيو ال

2. غير السطر اعلاه الى :

3 ساعات مضت, عبد الله قدور said:

 

Set RsW = DB.OpenRecordset("spech", dbOpenDynaset, dbSeeChanges)

 

تحياتنا

تم تعديل نوفمبر 25, 2019 بواسطه رمهان