البحث في الموقع

السلام عليكم إخوتى الكرام وكل عام و أنتم بخير لدى نموذج غير معتمد على جدول أو استعلام قمت بفتح recordset عن طريق ال ado قمت بجعل مصدر بيانات النموذج هو ال recordset المسماة adorec كما قمت بإسناد مربعات النصوص لل recordset كل مربع نص إلى حقل فى recordset أنشأت أزرارا للسابق و اللاحق و الأول و الأخير ...... كما ترون بالصورة المشكلة أنشأت زرا لإضافة سجل جديد لكنه لم يقبل و ظهرت رسالة تفيد بأنه لا يمكننى الانتقال للسجل المحدد جربت إضافة سجل جديد بالكود Docmd.gotorecord,,acnewrecord و عن طريق إضافة زر جاهز كل هذا لم يقبله أرجو النصيحة من خبراء المنتدى الأفاضل هل لا يمكن إضافة سجل جديد لنموذج تم تحميل مصدر بياناته ب الريكورد سيت من خلال الكود هذا هو كود الفتح Dim iBink As Integer Dim ForeColor As Long Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub cmdcancel_Click() Me.Undo End Sub Private Sub cmdend_Click() DoCmd.Close acForm, (Me.Name) End Sub Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub Form_Load() Set adocon = CurrentProject.AccessConnection Set adorec = New ADODB.Recordset With adorec Set .ActiveConnection = adocon .Source = "SELECT * FROM tblmain" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With هنا إسناد الريكورد سيت لتكون مصدر بيانات النموذج Set Me.Recordset = adorec و هذه جمل لتحديد مصدر بيانات مربعات النصوص لتكون حقول فى recordset txtfind.ControlSource = "=[" & adorec.Fields(0).Name & "]" txtname.ControlSource = "=[" & adorec.Fields(5).Name & "]" txtqawmy.ControlSource = "=[" & adorec.Fields(4).Name & "]" txtqaydn.ControlSource = "=[" & adorec.Fields(20).Name & "]" txtfn.ControlSource = "=[" & adorec.Fields(13).Name & "]" txtmn.ControlSource = "=[" & adorec.Fields(16).Name & "]" txtwn.ControlSource = "=[" & adorec.Fields(22).Name & "]" txtmelad.ControlSource = "=[" & adorec.Fields(31).Name & "]" End Sub Set adorec = Nothing Set adocon = Nothing End Sub