ثوابت فى قاعدة البيانات هل يمكن تغييرها

[أحمد العيسى]

السلام عليكم

عملت قاعدة بيانات تخص مدرسة محددة ، وأريد أن تكون القاعدة عامة

لذلك أريد وسيلة من خلالها أستطيع إدخال اسم المدرسة والعام الدراسى لاستخدام هذه المعلومات كتغذية رأس للتقارير والنماذج وتظل مسجلة بالقاعدة مهما تعددت مرات استخدامها حتى أقوم بتغيير هذه المعلومات ( من خلال زر أمر مثلاً ) فتتغيير رؤوس التقارير تبعاً لذلك

أتمنى من الأخوة الأعزاء التفضل بالإجابة مع إرفاق مثال

[هشام علام]

السلام عليكم

يمكنك اخى الكريم تصميم جدول يحتوى على العناوين التى تريدها

الجدول مثلا اسمه Add

اسم المدرسة مثلا school

ثم تطبيق هذة البيانات فى الأماكن التى تريها كعناوين مستخدما الكود التالى

=" " & DLookUp("[school]";"Add")

مربع نص عادى جدا ويأخذ وضعة فى التنسيق الذى تريدة ثم تضع داخلة الكود السابق مع ملاحظة تغير اسم الجدول والحقل ،

تحياتى

[أحمد العيسى]

شكراً أخى هشام

لكن لى سؤال آخر وأرجو ألا أثقل عليك

على ضوء هذه الدالة لدى جدول باسم Tbl_years و به حقل تاريخ firstyy

وفى مربع نص وضعت فى خانة مصدر عنصر التحكم هذا الكود

=" " & DLookUp("[firstyy]";"Tbl_years")

وفى خانة تنسيق

yyyy/mm/dd

لكن هذا التنسيق لايجدى نفعاً ويخرج لى تاريخ 30 /9/ 2002 مثلاً منسقاً بهذا الشكل

30/09/02

ما الخطأ فى استخدام التنسيق مع هذه الدالة ؟

[أحمد العيسى]

الحمد لله

تم الوصول للمطلوب من خلال حذف " " & من الكود مع التجربة والمحاولة.

وحيث أننى عملت نموذج إضافى من خلال زر أمر يتيح تعديل الثوابت وحفظها فى جدول Tbl_years ، إلا أننى قد اكتشفت أن مربع النص الذى ياخذ بيانه من الجدول لايتم تحديثه إلا بعد غلق النموذج الموجود به مربع النص وإعادة فتحه ، فهل يوجد تحديث فورى لمحتويات مربع النص عقب غلق النموذج الإضافى

[السيد عبد العال]

فى اانموذج الجديد الذى تقوم بتعديل البيانات فيه يتم إضافة هذا الكود فى حدث

OnClose

فيؤدى الى تحديث النموذج

يرحى تعديل form1 الى اسم النموذج خاصتك

Private Sub Form_Close()
Dim x As AccessObject
Set x = Application.CurrentProject.AllForms("form1")
If x.IsLoaded Then
  Forms("form1").Recalc
 End If
End Sub

او أضافة زر ووضع الكود الأتى فى حدث Click

Private Sub Command3_Click()
Me.Recalc
End Sub