rudwan

ما التعديل المطلوب ؟ حقل النتيجه لابد ان يكون رقم بحيث تدخلفيه نتائج الاختبارات أمااذا لم يكن هناك اختبار يترك الحقل فارغا بدون أي ادخال

طبيعي أن يعطي خطأ لأن هذا الحقل معرف على أساس أنه رقم و ليس نص

دعنا نحلل منطقية الموضوع قبل الخوض في البرمجه لدينا صنف يمكن أن يكون له وحدات رئيسيه ووحدات فرعيه يفترض أنه يتم الشراء بوحدات رئيسيه , مثلا كرتون أو علبه , أما البيع فيمكن أن يكون بوحدات رئيسيه و فرعيه , اي بالكرتون و العلبه و القطعه و عندما تبيع بالقطعه لابد من فتح الكرتون حتى تأخذ منه قطع للبيع , أليس كذلك ؟ مثلا : اشترينا 50 كرتون ( كل كرتون 10 قطع مثلا ) - تم بيع 4 كراتين و 5 قطع ثم تم بيع 22 قطعه ثم تم بيع 18 قطعه الرصيد المفروض أنه يساوي : ( 50 * 10 ) - ( 4 * 10 + 5 + 22 + 18 ) = 500 - 65 = 435 قطعه هذه ال 435 قطعه تعادل : 43 كرتون و 5 قطع أنا أريد التأكد من هذه النقطه قبل الشروع في الحل هل هذا صحيح أم الواقع يختلف

أقترح أخي خضر أن ترسل رساله خاصه الى مدراء المنتديات حتى يقوموا بدورهم بمراسلة الأعضاء المقترحين و اعطائهم كلمة السر الخاصه بهم لأن أغلب الأعضاء أظن لايدخل بشكل مستمر ع المنتديات

فكره ممتازه أخ خضر لكن ياليت توضح ما هي أهداف المؤتمر , و متى ممكن يكون موعده مع تمنياتي بالتوفيق

طيب أخي أرفق ملفك بالمنتدى و سنراه ان شاء الله في الصفحه الرئيسيه للمنتدى - قسم التحميل المؤقت

ضع الكود التالي : =Year([الرقم] & " / " &([التاريخ]

مع أنه لاداعي ذلك , اذ ممكن تنسيق التاريخ كما تريد , لكن حسب طلبك يجب أن تكون الخانه الثالثه نص , و تستخدم كما يلي : =FirstColumn& " / " & SecondColumn FirstColumn الخانه الأولى SecondColumn الخانه الثانيه

استخدم الداله DateAdd على الشكل التالي NewDate=DateAdd("d",5,"IssueDate") حيث IssueDate هي تاريخ الاصدار 5 عدد الأيام المطلوب اضافتها

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

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

كما تلاحظ أخي الكريم البرنامج توقف نظرا لتوقف الأخ السائل نفسه حيث أنني في آخر مشاركه وضعت له أحد الحلول ثم توقف فجأة و لم يتابع و لم يبدي اي ملاحظه على الملف

ابدا سؤالك ليس فيه اي مخالفه , و بالعكس هو موضوع جيد و لكن تعلم أن البرمجه أفكار , و مثال الأخ winmaster واضح جدا و سهل و يفي بالغرض أما الأخ himass فقد طرح فكره أخرى و لكنه لم يقم بارفاق المثال عليها على كل حال حاول تطبيق مثال الأخ winmaster على ملفك , و اذا لم ينجح معك التطبيق أرفقه بالمنتدى في الصفحه الرئيسيه قسم التحميل المؤقت و ان شاء الله تجد مساعده في ذلك . تحياتي

جزاك الله خيرا أخ خضر و جعله في موازين حسناتك تم تثبيت هذا الموضوع لأهميته و عسى أن تعم فائدة البحث على الجميع

رابط مفيد ربط الأكسس بالأنترنت

ضع المؤشر على مربع النص المطلوب , ثم اضغط بالفأره على اليمين , اختر خصائص ثم اختر أحداث , ثم حدث بعد التغيير انقر عليه تظهر لك خيارات , اختر الأخير منها و هو كود , و ضع المعادله فيه

لنفرض أن الحقل المطلوب الاستعلام عنه هو MyText من الجدول MyTable يوضع هذا الكود عند حدث بعد التحديث للنص غير المنضم MyControl private sub MyControl_Afterupdate() if isnull(dlookup("MyText","MyTable","MyText = " & me.MyControl) ) then msgbox " This Value Is Not IN the Database " end if end sub

أهلا بك استاذ رضا , و بانتظار المزيد من أفكار تطويريه للبرنامج

هذا خاص بصورة خلفية للبرنامج غير برنامج الأكسس الرماديه في هذه الحاله اضغط على زر " استعادة الافتراضيه " لاستعادة الرمادي أو اذا كان لديك صورة جاهزه تستطيع النقر على الاطار المستطيل لاختيار موقع الصوره

أولا : اختار التنسيق الهجري من خيارات بدء التشغيل ثانيا : حقل التاريخ في الجدول , انظر الى خصائص الحقل في الأسفل و ضع له تنسيق تاريخ قصير ثم انظر المثال يعمل جيدا و بدون اي مشاكل methal.rar

البرنامج جيد و ليس فيه أي مشاكل استمر بادخال البيانات , و بعدها تبدأ الخطوه القادمه في استخراج التقارير المطلوبه

السلام عليكم يا أخي تنسيق التاريخ الهجري شغال تمام عندي في كل النسخ اكس بي , 2000 , 2003 و لايوجد اي مشكله , حتى ملفك الذي أرفقته لي عندما حولته أنا الى تاريخ هجري اشتغل مثل الورد . على كل حال أرفق لي الملف مره ثانيه و لكن بعد اظهار الجداول لنرى كيفية التنسيق عندك و ربما تكون المشكله ايضا من اعدادات الوينوز و ليست من الأوفيس

ادخل هذا الرابط كل شي عن أكسس تجد في الوسط أربعة منتجات الأول : اصلاح ملفات معطوبه , و هذه خدمه غير مجانيه , يقول لك أرسل اي ملف معطوب و نقوم باصلاحه فورا الثاني : ملف برنامج فك الفقل عن ملفات ال mde , اضغط على كلمة demo الثالث : برنامج استرجاع كلمة السر و هو مجاني كامل الرابع : برنامج استرجاع كلمة السر متكلمل سواء لمستخدم واحد أو عدة مستخدمين , و هذا غير مجاني أيضا

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

أولا بالنسبه لكود القوائم يبدو أنني لم اشرح وجهة نظري بشكل واضح اقصد كل قائمه لها ماكرو مستقل , و هذا الماكرو يتم استدعاؤه بالكود الآن عند اختبار الصلاحيات يتم تشغيل الماكروات الخاصه بكل مجموعه فقط مثال : مجموعة الاداره , يتم تشغيل جميع أكواد القوائم مجموعة مدخلي البيانات , يتم فقط تشغيل كود ماكرو قائمة جدول الرواتب مثلا و استعلام المدن , و بالتالي يفتح البرنامج على قائمتين فقط مثلا ممكن استخدام هذا الكود : Private Sub Form_Load() Select Case ConGroupName Case "Data Entry" Ap_CodePermissionNoAccess Ap_CodePermissionDataEntrey DoCmd.AddMenu "&Test Tables", "MacOpenTbls", "" Case "Accounting User" Ap_CodePermissionNoAccess Ap_CodePermissionAccountingUser DoCmd.AddMenu "&Test Queries", "MacOpenQyrs", "" Case "Supervisor User" Ap_CodePermissionNoAccess Ap_CodePermissionSupervisorUser DoCmd.AddMenu "&Test Tables", "MacOpenTbls", "" DoCmd.AddMenu "&Test Queries", "MacOpenQyrs", "" Case "Programmer User" Ap_CodePermissionNoAccess Ap_CodePermissionProgrammingUser End Select DoCmd.AddMenu "&Log Off", "MacLogoff", "" End Sub ثانيا بالنسبه لحماية الجداول من خلال الاستعلام , اذا كان لابد من اضافة ااسماء الجداول و الاستعلامات الى جدول الجداول , هنا أعتقد لو كان عندنا خمسين جدول و مئة استعلام الأمر صعب , ممكن هنا استخدام الاستعلام التالي منقول عن الأستاذ رضا عقيل و هو يبين اسماء الجداول و الاستعلامات الموجوده في الملف SELECT DISTINCT MSysObjects.Name, IIf([type]=1 Or [type]=6,"Table","Query") AS ObjectType, Left$([Name],1) AS Expr1, Left$([Name],4) AS Expr2, MSysObjects.Type, MSysObjects.Flags, MSysObjects.Connect, MSysObjects.Database, MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.ForeignName FROM MSysObjects WHERE (((Left$([Name],1)) Not Like "~" And (Left$([Name],1)) Not Like "{") AND ((Left$([Name],4)) Not Like "MSys") AND ((MSysObjects.Type)>-32000)); و للاشاره سيتم تثبيت برنامج الأستاذ رضا عقيل للاستفاده العامه ثالثا : نعم اقصد الحماية من نسخ من قاعدة بيانات الى أخرى و الله يقويك على هذا الموضوع المهم و المفيد تحياتي