ابوخليل

تفضل اخي الكريم حسب فهمي عملت لك بعض التعديل اطلع على المرفق ووافني بالنتيجة waslat2.rar

الاخ الــفاضل el_basha الموضوع يشتمل على مادة مخالفة لقانون المشاركة رجاء قرا ءة قواعد المشاركة كاملة وفقك الله لطرق الخير xxx يغلق xxx

يبدو انك لم تفهم شرحي السابق اذا انشأت محرك اقراص الشبكة في الجهاز الفرعي كما وضحت لك فلست بحاجة الى هذه المسارات لنفرض انك انشأت محرك الاقراص باسم z سيكون المسار هكذا : z:\pic\102.jpg

كل سنة وانت طيب استخدم محرك اقراص الشبكة في الاجهزة الفرعية كلك يمين على جهاز الكمبيوتر / انشا محرك اقراص الشبكة اتبع المعالج واختر مجلد البرنامج في الجهاز الرئيس سيتم عمل قرص بجانب الاقراص الرئيسية الــ c و D وبكذا يمكنك توجيه مسار الصورة في الواجهة الفرعية الى القرص الوهمي هذا

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

تفضل هذه طريقة اخرى بالضوابط التي طلبتها Dim V0, v1 As Integer Dim yr, mth, dy As Integer V0 = text0 * 360 v1 = V0 - (Nz(Text1 * 360) + Nz(Text2 * 30) + Nz(Text3)) yr = v1 \ 360 mth = (v1 Mod 360) \ 30 dy = (v1 Mod 360) Mod 30 textx = yr & "سنة, " & mth & "شهر, " & dy & "يوم" Text4 = yr Text5 = mth Text6 = dy طرح سنوات من الخدمة3.rar

حسب معطياتك لا يمكن تكون الايام اكثر من ثلاثين كما لا يمكن ان تكون الاشهر اكثر من 12 لانه لديك خبرة محددة بالسنين والشهور والايام وتريد تطرحها من العدد 20 فنحن قمنا بالتسلف بداية وحسبنا الـــ 20 سنة هكذا : 19 سنة ، 11 شهر ، 30 يوم ثم اجرينا عملية الطرح آمل ان تكون الفكرة واضحة تم تعديل المثال حسب رغبتك طرح سنوات من الخدمة2.rar

تفضل : تم عمل وحدة نمطية عامة تأخذ خيارات النسخة من الجدول ويمكن الآن اخذ النسخة من اي مكان داخل البرنامج ملحوظة : بقي ان تضع قيم افتراضية للحقول فيما لو المستخدم لم يحرك ساكنا x.rar

حين لم تبادر بالرد فقد جعلت لك السنين اختيارية ويمكن ان تجعل الرقم 20 داخل الكود بدلا من قيمة الحقل اولا عملنا وحدة نمطية عامة يمكن تطبيقها في اي مكان من المشروع في النموذج او الاستعلام Function modah(vyear As Integer, vmonth As Integer, vday As Integer) v1 = (text0 - 1) - vyear v2 = 11 - vmonth v3 = 30 - vday If v3 < 0 Then v2 = v2 - 1 End If v2 = v2 Mod 12 modah = v1 & "سنة, " & v2 & "شهر, " & v3 & "يوم" End Function وهنا تم نداؤها داخل المحرر في حدث النقر على الزر textx = modah(Text1, Text2, Text3) طرح سنوات من الخدمة.rar

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

السبب ان مربع التحرير غير منضم اي لا يستند الى مصدر داخل الجدول وقبل كل شيء جدول الدورات لا يحتوي اصلا على حقل الرمز المذكور

يؤسفني عدم تمكني من فتح المرفق لاني اعمل الآن على جهاز يحتوي على اصدار 2003 ولكن تكفي الصورة الظاهرة لتحكي عن جمال التصميم لدي ملاحظة : وهي يفضل ادراج كلمة في ( نسخة كل ) لتصبح (نسخة جديدة كل ) لان النسخة الاحتياطية حاصلة بالفعل عند كل ضغطة زر

هل السنوات الـ 20 ثابتة ام انها قد تتغير

اثراء المنتدى بعناوين جديدة افضل لاشك بارك الله فيك

ما خط بالاحمر عملك صحيح وهو المتبع وما خط بالازرق هو اجابتي السابقة

اخي الكريم رعاك الله يجب ان يقتصر المثال على الحاجة الفعلية التي تحتاجها فقط ثم بعد حصولك على الحل تنقلها لبرنامجك كذا الواحد ينشط معك لان المسألة محصورة وواضحة خاصة النماذج ، اما الجداول فلا بأس لارتباطها ببعض في مثالك الآن 19 نموذج والعمل سيكون على اثنين فقط فضلا ارفع مثالا جديدا يحتوي على المطلوب فقط وكما ذكرت لك بعد حصولك على الحل تنقلها لبرنامجك وبعد ذلك تبدأ بمثال جديد وسؤال جديد وفقنا الله واياك لكل خير

تمت التجربة بنجاح انظر الصورة المحملة والمشكلة السابقة في مشاركتي السابقة

تقصد الارقام تظهر هندية من المكان نفسه الذي غيرت منه اللغة يمكنك تغيير شكل الارقام ايضا في خصائص الحقل في اكسس / لسان التبويب تنسيق تجد خاصية تغيير شكل الارقام

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

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

ما فيه خطأ ولكن انظر الى الحدث الخاص بمربع التحرير ( بعد التحديث ) وهو عبارة عن ماكرو مضمن يعمل بحث وفلترة

ليس حذف mm بل الابقاء على mm مع yy وان اردت السنة كاملة مع الشهر : yyyymm وتحذف ما عداها .. كذا يتم الكتابة فوق النسخة الموجودة عند كل ضغطة زر حتى نهاية الشهر وفي بداية الشهر الجديد يتم وضع نسخة جديدة بجانب القديمة والسبب ؟؟ لان اسم القاعدة تغير ارجوا يكون الشرح واضح

انظر في الاعدادات الاقليمية في وندز لوحة التحكم / المنطقة واللغة واضبطها على العربية

مسألة اننا نحذف النسخة السابقة ونلصق النسخة الجديدة فهي فكرة للحد من تراكم النسخ ولكن ما النتيجة و ماالمخرج من المصيبة حين تأخذ نسخة من قاعدة بيانات معطوبة لتحل محل السابقة السليمة يوجد طريقتين لاخذ الاحتياط من الوقوع بهذا الخطأ الطريقة الاولى : ان تكون النسخة شهرية (اي يتم تسمية النسخة بالسنة والشهر فقط ) وخلال الشهر تتم العملية بالكتابة آليا فوق النسخة فإذا دخل الشهر الجديد يتم وضع نسخة جديدة بجانب نسخة الشهر السابق وهكذا .. نتحصل على 12 نسخة في السنة الواحدة الطريقة الثانية : وهي الافضل على الاطلاق ان يكون هناك عملية تسبق عملية النسخ داخل الاجراء نفسه ومهمتها تحسس مجلد النسخ يتم من خلالها حذف النسخ الزائدة ان وجدت والابقاء على آخر ثلاث نسخ جديدة وبالنسبة لطلبك اظهار التاريخ والوقت في اسم النسخة يمكنك استبدال الجزء الخاص بالنسخ بالكود في مشاركتي الاولى بهذا : Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & _ DBNew & "\" & Format(Now(), "yymmddhhnn") & ".mdb" & """", 0 لاحظ انه يمكنك حذف ما تشاء من تنسيق التاريخ فإن حذفت nn سيتم اخذ نسخة بجانب الاولى بعد دقيقة وان حذفت hh ================= بعد ساعة وان حذفت dd ================= بعد يوم وهكذا ...............

اخي حسين كودك الذي عرضته بالمشاركة الاولى يحقق طلبك If Dir("C:\WINDOWS\MOVI.txt") = "" Then MsgBox "يعمل" Else MsgBox "لا تعمل" End If ايضا الكود الثاني والذي عرضه الاستاذ محمد If Len(Dir("C:\WINDOWS\MOVI.txt")) > 0 Then MsgBox "لا يعمل" Else MsgBox "اعمل" End If