ابوخليل

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

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

الملف شغال ركب برنامج اكسس حتى تتمكن من تشغيله هذا البرنامج يأتي مع حزمة أوفيس

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

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

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

وعليكم السلام التحزيم اسم على مسمى حيث نقوم بضم جميع ما يخص برنامجنا في حزمة واحدة برامج التحزيم تقوم بمهام عدة واهمها : 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

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