عمر ضاحى

انت دائما مبدع وفنان كعادتك تبهرني بابداعك الف شكر 🌹🌹🌹🌹🌹🌹🌹🌹

انا فتحت النموذج وشايف انك بالفعل عامل ده وجايب ليك العدد وجايب ليك البيانات وفى شريط السجلات تحت مكتوب انها 2 سجل موجود ممكن تستعرضهم فوالله ثم والله ما فهمت عليك انا حاسس ان طلبك بسيط جدا بس انا مش عارف ازاى افهم انت عاوز ايه بالظبط 😅

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

ممكن تشرحلى بالتفصيل انت عاوز تعمل ايه بالظبط يعنى لما يحصل ايه يظهر ايه وبالشكل المعين كذا علشان افهمك واحاول مساعدتك

انصحك ان يكون اسماء حقول الجداول انجليزي اتفضل هذا الاستعلام ما تريده ؟ SELECT tabl1.* FROM tabl1 INNER JOIN tabl2 ON tabl1.رقم = tabl2.رقم;

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

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

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

اتفضل طلبك لكن انصحك نصيحه لوجه الله لا تجعل اسماء الحقول فى الجداول بالعربي هتتعبك قدام test(1).rar

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

ده بسبب انه حقل متعدد القيم ولا يمكن استخدام like مباشرتا ولهذا يجب اضافة Value الى اسم الحقل [grade] انظر للسطر التالي StrWhere = StrWhere & " and [grade].Value like '*" & Me.tx1 & "*'"

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

واضح جدا ان الموضوع فعلا متعوب عليه بارك الله فيك وجعله فى ميزان حسناتك

ما شاء الله تبارك الله رائعه من روائع استاذى موسي

وهذا مرفق للتوضيح ونصيحه لا تجعل اسماء الحقول باللغه العربيه نظام شراء سيارات.rar

وعليكم السلام ورحمة الله وبركاته يعنى انت عاوز حسب الظاهر امامي من الصورة يكون مجموع الاقساط هي 300 صح ؟ اذا صح كل ال مطلوب هتستخدم دالة Dsum وتحدد الشرط وال هيكون هنا الرقم المعرف للموظف وبنفس الدالة هتطرح القسط من مجموع الاقساط هيطلعلك الباقي وممكن تستخدم دالة IIF اذا كانت مجموع الاقساط مساوي للقسط يكتب مغلق اذا لا يكتب مفتوح (كمثال انت بقي شوف عاوزها ايه) بس كده اذا لا ! ياريت تحدد المطلوب بالظيط لاني ده ال فهمته من كلامك

متابع

يعطيك العافية يا مبدع يا فنان 😄 اشكرك على الهديه الرائعه من قبل ما اجربها 🌹🌹🌹🌹 جاري التجربه 🚴

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

اتفضل هذا الدالة تفي بالغرض ان شاء الله Function ResetAutoNo(ByVal TableName As String, ByVal FieldName As String) On Error GoTo ErrorHandler Dim db As DAO.Database Dim tdf As DAO.TableDef Dim idx As DAO.Index Dim fld As DAO.Field Dim wasPrimaryKey As Boolean Dim pkName As String Set db = CurrentDb Set tdf = db.TableDefs(TableName) wasPrimaryKey = False For Each idx In tdf.Indexes If idx.Primary Then If idx.Fields(0).Name = FieldName Then wasPrimaryKey = True pkName = idx.Name tdf.Indexes.Delete pkName Exit For End If End If Next idx tdf.Fields.Delete FieldName Set fld = tdf.CreateField(FieldName, dbLong) fld.Attributes = fld.Attributes Or dbAutoIncrField tdf.Fields.Append fld If wasPrimaryKey Then Set idx = tdf.CreateIndex(pkName) idx.Fields.Append idx.CreateField(FieldName) idx.Primary = True tdf.Indexes.Append idx End If db.TableDefs.Refresh Set fld = Nothing Set tdf = Nothing Set db = Nothing Debug.Print "تم إعادة تعيين حقل الرقم التلقائي بنجاح" ErrorHandler: If Err.Number = 0 Then ElseIf Err.Number = 3265 Then MsgBox "تحقق من اسم الجدول أو اسم الحقل", vbExclamation, "خطأ" Exit Function ElseIf Err.Number = 3211 Then MsgBox "الجدول تم تحريره او هناك مستخدم يستخدمه", vbExclamation, "خطأ" Exit Function Else MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "خطأ غير متوقع" End If End Function طريقة العمل Call ResetAutoNo("tbl_Name", "ID") على اساس ان ID هو اسم الحقل الترقيم التلقائى و tbl_name هو اسم الجدول

اشكرك على الهدية وشرف لى ان اكون اول المعلقين لكن لو جعلت التصميم والالوان اكثر بساطه (هذا رأي ويمكن تجاهله ولا يعتذ به)(لكن اتمني ان يصلك بكل رحب) لاني صراحه لما فتحت الملف حسيت الامور كاني فى متاهه ومحتاج وقت علشان استوعب من فين يودي على فين 😅 لكن اشكرك على المجهود الرائع وسلمت يمناك

مبعدع وفنان يا فنان تسلم على الهديه الرائعه بش مهندس محمد

بسم الله ما شاء الله ابدعت وهتخلينى افكر بطريقه مختلفه تسلم يا هندسه استاذي @Moosak ضيفها فى المكتبه العامره الله يبارك فيك

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

التحديث 2:- 1- تم برمجة نماذج الاكسيس للتعامل مع قاعدة البيانات (mysql) بدون استخدام Connector/ODBC MYSQL (حيث تم عمل صفحات وتعديل الاكواد للتعامل مع الوسيط الجديد "صفحات php") 2- تم اضافة صفحه لعرض وتعديل وحذف المستخدمين 3- تم تعديل صفحه تعديل البيانات لربطها مع الصفحه عرض البيانات 4- تم اضافة نموذج جديد وجدول جديد لحفظ اعدادات الموقع (الهوست) ..... وبعض الامور يمكنك استكشافها بنفسك (الغرض منها التيسير على تعديلات الاكواد فبدل ما كان كل ما تحب تغير العنوان تذهب لكل كود وتعدله ) ((( سبب هذا التحديث : لاحظت ان اغلب مواقع الاستضافة لا تسمح باستخدام الاتصال عبر ODBC لقواعد البيانات الخاصه بها وهذا للامور الحماية لهذا قمت بعمل تعديلات على الصفحات وازالة بعض الامور التى لا تتماشي مع الوضع الجديد لان ف الاصل ان الموقع ليس محلى انما له دومين معروف وسهل الاتصال به والتعامل معه وقد تم التجربه على دومين فرعي لصديق عندي وجميع الصفحات تعمل بدون اى مشاكل ان شاء الله ))) فى نقطه حابب انوه عليها وهي فى غاية الاهمية طبعا جميع الصفحات موجوده لغرض التعلم واخذ الافكار منها لذا عند محاولة تنفيذ الفكره لابد ان تأخذ فى الاعتبار طرق الحماية وطريقة عمل اكثر فاعليه وهذا قد يتطلب وجود مبرمج المحاولة بنفسك وعمل الصفحات واخذ الاكواد وفهم الالية التى تعمل بها الصفحات وطريقة جلب البيانات من الصفحات الى الاكسيس وغيرها من الامور لا مانع لكن اكرر لابد ان تجعل الصفحات اكثر حماية والتحقق من انه ليس هناك اى ثغره قد يستغلها اصحاب النفوس المريضه 😠 وبها قد يخترق القاعده والتعديل على الصفحات 😨 اذا نويت تطبيق هذا على دومين 🙂 المرفقات هي الصفحات التى تم تعديلها وتم اضافتها وملف الاكسيس بعد التعديل عليه (هناك بعض التحسينات جاري العمل عليها للصفحات لكن محتاج وقت وحين الانتهاء منها سوف ارفع الملفات من جديد بعد الانتهاء من التحسينات) APP.rar LAB.rar