rudwan

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

اين الملف و تفصيل المشروع ؟

هل الملفات على شبكه أم كيف يتم الوصل بينهما ؟

هل هذا ماتريد 3abe4a9a19.zip

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

اذا كان الاستعلام فيه متغير براميتير ( اي يطلب ادخال قيمة معلمه ) لن يقبله و كذلك اذا كان الاستعلام نفسه معتمد على استعلام آخر فيه براميتر , لذا عليك اما الاستغناء عن البراميتر , أو وضع شرط بقيمه لحقل الاستعلام

راجع الموضوع التـــالي

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

بانتظارك أختي الكريمه

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

قومي بتحويل التاريخ الى هجري , و ذلك من قائمة بدء التشغيل اذا كان أوفيس 2000 أو من الخيارات اذ أكس بي أو ما فوق حيث ان البرنامج يفهم أن التاريخ ميلادي و ليس فيه 29 فبراير

الخطوه التاليه هي عمل النموذج الخاص بادخال بيانات الجداول المطلوبه و من ثم يمكن وضع كود بعد الخروج من حقل تاريخ الاستعاره بحيث : private borrowDate After_Update ReturnedDate=DateAdd("d","BorrowDate",1) end sub طبعا بعد التأكد من صحة اسماء الحقول ف يالنموذج

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

تستطيع من خلال خصائص الحقل في الجدول , جعل خاصية التحقق من الصحه is not null

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

أهلا بزهرة المنتديات العربيه شكرا لك على كل جديد , و لكن نتمنى أن تزودينا بمشاركاتك الخيره ف 4 مشاركات فقط عندنا شي نادر بالنسبة لخبيرة مثلك , و لا أظن أنك بخيله :( نرجو المزيد و المزيد , فمجرد مشاركتك فخر لنا تحياتي

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

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

جرب هذا الاجراء private sub form_beforeinsert(cancel as boolean) if text1<> text2 then cancel=true end if end sub

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

جيد , و الملف المرفق هديه من عندي لاظهار اسم المستعير و اسم الجهاز في جدول الاعاره باقي عمل الروابط , - بين رقم الجهاز في كل من جدولي الأجهزه و الاستعاره - بين رقم المستعير في كل من جدولي المستعير و الاستعاره و بعد ذلك ادخال البيانات , New_Microsoft_Office_Access_Application.rar

أرجو توضيح المطلوب بشكل أكثر

جرب الكود التالي Private Sub Command0_Click() Dim Fa As DAO.Recordset Set Fa = CurrentDb.OpenRecordset("info") Fa.MoveFirst Do Until Fa.EOF Fa.Edit Select Case Fa![Number] Case "واحد": Fa![Number] = " اثنان " Case "اثنان": Fa![Number] = " ثلاثه " Case "ثلاثه": Fa![Number] = " أربعه " End Select Fa.Update Fa.MoveNext Loop Fa.Close MsgBox " Procedure Done " End Sub

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

الحل ليس باضافة حقل المستخدم على ا ي من جداول الصلاحيات !!!!!! الجدول الذي تريدين أنتي معرفة اسم المتسخدم الذي قام بادخال المعلومه , لنفرض جدول الموظفين , يضاف حقلين لذلك الجدول : اسم المستخدم - تاريخ الادخال , و يمكن اضافة حقل آخر في حال الرغبة في معرفة من قام بالتعديل على السجل , اسم المستخدم الذي عدل . الآن اذا كان لديكي نموذج الموظفين ( فرضا ) يضاف هذين الحقلين ( أو الثلاثه ) المستخدم الذي أنشأ السجل - وقت الانشاء - المستخدم الذي عدل - وقت التعديل ( اذا ممكن أربعة حقول اضافيه ) . الآن ممكن اضافة الحدث التالي لتعبئة حقلي اسم المستخدم المنشأ للسجل , و تاريخ الانشاء Private Sub Form_BeforeInsert(Cancel As Integer) [CreatedBy] = dlookup("username","users") () [CreatedDate] = Now() End Sub و بذلك يتم تخزين كل من اسم المتسخدم المنشأ للسجل و تاريخ الانشاء الآن لنفرض نريد معرفة الذي قام بالتعديل و تاريخ التعديل , نضع الكود التالي : Private Sub Form_BeforeUpdate(Cancel As Integer) [ModifiedBy] = dlookup("username","users") () [ModifiedDate] = Now() End Sub أرجو المحاوله , و أنا واثق من نجاحك , و اذا فشلت لاتترددي في اعادة السؤال بالنسبة للسؤال الآخر , على مايبدو أنك لم تقومي باخفاء صفحة البيانات من شريط أدوات الأكسس , لذلك عندما يفشل الدخول , لايعود للشاشه الافتتاحيه , بل الى صفحة البيانات , لذا يجب اخفاؤها من شريط الأدوات