الخيال

السلام عليكم كل ماعليك فعله أن تضع الكود في الأستعلام الذي يمثل مصدر للتقرير الذي تريده في خانة CityID [Forms]![Cities]![CityID] حيث أن CityID رقم المدينة و Cities اسم النموذج ومن ثم تقوم بتشغيل التقرير من النموذج المراد طباعة بياناته بعمل زر تشغيل [ DoCmd.OpenReport "Cities Report", acViewPreview ] وهذا هو الملف تحياتي Print_Report.rar

جزاك الله ألف خير

تفضل Windows XP SP2 فقط أضغط على [Click here to download] تحياتي

السلام عليكم كيف يمكن إلغاء مربع التحرير والسر إلي موجود في قائمة شريط القوائم والذي مكتوب فيه (Type a question for help) تحياتي

بسم الله الرحمن الرحيم ----------------------- إخواني الاعزاء لقد صادفني اليوم في احد المواقع إعلان من شركة ايسر عن كمبيوتر محمول مجاني من الشركة نظير بعض الاعلانات البسيطة وما فهمته انا الكمبيوتر سيصلك في خلال 4 اسابيع وهو مجاني فهيا نتعاون حتى نكون اول الفائزين لمذيد من المعلومات زور موقعهم على الرابط التالي [http://notebook.GustoNetwork.com/index.php?mid=118436]

Sub Unhide() Dim dbs As Database Dim tdf As TableDef Set dbs = CurrentDb For Each tdf In dbs.TableDefs With tdf If Not .Name Like "MSys*" And .Attributes <> 1073741824 _ And .Attributes = 1 Then .Attributes = .Attributes - dbHiddenObject End If End With Next tdf Set dbs = Nothing End Sub