أمير2008

شرف لي تقديم المساعدة ما استطعت و أنت داخل المطبخ ستكون على دراية أكثر بالمطلوب طبعا البرنامج سيأخذ وقتا وعليك تحديد المطلوب من خلال سيناريو وأعجبني كلام أ/ مصطفى المتعلق بنفس الموضوع : يعني تعمل ملف للمدارس يسجلون البيانات ثم تستورد البيانات من كل مدرسة لبرنا…

اقرأ موضوع مثبت بالمنتدى عن تخفيض الأمان برمجياً

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

الفكرة القريبة من مثالك هي كود تلوين أحرف مربع نص محدد إلى لون معين طبقاً للقيمة المختارة من الكومبوبوكس مثلاً لإظهار أحرف مربع النص First باللون الأحمر اذا اخترنا من الكومبوبكس color قيمة اللون الأحمر به. If Me.COLOR = 5 Then Me.FIRST.ForeColor = vbRed End If…

هناك حل سهل لكن مؤقت وهو تعديل العلاقات بين الجداول أنا حاولت لكن عليك أن تختبر التعديل لكن الحل الأمثل هو اعادة بناء البرنامج فيجب أن تقوم بفصل البيانات في جداول student2.rar

أرسلته على الخاص

بالنسبة لتلوين النص في النموذج سواء لون الخط أو لون الخلفية فأنا أفضل التنسيق الشرطي Conditional Formatting لأنه ذات دلالة وله هدف. وبالنسبة للاستغناء عن الجداول : هناك أكواد تنشئ جدول ومفتاح اساسي وعلاقات. وفي احدى البرامج التي صممتها كانت بنماذج وتقارير بدون…

ياباشا أي خدمة لو تحب كمان الاستغناء عن الجداول ممكن نشوف لك حل

لست مستخدماً لأوفيس 2003 . ولكن : لا مانع من تجربة هذه الفكرة : عند تحميل النموذج الرئيسي اختبر وجود ملف على درايف معين مثلاً C ، فاذا كان موجود فاكتب أمر انهاء قاعدة البيانات واذا لم يكن موجود فقم بانشاء ذلك الملف ثم عند الغلق ضع كود لحذف الملف الفكرة ناجحة ن…

ياريت تتعب معنا شوية وتعمل قاعدة بيانات كمثال على سؤال حتى يتمكن أحد الزملاء من افادتك اسرع لك وأسهل له

وجزاكم أخي الكريم. اللهم آمين

COLORING with query 2.rar

يفتح التقرير مثلاً (School) ثم يقوم بحساب عدد الصفحات فاذا كان العدد 1 فيقوم بالطباعة ، واذا لم يكن فيقوم بغلق التقرير واظهار رسالة بعدد الصفحات DoCmd.OpenReport "School", acViewPreview, , , acHidden Gs = Reports(School).Pages If (Gs) = 1 Then DoCmd.OpenReport…

بصورة عامة : اذا كنت تريد تعامل النموذج مع الجدول مباشرة بدون استعلام فيمكنك ذلك باستخدام الكود و بصرف النظر عن محتوى سؤالك : فكل ما عليك هو أن تضع مصدر سجل النموذج RecordSource = "كود سيكوال الاستعلام" Me.RecordSource= "select ................................…

يمكن تلبية احتياجاتك مستقبلا لكن حاليا المتوفر عندي برنامج يدعم لهجة عربية وانجليزية وممكن كمان ينطق ألفاظ نابية بطريقة لبقة لكن للآسف فيجوال بيسك

ضع في النموذج كود يقوم بحساب عدد صفحات التقرير فاذا كان العدد = 1 فيقوم بالطباعة. أوليس كذلك ؟

بالنسبة لسؤالك الأول : يمكن قراءة محتوى مربع نص text1 بالنموذج باللغة الانجليزية : Call speech(Me.Text1) وأنشئ موديول بها الدالة speech : Option Compare Database Option Explicit Function speech(str As String) Dim objvo As Object Set objvo = CreateObject("sapi.…

في الاستعلام : لحذف الكسور استخدم احدى الدالتين : Fix ([ Total ]) أو Int ([ Total ]) وللتقريب : Round ([ Total ] ; 0 )

1 - لا أعتقد بوجود برامج جاهزة بالمنتدى للاستخدام المجاني أو البيع أو الايجار . 2 - يستحيل تنفيذ طلبك رقم 2 مع طلبك رقم 3 في نفس الوقت. 3 - يمكنك البدء في برنامج من الصفر ونحاول جميعا مساعدتك إن أمكن. 4 - ستكون محظوظاً لو انتهي تنفيذ البرنامج خلال عامين.

استعلام توحيد = استعلام به قيمة الفاتورة (دائن) + استعلام به قيمة التحصيل من العميل (مدين) وتقرير مطبوع بحساب العميل كما بالمرفق حساب العملاء 1.rar