بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'الأحرف البديلة'.
تم العثور علي 1 نتيجه
-
السلام عليكم كما هو معلوم عند استخدام جملة ال SQl فى استدعاء والعمل على سجلات جدول ما فاننا نستخدم كود مثل هذا dim M As Recordset Set m = CurrentDb.OpenRecordset("TabelName",DBOpenDynaset) with M .AddNew !Field1 = me.Field1 !Field2 = me.Field2 .UpDate End With وسؤالى الآن هو أننى أحاول القيام باختصار هذا الكود على النحو التالى لكثرة الحقول التى سيتم ذكرها بالكود أولا وثانيا للحاجة لوضع هذه الكود بوحدة نمطية لاستدعائها عند الحاجة dim M As Recordset Set m = CurrentDb.OpenRecordset("TabelName",DBOpenDynaset) For Each control in me.controls with M .AddNew !control.name = me.control.name .Update .MoveNext End With Next ولكن للأسف يحدث خطأ لعدم قبول !!!!!!! لاسم المغير الذى بعدها فهل هنالك حيلة ما لتفادى هذه المشكلة وجزاكم الله خيرا
