SEMO.Pa3x

اهلا اخي الكريم، شاكر لك كرمك لتجربتك برنامجي وابداء الملاحظات.. الحقيقة انا لست قلق من أمر التعديل والصلاحيات وغيره، ذكرت سابقا النسخة ليست كاملة كما انني متأكد انه لا يوجد مايكفي من الخبرات على الأقل هنا لكسر تشفير accde جميع العمليات التي تتم من حذف وتعديل واضافة كلها عن طريق الكود ومحددة بشروط لذلك لا احد يستطيع قراءة الأكواد والتعديل عليها، بالاضافة الى ان النسخة التي لدي تكون صلاحياتها محددة بالكود ولا يمكن تعديل صلاحيات اليوزر إلا عن طريق المبرمج فقط! بالاضافة الى ان النسخة التي سأعطيها للعميل محمية على رقم الهارد ومسجلة من داخل محرر الـ VBA بدون اللجوء للجداول لانها مكشوفة ومعرضة للتعديل وأذا اردت تعقيد الأمر أكثر، سأجعل البرنامج لا يعمل الا بعد تخطيك لفورم الدخول لانها سيكتب قيمة runtime ويتم التحقق منها عند فتح اي فورم اذا كانت True يفتح, العكس يغلق البرنامج تحياتي لك

في حدث الـ Form_Timer Private Sub Form_Timer() ClockNow = Time If Format(Now(), "hh") <= 12 Then txt_DayNight = "صباح الخير" Else txt_DayNight = "مساء الخير" End If txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date) End Sub وإجعل التايمر = 1000 أي ثانية واحدة

شكرا لكم، تم إغلاق النسخة.

السلام عليكم ورحمة الله وبركاته.. اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب.. تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد.. الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة كلمة المرور لفتح البرنامج = 313 المميزات الحالية: 1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة 2- طباعة الوصفة الطبية 3- اضافة الادوية ومجاميعها والملاحظات 4- تسجيل بيانات المريض والحجوزات 5- تسجيل المصروفات 6- تعديل الاعدادات 7- اضافة نوع الحجز: * فحص = لإضافة الادوية للمريض * استشارة = لإرسال استشارة لطبيب آخر * دخول = لإرسال المريض الى المستشفى تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء، شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير doctor.rar

يجب أن تكون متصلا بالانترنت

عليكم السلام

يا أهلاً وسهلا بالمعلم شرفني حضورك في موضوعي للمعلومة، للآن أنا استخدم التصميم بالطريقة العادية لكن ربما مستقبلاً سأشرح لكم تصميم الفورم HTML + CSS بحيث يكون مثل واجهات الويب الالوان والتصاميم الجميلة اتذكر اني وضعته بإسم MachineDate مثل ما يقولون كل الطرق تؤدي الى روما وبما أن الأكسس يمكنك من فعل الأمور ذاتها بأكثر من طريقة فأنا ارى اني نفذ المطلوب بهذه الطريقة البسيطة في وجهة نظري البسيطة، من اعظم الأخطاء بقواعد البيانات هي حذف السجلات حذف دائم.. لان حذفه سيأثر في تسلسل الـ Primary Key تفقد التسلسل بين السجلات ثانياً ربما حُذف بالخطأ واحتاج استرجاعه بالفعل الفهرسة مفيدة او كما يعرف بقواعد البيانات Foreign Key في الويب لو لم يكن الحقل FK لا يمكنك انشاء علاقه معه.. لقد قمت بوضع الفهرسة لهذه الحقول، لكن ربما سهوت عن بعضها سأقوم مراجعتها وتصحيحها أي مكتبات؟ وكيف اقوم بتعديلها فكرة جميلة، سأقوم بأظهار شريط المهام.. سعيد جدا بمرورك وملاحظاتك فأنها دائماً تغني رصيدي المعرفي

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

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

شكرا لك اخي العزيز، على كل ماتفضلت به من ملاحظات واراء وحلول تم العمل عليها جميعاً وتم اضافة امور جديدة سيتم الإفصاح عنها قريباً.

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

السلام عليكم ورحمة الله وبركاته.. اقدم لكم النسخة الأولى من برنامج ادارة عيادة الطبيب.. النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد.. الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة كلمة المرور لفتح البرنامج = 313 المميزات الحالية: 1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة 2- طباعة الوصفة الطبية 3- اضافة الادوية ومجاميعها والملاحظات 4- تسجيل بيانات المريض والحجوزات 5- تسجيل المصروفات 6- تعديل الاعدادات DOCTOR_FILES.rar

عليكم السلام على حسب علمي هذا غير ممكن في الأكسس، تحتاج لعمل وسيط بلغة اخرى وليكن NET. ومن ثم استخدامه في الأكسس.

عليكم السلام.. تفضل، قمت بعمل مثال لك: splash.accdb

Public Sub CapText(ID As Integer, cmds As CommandButton) Dim CaptionText As String CaptionText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) 'set caption name cmds.Caption = CaptionText End Sub الإستدعاء: Call CapText(1, "Hello")

عليكم السلام، انت تقول قمت بتعمل دالة لتغيير نص الأزرار والليبل. فأين الأزرار والليبل في الكود الخاص بك! انت فقط قمت بتعريف متغير واسندت له قيمة، اين الأزرار والليبل في الموضوع؟ يجب عليك نداء الزر أو الليبل الذي تريد تغييره.

عليكم السلام، ارفق قاعدة بياناتك لكي نتمكن من مساعدتك.

total_fatora = Nz(DSum("total", "Haraka", "fat_num = " & Forms!Fatora_be!Fat_num & " And " & "kind_haraka = '" & Forms!Fatora_be!Kind_haraka & "'"), 0)

نعم وغير عبارة YOUR_MSG_ID في الكود الى رقم الـ ID الخاص برسالتك التي تريد عرضها

'define vars Dim splitMessage(), gMessage, gTitle As String 'replace YOUR_MSG_ID with your id splitMessage = Split(getMessage(YOUR_MSG_ID), "||") 'get results gMessage = splitMessage(0) 'get Message gTitle = splitMessage(1) 'get Title 'set in msgbox MsgBox gMessage, vbInformation, gTitle

ارفق قاعدة بياناتك لكي نتمكن من مساعدتك.

عليكم السلام Public Function getMessage(msgID As Integer) 'define vars Dim vMessage, vTitle As String 'return values vMessage = DLookup("txtMessageText", "tblMessages", "txtAutoIntMessageID =" & msgID) vTitle = DLookup("txtMessageText", "tblMessages", "txtAutoIntMessageID =" & msgID) 'return values getMessage = vMessage & "||" & vTitle End Function الدالة سوف تقوم بإرجاع قيمة تتضمن الرسالة والعنوان وبين الرسالة والعنوان علامة || لكي تقوم بعمل Split وفصلهم بالشكل الآتي: 'define vars Dim splitMessage(), gMessage, gTitle As String 'replace YOUR_MSG_ID with your id splitMessage = Split(getMessage(YOUR_MSG_ID), "||") 'get results gMessage = splitMessage(0) 'get Message gTitle = splitMessage(1) 'get Title

ارفق قاعدة بياناتك لكي نتمكن من مساعدتك.

الطريقة تفيد في ما اذا كان هدفك هو عرض البيانات فقط اما اذا اردت عرض البيانات وعند الضغط على اي سجل يظهر لك خيارات كـ تعديل او حذف او غيرها او مثلا لديك تصميم نموذج يختلف عن الثاني، فإنها تكون طريقة عاجزة تماماً أو مثلا اذا اردت ان تنادي حقول معينة يتوجب عليك بناء استعلام لكل جدول. لذلك اختصر الوقت من البداية، وقم بعمل نماذج فرعية أفضل.

طبق نفس الكلام، بالنسبة لباقي التبويبات بالنموذج. 1390.nabil2322.accdb