ابوخليل

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

وعليكم السلام التحزيم اسم على مسمى حيث نقوم بضم جميع ما يخص برنامجنا في حزمة واحدة برامج التحزيم تقوم بمهام عدة واهمها : 1-تنزيل الملفات ضمن مجلد معين يتم تسميته في مكان معين يتم اختياره 2- عمل اختصارات للملفات التشغيلية على سطح المكتب وعلى قائمة البرامج 3- تضمين الحزمة ملفات تنفيذية واوامر ضرورية يتم عملها قبل التنصيب وبعده خدمات اخرى يمكنك الاطلاع عليها حين تستخدم احد هذه البرامج

جزاك الله خيرا

تفضل قمت بتعديل الحقل Emp_No الى رقمي وتغيير ما يلزم عدم حفظ المصروف3.rar

تفضل تم التعديل عدم حفظ المصروف2.rar

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

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

في خصائص الجدول اجعل الحقول الثلاثة : مطلوب=نعم

طلبك الاول : مسح اجابة ! غير مفهوم

جزيت خيرا

تفضل عملت لك دالة لاسم اليوم وأخرى لاسم الشهر طبعا ضروري التفريق بينهما كما هو المتبع في اي لغة برمجية Public Function mnthNm(txtDate As Date) Dim tx As String Select Case Month(txtDate) Case 1: tx = "جنجر" Case 2: tx = "فبرر" Case 3: tx = "مرس" Case 4: tx = "أبرول" Case 5: tx = "مي" Case 6: tx = "يون" Case 7: tx = "يول" Case 8: tx = "طسطس" Case 9: tx = "سبت" Case 10: tx = "أكت" Case 11: tx = "نوف" Case 12: tx = "ديس" End Select mnthNm = tx End Function Public Function dyNm(txtDate As Date) Dim tx As String Select Case Weekday(txtDate) Case 1: tx = "احد" Case 2: tx = "اثنين" Case 3: tx = "ثلاثاء" Case 4: tx = "ربعاء" Case 5: tx = "خميس" Case 6: tx = "جمعة" Case 7: tx = "سبت" End Select dyNm = tx End Function dayname2.rar

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

اخي الكريم يجب مراعاة قواعد المشاركة 1- احتيار عنوان مناسب يصف المشكلة او الفكرة 2- الاقتصار على سؤال واحد محدد في كل مشاركة اعتذر من الجميع : يغلق ،،،

اخي الكريم : يرجى الاكتفاء بسؤال واحد في كل مشاركة لئلا تعرض موضوعك للغلق

اخونا عمر حفظه الله : هذا يعد مخالفة لقواعد المشاركة 1- عدم اختيار عنوان مناسب يصف الموضوع 2- طرح اكثر من سؤال في المشاركة يغلق ،،،

تفضل اكمل البقية Public Function tArqam(strx As Integer) Dim x As String Select Case strx Case 1 x = "يوم واحد فقط" Case 2 x = "يومين فقط" Case 3 x = "ثلاثة أيام فقط" Case 4 x = "أربعة أيام فقط" End Select tArqam = x End Function

اعذروني عن التأخر حتى الآن لم اجد الوقت الكافي للبحث والتجربة بالنسبة للسيرفر فسألت متخصصص بقواعد بيانات sql وقال ان التاريخ الافتراضي متوفر (getdate) ويمكن ان تستدعيه من اي جهاز فرعي ولكنني ابحث عن حل ضمن قواعد بيانات أكسس وكلام وتجربة ابو جودي حقيقية لأنك لو عملت جدول من حقل واحد وجعلت قيمته الافتراضية NOW() فان قيمته الحقيقية = Null لانه حقيقة خالي من البيانات وصلت الى اكثر من حل بشرط امكانية تطبيقه : 1- ان يكون البرنامج على جهاز المدير يعمل بشكل دائم اثناء وقت العمل ، وهنا يمكن توظيف نموذج يقوم بادخال التاريخ والوقت الحالي في الحقل المذكور كل ثانية ( وهذه الطريقة موثوقة وآمنة ) 2- الاعتماد على المدخلات خلال اليوم الحالي في الفترة المسموح بها بحيث نوجد حقل ياخذ الوقت الحالي يمكن الرجوع اليه داخل الكود ( علما ان هذه الخطوة لا تخلوا من ثغرات ) 3 - استدعاء ساعة الجهاز البعيد ( السيرفر ) بمعلومية شبكة اللان او الآي بي وهذا باعتقادي حل متقن وآمن . في الوقت الحالي لا املك اجهزة لربطها واجراء التجربة ، وان تسنى لي سأحاول ان شاء الله

قيد النظر ... آمل وبالتعاون معك ان نجد طريقة آمنة

السلام عليكم وبعد اذن اخي محمد هل هذا مطلوبك تسجيل الايرادات2.rar

اكتب هنا الكود الذي يقفل النموذج

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

اشرح ما تريد بدقة

انسخ الكود والصقه في حدث عند تحميل النموذج

لو كنت اقدر على فتح مرفقك لعدلت لك من المشاركة الاولى تفضل هذا تطبيق للفكرة db1.rar

الصق هذ الكود في محرر الفيجوال Private Sub c1_AfterUpdate() If c1 = True Then subfrm.SourceObject = "SubForm1" Else subfrm.SourceObject = "" End If End Sub على اعتبار اسم خانة الاختيار = c1 وخذ بالاعتبارات السابقة ايضا في تسمية النموذج الفرعي وعنصر الحكم