بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'allforms'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير هذه الدالة ترجع بجميع اسماء النماذج في قاعدة البيانات ويقوم بإضافتها الى جدول ... اريد اضافة الى هذه الدالة بحيث تاخذ التسمية الموجودة في الـ Tag (العلامة) .. مثلا لدينا نموذج بإسم frmEmpls والـ Tag (العلامة) مكتوب فيه بيانات الموظفين ... اتمنى ان الصورة واضحة Function checkAllForms() Dim aob As AccessObject For Each aob In CurrentProject.AllForms DoCmd.RunSQL "insert into tblallfrms (frmnname) values ( '" & aob.Name & "')" Next aob End Function وشكرا مقدما