استفسارات في أكسس

بالنسبة للسؤال الاول ، ماذا تقصد بان لا يستطيع المستخدم التحكم بها ، اي تحريكها او لمسها او استعمال محتوياتها او غير ذلك ؟

بالنسبة للسؤال الثاني يمكنك كتابة كود بيزك بسيط بداخل اكسس لعمل لحظة فتح البرنامج و يقوم بعملية فحص التاريخ الخاص بالجهاز او حجم جدول معين او ما ترغب به و ان تخطى هذا التاريخ او هذا الحجم تظهر رسالة خطاء و تجعله يغلق الجهاز، هذا كود بسيط للغاية

بالنسبة للنص المتحرك يمكنك ادراج صور متحركة من فلاش بداخل اكسس بالطريقة نفسها التي تدرج بها بداخل فيجوال بيزك ، يمكنك مراجعة منتدى فيجوال بيزك حول ذلك حيث اني رائيت شيئ من هذا النوع هناك قبل مدة، كما يمكنك كتابة كود بيزك بداخل النموذج للقيان بذلك بصورة محدودة طبعا و لكنه ممكن

ولكن تذكر بان اكسس هو قاعدة بيانات اكثر من ان يكون برنامج داعم للوسائط المتعددة

بالطبع يمكنك تحديد عدد الصفحات المخصص للطباعة عن طريق الكود او عن طريق القائمة الرئيسية و هذا ليس مشكلة ايضا

حاول ان تراجع الامر docmd فهو يقوم بالعمليات الاساسية مثل فتح النماذج و ارسال التقارير للطباعة و ما الى ذلك

أشكرك على الرد يا أستاذ خضر اما بالنسبة للسؤال الأول اقصد فيه أن لا يتحكم المستخدم في تغير النافذة من تصغير وتكبير واستعادة حتى لا تشوه صورة الكائنات في Form

بالنسبة للكود الذي يربط مع التاريخ ياليت يكون هناك مثال ان امكن . هذه كل شئ .

بالنسبة لمنع تغير حجم النموذج قم بتعديل الخائص التالية:

Border Style

=

Dialog

لاخفاء ازار التصغير و التكبير :

Control Box

=

No

Min Max Buttons

=

None

لاخفاء زر اغلاق النموذج

Close Button

=

No

لمنع اغلاق النموذج اضف الكود التالي الى Unload الخاصة بالنموذج

Private Sub Form_Unload(Cancel As Integer)

Cancel = True

End Sub

لمنع تحريك النموذج من مكانه ، في اكسس 2002 فقط، حيث انها غير موجودة في اكسس السابق

Movable

=

NO

بالنسبة للكود الذي يفحص جدول فاليك كود يفحص عدد السجلات في جدول ما و التي بنائا عليها قد تقوم بعملية ما

Dim cn As New Connection

Dim rs As New Recordset

Set cn = CurrentProject.Connection

rs.Open "Table", cn, adOpenStatic, adLockReadOnly

If rs.RecordCount > 100 Then

كود يقوم بايقاف البرنامج او اظهار شاشة معينة تبين بانه تم تخطي الحد الاقصى في السجلات

Else

كود استمرار عمل البرنامج

End If

rs.Close

بالطبع هذا الكود يجب ان يتم وضعه في النموذج الاول الذي يفتح في البرنامج، بالطبع يجب اعداد نموذج ليفتح اول تشغيل البرنامج من

Tools -> Startup

و يمكن للنموذج ان يكون صغير جدا و ان يغلق نفسه تلقائيا او ان يبين رسمة تعتبر دعاية للبرنامج مثل النموذج الموجود اول ما يفتح Microsoft Word مثلا ، حيث تستخدم النموذج لتشغيل كل الكود المطلوب لفتح البرنامج

يمكنك مراجعة ملف المثال الخاص باكسس الذي ياتي معه و به نماذج كثيرة و كود اول التشغيل ايضا