نجوم المشاركات

السلام عليكم 🙂 زرت المشاركة البارحة ، وفتحت البرنامج عدة مرات ، وآخرها كان اليوم 🙂 التصميم رائع ، ويخبرنا ان الاكسس ليس السبب في قصور جمال نماذجنا وتقاريرنا ، وانما هو خيالنا 🙂 لم ادخل بيانات في البرنامج لمعرفة تفاصيل عمله ، ولكن لدي المبلحظات التاليه على الجداول: يجب عمل حقل تاريخ تلقائي ، وقيمته الافتراضية Now ، بحيث عند عمل اي سجل ، يتم تسجيل وقت عمل هذا السجل ، وستحتاج الى هذه الحقل عند الانتقال الى SQL Server ، الجدول tbl_Login ، بدل ان يكون افقي ، وتضطر الى اضافة حقل جديد ، إجعله عمودي ، بحيث تقدر تضيف اسماء النماذج كسجلات ، ويمكنك استعمال استعلام Crosstab لفرزه ، جميل استخدامك الحقل Deleted ، فانت تحفظ اي سجل تم كتابته ولا تحذف اي سجل تم كتابته 🙂 جميع الحقول اللي فيها معيار (سواء في الاستعلام او الكود) ، واللي فيها علاقة مع جدول آخر ، يجب ان يكون فيها فهرسة ، لسرعة عمل البرنامج ، طبعا تعديل المكتبات لكي تعمل على النواتين 32بت و 64بت ، لا تعبئ الشاشة كاملة ، فيجب ان يظل الجزء السفلي من الشاشة ، للوندوز ، سواء لفتح برامج اخرى او اي سبب آخر ، او يكون عندك زر لهذا الخيار 🙂 وأسأل الله سبحانه وتعالى ان يوفقك 🙂 جعفر

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

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

ضع هذه المعادلة في الخلية I4 =IF(B4="ماكينة 3",H4,IF(OR(B4="ماكينة 2",B4="ماكينة 5"),C4/(C4+C3)*H4,C4/(C4+C5)*H4)) إن شاء الله تكون هي المطلوب بالتوفيق

نعم لقد عملت لكل منهم استعلام، وكل نموذج فرعي مرتبط باستعلام.. إذا كان فهمي صحيحا،،

هذا الموضوع يتكلم عنها : جعفر

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

تم إغلاق النسخة من المبرمج للأسف لم أستطع الاطلاع على البرنامج ما الفائدة من جعل البرنامج متاح لمدة يوم واحد ؟؟؟؟

ابو الحسن ايش تقصد بالجهة و الحساب هل من الممكن ام يكون للجهة اكثر من حساب ؟ اذا ( لا ) فهذا يعني انه يجب ازالة احد الجداول لديك اذا ( نعم ) سيتم الاستمرار و الابقاء على نفس الجداول

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

تفضل هذا تعديلي 2تصدير للوورد.zip

ما أجمل التعاون من أجل قضاء حوائج بعضنا البعض دمتم بخير أحبابي المشاركين وتفضل أخي الكريم هذا هو ملفك حسب الكود السابق لي تم إضافة أمر حفظ الملف باسم هذا الاسم هو رقم المعرف وتاريخ ووقت التصدير وعدم حفظ الملف الأصلي مع إغلاقه ‏‏إرسال الحقول للوورد bookmarks.rar

للاسف ما فتح البرنامج كوني استخدم نظام 64 بت

تفضل التعديل ضبطها بالطريقة الي تناسبك توضيح للفكرة !!!! تم انشاء جدول UserForms يجب اضافة اسماء النماذج لجميع المستخدمين من خلال اختيار Actev=True يتم منح صلاحية الوصول للمستخدم و ازالة الصلاحية بإزالة True ODB_UserTree.zip

بالإضافة إلى ما ذكره أخي وهي مجرد أراء وملاحظات بالنسبة للتصميم اللون الكحلي لو يكون فاتح اكثر لراحة العين فقط 1- اضافة تسجيل مريض يحتوي على ( رقم الملف الطبي - الرقم القومي أو السجل المدني حسب الدولة - الاسم - تاريخ الميلاد - النوع ذكر أو انثى - الحالة الاجتماعية - الجنسية - رقم الجوال - السكن أو الحي ثم توضع خانة حساب العمر تلقائي بعد ادخال تاريخ الميلاد ) هذا ما يخص المريض . 2- جدول آخر مرتبط بجدول اعلاه ( الأمراض المزمنة ) تسجل فيه نوع المرض 3- جدول أخر مرتبط بالجدول اعلاه ( الإعاقات ) تسجل فيه نوع الإعاقة 4- جدول مراجعة مريض أو زيارة مريض ( مبني على الجدول أعلاه يجلب الاسم ورقم الملف الطبي - يحتوي على على الشكوى - التشخيص - الوزن - الحرارة - الضغط - النبض - درجة المراجعة ( مواعد - خطير - عاجل ) - الملاحظات والعلاج . 5- إدراج بحث عن مريض بحيث يعتمد البحث على رقم الملف الطبي وليس الاسم ومن خلال البحث يتم الضغط على رقم الملف الطبي وتفتح صفحة المريض لادخال مراجعة أو زيارة مريض أو حسب التصميم الذي لديك اختصار لوقت المحاسب . 6- جدول المراجعة يحتوي على ( الاسم - رقم السجل أو الرقم القومي ( يجلب من الجدول الرئيسي ) - تاريخ المراجعة - العيادة ( مربع تحرير وسرد ( أسنان - باطنية - مختبر - عظام ... الخ ) - اسم الطبيب . 7- وضع شاشة تحتوي على الإضافات العامة لمربعات التحرير والسرد ( جنسية - اعاقة - نوع الخطورة مثلا - العيادة - التطعيمات - وغيرها مما يلزم البرنامج حسب المبرمج ) 8- شاشة احصائيات 1- الاعاقات 2- الامراض المزمنة 3- الأعمار هي مجرد اقتراحات فقط لا غير ماخوذة من مستوصف حكومي لا خاص ربما تنطبق وربما لا تنطبق فاعتذر منك على الاطالة وأشكر لك جهدك وخدمتك لاعضاء المنتدى بما تجود به نفسك تقبل مني كل محبة وتقدير واحترام لشخصك الكريم

سلمت يداك استاذنا الفاضل ولا حرمنا الله من افكارك وعطائك تحياتي

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

ماشاء الله عمل متميز من استاذ كبير كلمة المرور 313 اعتقد الدكتور نسي يضعها في المشاركة

هذا الكود لا يوجد به متغيرات 😁 وهذا الكود لفتح الاستعلام في وضع التصميم ، وكود تشغيل الاستعلام يكون: DoCmd.OpenQuery "Sale" جعفر

حبيبي الغالي ربنا يزيدك ويبارك فيك دمت لاخيك تحياتي

ماشاء الله لا قوة الا بالله فعلا الابداع لا يعرف الحدود فكرة احترافيه بكل ما تعنيه الكلمة

السلام عليكم بالاضافة الى ما تفضل به اخي الحبيب واستاذي @د.كاف يار وله جزيل الشكر تفضل اخي الكريم Option Compare Database Option Explicit Private Sub Command0_Click() CurrentDb.Execute "UPDATE Table1 SET no_group = Null" CurrentDb.Execute "UPDATE Table1 SET no_serial = Null" Dim mySQL As String Dim rst As Recordset, rs As Recordset Dim i As Integer, k As Integer, L As Integer 1 On Error GoTo 2 mySQL = "Select * From Table1 ORDER BY stu_case , stu_sex " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst!no_serial = i rst.Update rst.MoveNext Next rst.Close: Set rst = Nothing 2 On Error GoTo Err mySQL = "Select * From Table1 WHERE stu_case = 1 ORDER BY no_serial " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount For k = 1 To 6 rst.Edit rst!no_group = i rst.Update rst.MoveNext Next Next rst.Close: Set rst = Nothing Call randx Err: Call randx End Sub Sub randx() Dim mySQL As String Dim rst As Recordset, rs As Recordset Dim i As Integer, k As Integer, L As Integer 3 On Error GoTo Err mySQL = "Select * From Table1 WHERE stu_case = 2 ORDER BY no_serial " ' Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst L = Nz(DMax("[no_group]", "Table1"), 0) + 1 For i = L To rst.RecordCount For k = 1 To 6 rst.Edit rst!no_group = i rst.Update rst.MoveNext Next Next rst.Close: Set rst = Nothing MsgBox "Done", vbInformation, "Officena" Err: End Sub Database03.rar تحياتي

عفوا كان فيه خطأ في ترقيم المجموعات اتفضل التعديل كذلك الترقيم عدلته تقدر تخليه يبدء من رقم 1 Database0.mdb 2Database0.zip

اعرض الملف كود لقلب وضعية بلوكات كاملة طلب مني زميل حل لعكس ترتيب مجموعة من بلوكات البيانات من الوضعية الافقية الي الوضع الرأسي و ذلك دون تغيير وضعية البيانات داخل البلوك الواحد ، كما هو مبين فى الضورة يمتاز الكود بعدم مجدودية عدد البلوكات (يتم الاختيار طبقا للتظليل) و يمكن تعديله بسهولة ليناسب اعداد الاعمدة المختلفة داخل البلوك و ذلك يتعديل قيمة متغير واحد فى الكود. و لكي تستخدم هذا الكود قم اولا بتحديد عدد الأعمدة داخل كل بلوك عن طريق المتغير CC فى الكود و فى المثال هنا عدد أعمدة كل بلوك هو 3 ـ و يمكنك تغييره كما تشاء ثم قم بتظليل كافة البيانات المراد تغيير وضعها على أن تكون عدد الاعمدة المختارة من مضاعفات الرقم المختار لأعمدة كل بلوك ثم شغل الكود Sub PivotBlocks_arafa() Dim r, c, b As Integer Dim g As String cc = 3 ' قم بتعديل هذا الرقم لتغيير عدد الاعمدة الافتراضي فى البلوك الوحد r = Selection.Rows.Count c = Selection.Columns.Count b = c / cc g = ActiveCell.Address For x = 1 To b - 1 Range(ActiveCell.Offset(0, cc * x), ActiveCell.Offset(r - 1, cc * x + cc - 1)).Cut ActiveCell.Offset(r * x - 1 + 1, 0).Activate ActiveSheet.Paste Range(g).Activate Next x End Sub صاحب الملف محمد طاهر تمت الاضافه 07 يول, 2020 الاقسام قسم الإكسيل  

هل المقصود عدد مرات تكرار رقم الأستاذ في شيت توزيع الحراسة ؟؟ إذا كان هذا هو المقصود فيمكنك استخدام عمود c لرقم الأستاذ ثم إخفائه قبل الطباعة إن أردت واستعمال الدالة countif للعد بشرط وهذا ملفك بعد هذا التعديل حساب مجموع فترات الحراسة.xlsm

نعم ، بعمل ثلاث تغييرات : . جعفر 1348.ترقيم خاص.accdb.zip

مثال للطب يعتمد الدالة التالية Public Function mod_Autonum(ByVal strField As String, ByVal strTable As String) As String Dim dmval As String, dt1 As String, dt2 As String, Seq As Integer, dv As String 'get the highest existing value from the table dmval = Nz(DMax(strField, strTable), 0) 'if returned value is 0 then the table is new and empty 'create autonumber with current date and sequence 1 If Val(dmval) = 0 Then dv = Format(Now(), "yyyymmdd") * 1000 + 1 mod_Autonum = dv Exit Function End If 'format the number as an 11 digit number dv = Format(dmval, "000000000") 'take the 3 digit sequence number separately Seq = Val(Right(dv, 3)) 'take the date value separately dt1 = Left(dv, 8) 'get today's date dt2 = Format(Now(), "yyyymmdd") 'compare the latest date taken from the table 'with today's date If dt1 = dt2 Then 'if both dates are same Seq = Seq + 1 'increment the sequence number 'add the sequence number to the date and return mod_Autonum = Format(Val(dt1) * 1000 + Seq) Exit Function Else 'the dates are different 'take today's date and start the sequence with 1 mod_Autonum = Format(Val(dt2) * 1000 + 1) End If End Function تستدعى الدالة من النموذج قبل التحديث بالأمر التالي Private Sub Form_BeforeInsert(Cancel As Integer) Me![CardNo] = mod_Autonum("CardNo", "Patients") End Sub للتأكد من أن الرقم يبدأ من 1 لليوم الموالي قم بتعديل التاريخ للسجلات السابقة في الجدول مثلا السجل الأول به تاريخ 20210206001 عدل التاريخ و اجعله لتاريخ سابق مثلا 20210205001 عدل مجموعة السجلات بنفس الطريقة ثم عد الى النموذج و قم بإدخال سجلات جديدة لاحظ أن الترقيم سوف يبدأ من 1 الترقيم سوف يظهر تلقائيا بمجرد بداية إدخال البيانات مثلا أكتب في حقل Title مثلا السيد حينها يبدأ الترقيم ترقيم خاص.rar