zahrah

تفضل اخي الكريم الملف بعد التعديل za-smtc-UP.rar بالتوفيق

تفضل الملف بعد التعديل za-Datacomp-UP.rar بالتوفيق

تفضل اخي الكريم ملفك بعد التعديل za-Datacomp.rar بالتوفيق

اخي الفاضل السلام عليكم ورحمة الله وبركاته اذا كان الحقل نصي نستخدم هذا التعبير Zhrani = Nz(DLookup("[raqmtal]", "tbl_tolab", "[raqmtal]='" & [Forms]![frm_hoood_t]![raqmtal] & "'"),0) بالتوفيق

اخي الفاضل : مرسي السلام عليكم ورحمة الله وبركاته هذه نبذه مختصرة عن استعلام لغة تعريف البيانات DDL - Data Definition language المقدمة : على خلاف الاستعلامات الأخرى، لا يعمل استعلام تعريف البيانات على استرداد البيانات . بدلاً من ذلك، يستخدم استعلام تعريف البيا…

تفضل اخي الكريم za-Q_70.rar بالتوفيق

اخي الفاضل : خالد موضوعك سهل وبسيط و لا يوجد به اي صعوبه في حال كانت جميع البيانات الموجوده في النموذج الفرعي موجوده ايضا في الجدول الخاص بها لأننا بك بساطة سوف نستخدم هذا الكود الخاص بجمع عدد ايام الإجازة الطارئة لنفس السنة فإن كانت اكبر من 6 ايام فسيتم التنب…

اخي الفاضل لا اعتقد ان الشريط التقدمي بنفع في مثل هذه الحالة لأن الكود اساسا يقوم بعمل ريستارت ( اعادة تشغيل لقاعدة البيانات ) قد لا تلاحظ هذا لأن العملية تتم بسرعة وبهذا سيتوقف الشريط التقدمي عند نقطة معينة ولكن هناك حل افضل واسهل وابسط لك وتستطيع عمله انت بك…

اخي الفاضل : مرسي السلام عليكم ورحمة الله وبركاته بارك الله وجزاك الله كل خير بالنسبة للسؤال عن الجدول tblTemp فهذا الجدول هام جدا لبرنامجك فقد اضفته لك ليتم وضع البيانات به مؤقتا ثم يتم حذف البيانات منه بعد تحديث الجدول الرئيسي فلا تقم بحذفه او التعديل عليه ب…

تفضل اخي الكريم ملفك بعد التعديل za-Update.rar بالتوفيق

اخي الفاضل لا يوجد اي مشكلة فالموضوع بسيط وسهل جدا كل ما علينا هو تعديل كود حدث عند التحميل الى الكود الجديد بهذه الطريقة Private Sub Form_Load() Dim CurrentFilePath As String CurrentFilePath = Application.CurrentProject.Path & "\" & Application.CurrentProject…

تفضل اخي الكريم اذا كان عمر المتدرب اقل من 249 شهرا ( 20 سنة و 9 أشهر ) لن يتم فتح ملف الوورد وعدى ذلك سيتم فتح الملف Folder Data.rar بالتوفيق

تفضل اخي الكريم ملفك بعد التعديل بناء على طلبك za-الاساسي-UP.rar بالتوفيق

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

اخي الفاضل : مرسي عندما نقوم بعمل اي علاقة بين جدولين فإن الوضع الطبيعي للعلاقات هو تضمين الصفوف التي تتساوى فيها الحقول المتصلة في الجدولين لذا لو ذهبنا الى نافذة العلاقات ورأينا العلاقات نجدها في وضعها الطبيعي . ولو قمنا بعمل استعلام ووضعنا به الجداول المرتب…

اهلا اخي الفاضل : رائد اعمل كما عملت لك في السجل الأول بالنسبة للقاحات اي كل ما عليك هو عملية الإختيار من مربع التحرير والسرد لما يتناسب مع عمر الطفل من لقاحات ( اختر اللقاح المطلوب بوضع علامة ( صح ) وبعد اختيار كل اللقاحات المطلوبة حسب عمر الطفل اضغط موافق با…

لا يوجد اي مشكلة اخي الكريم : ابراهيم تم تعديل المثال بناء على طلبك الآن قم بنقل الملف الأساسي Post.mdb من مكانه الى اي مكان تختاره سواء على سطح المكتب او حتى على سطح كوكب الزهره فالبرنامج سيتعرف على مكانه بعد فتح واختيار مكان الملف za-BackUp2.rar بالتوفيق

بارك الله بكم جميعا على المشاركة اخواني الكرام اخي الفاضل اكرم عبدالكريم لا اعتقد ان هذه الطريقة ( نسخ ولصق ) تنفع مع 3000 ملف نصي لوضعها في الجداول فأعنقد والله اعلم ان صاحب السؤال سيحتاج الى سنه كاملة ينسخ من الملفات النصية ويلصق في الجداول ولكن كل ما نحتاجه…

تفضل اخي الكريم : ابراهيم سوف نستخدم هذا الكود لعملية النسخ الإحتياطي للملف وفي حالة عدم وجود المجلد Save_db على السواقة D او تم نقله الى مكان آخر سيتم انشاء المجلد ووضع النسخة الإحتياطية للملف بداخله Private Sub CmdBackUP_Click() Dim strDirectoryPath As Strin…

تفضل اخي الكريم اولا : في الجدول ثانيا : في النموذج عند حدث الفتح للنموذج او عند حدث في الحالي للنموذج ضع هذا الكود الخاص بالفرز التصاعدي لحقل الإسم Private Sub Form_Open(Cancel As Integer) Me.OrderBy = "ANAME Asc" Me.OrderByOn = True End Sub بالتوفيق