عمر ضاحى

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

اتفضل هذا الدالة تفي بالغرض ان شاء الله 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

اشكرك اختى الكريمه على الاشادة الجميله والفكره بسيطه ان شاء الله ما تحتاجي لوقت لفهمها وانا حاليا شغال على حل اخر لمن قد يواجه مشكلة فى Connector/ODBC MYSQL بحيث يمكن عرض البيانات المريض المخزنه على my sql دون الاتصال بواسطة Connector/ODBC MYSQL

يسعدني مروركم الكريم 🌹🌹🌹

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

اللهم امين ويسعدنى مروركم الكريم ويشرفني اشادتكم 🌹🌹🌹 🌹🌹🌹

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

::بسم الله نبدأ:: السلام عليكم ورحمة الله وبركاته اخوتي الكرام كل عام وانتم بخير اليوم وكما هو موضع من عنوان الموضوع موضوعنا عن ربط برنامج الاكسيس بصفحات الويب وهنا اخص لغة ال PHP كان فى سائل عن امكانية ربط برنامج الاكسيس بالنت علشان يسمح للمرضي بتحميل التقارير الخاصه بهم ورديت عليه تقريبا ان الموضوع صعب لكن اليوم اقدم لكم طريقه اتمني ان تكون سهله وواضحه واعذروني على المقدمة الطويله ورقاقة الكلمات نبدأ اولا بالادوات الازم توفرها:- 1- XAMPP يمكن تحميله من هنا 2- Connector/ODBC MYSQL يمكن تحميله من هنا ويفضل تنزيل النسخه 8.0.31 انا عن نفسي شغال بالاصدار 8.0.31 (وشغال تمام) وممكن تحمله من هنا للنسخه 32بت ومن هنا للنسخه 64بت 3- ActiveX WebBrowser control (antview) يمكن تحميل هذه الاداة من هنا او رابط مباشرة من هنا 4- PHP File's & Access File هنا يمكن تحميل الملفات التى قمت بالعمل عليها :: نبدأ بتسطيب برنامج XAMPP :: وهو المحاكي الذى سيعمل فيه بيئة ملفات ال php طبعا المفترض ان هناك دومين موجود بالفعل واستضافة والذى سيتم تنصيب الخدمه عليه وعن طريقها سيكون متاح للمريض ان يحمل تقريره لكن الموضوع هنا للتعليم فنبدأ اولا بتسطيب البرنامج ليس بالامر الصعب بل سهل جدا وحتى لا يطول الشرح اذا واجهتك مشكلة فى تسطيب البرنامج يمكن كتابة وصور المشكله او البحث فى اليوتيوب وهتلاقى الحل المناسب (لكن عموما كل ال هتعمله اوافق والتالى التالى شكرا) بعد تنصيب البرنامج وهذه واجهته ويجب يكونو هكذا هنضغط على مفتاح Explorer او نذهب الى المسار هذا C:\xampp او حسب المكان الذى سطبت البرنامج فيه هندخل على المجلد htdocs وهنا هننسخ مشروعنا ويفضل متلعبش فى الملفات التى داخل المجلد htdocs غير لو انت فاهم بتعمل ايه نرجع لموضوعنا هننسخ الملف ال اسمه LAB وهنضعه فى المجلد htdocs هنفتح المتصفح وندخل على الرابط التالى http://localhost/phpmyadmin/ وهنبدأ بانشاء قاعدة بيانات جديده وهنسميها db_lab بعدها هندخل على القاعدة التى تم انشاءها وهنعمل عمليت استيراد هنضغط على استعراض وهنروح للمسار C:\xampp\htdocs\LAB هنلاقى فى ملف نفس اسم قاعدة البيانات وبعدها هننزل تحت وهنضغط على import وبهذا نكون قد انتهينا من رفع القاعدة نذهب الى هذا الرابط ونتحقق ان كل شئ تمام http://localhost/lab/ لو ظهر لك هذا الشاشة يبقي امورك فى التمام والحمد لله اذا لا بيكون فى خطأ حصل نبدأ نسطب برنامج Connector/ODBC MYSQL (( لا يحتاج الى شرح الامر بسيط وسهل وايضا حتى لا يطول الموضوع )) من هنا هنحتاج الى تركيز الامور بسيطه لكن لازم تتعمل صح هنروح للكنترول بنل لو انت شغال على وندوز 11 لو انت شغال على وندوز 10 هنا هتختار واحد منهم حسب اصدار الاوفيس عندك 32بت ولا 64 بتحميل انا هنا اصدار 64 بت هنكتب الاعدادات كما فى الصورة بالظبط لو انت حاطط كلمة سر لل phpmyadmin هتحطها وتضغط اوك بعد ما تختار القاعده الخاصه بك وبكده نكون انتهينا من هذا الجذء نبدأ تثبيت برنامج ActiveX WebBrowser control (antview) وده ال هيكون مسؤول عن استعراض صفحات الويب داخل الاكسيس وهي اداة ممتاذه عيبه تقريبا حسب الموقع انها مش مجانيه لو فى اى احد عنده طريقة نستخدم خاصية webview2 هي موجوده فى اوفيس 365 تقريبا وحسب ما سمعت انها بتنزل متضمنه لكن فى الاصدارات ال معانا مش موجوده او اى اداة اخري تكون مجانيه 100% يبقي تمام تثبيت البرنامج لا يحتاج شرح ^_^ نرجع لملف التطبيق الاكسيس ^_^ ونفتح البرنامج عادي بعد ما تم تثبيت كل الادوات السابق ذكرها وبرنامج الاكسيس هتلاقيه فى مجلد اسمه APP ممكن تنقله لاى مكان عادي وللعلم تم اضافة مكتبة واكود QR Code اخذتها من موضوع استاذى الاستاذ @ابو جودي فى موضوع الفاتورة الالكترونية 🤲 ربنا يبارك فيه وفى جميع اساتذتى هنا 🤲 نفتح ملف الاكسيس ونتأكد ان جميع المكتبات تعمل وليس هناك اى مكتبه مفقوده نركز على الصوره التالية هنتحقق من التالى ان الجداول متصله والمطلوب انك تفتح اى جدول للتأكد انه يعمل الاتصال جيدا هنفتح النماذج اول نموذج معانا FrmGenerator_User هنا انت لو عاوز تعمل اسم مستخدم وكلمة مرور ال هيدخل بيها المريض عندك كما هو موضح من الصورة حلين اما الاكسيس يعمل اسم مستخدم وكلمة سر عشوائية (1) او انت تعمل للمريض اسم مستخدم وكلمة سر يديوية (2) بعد ما تضيف حساب المريض هيكون هنا عندك القدرة على اضافة التقارير للمريض تابع الصور التالية يمكنك تحديد اكثر من ملف هنا فى الكود يسمح لك باستعراض ملفات الصور وال pdf بعد رفعها لو هناك اى ملاحظات تريد ان تسجلها يمكن هذا هتكتب الملاحظه وتعمل حفظ 😁 التالى لو انت عاوز تحول كلمة سر الى كود هاش هذا لو فرضا انك عاوز تغير كلمة السر لحساب ما وللعلم التشفير فى نظام ال PHP تشفير بالهاش هو تشفير فى اتجاه واحد يعنى يمكن عمل مطابقة لكلمة السر مع الهاش لكن متقدرش تحول الهاش الى كلمة سر طبعا ده علشان الحماية وده سياسة التشفير فى PHP والله اعلم او لو عاوز تتحقق من كلمة السر (يعني معاك كلمة السر والهاش وعاوز تتحقق انهم مطابقين ) هتضغط على التحقق وهو هيتحققلك بعد ما تم اضافة حساب للمريض عن طريق نموذج انشاء الحسابات وتم رفع الملفات للمريض هنروح على نموذج انشاء ال QR Code هنختار اسم حساب المريض من القائمة (قائمة المرضي) ونضغط على تصدير رمز ال QR اعتقد اني شرحت كل الامور واذا كان هناك اى مشكلة اقدر احلها لا تتردد فى الاستفسار وهتلاقى الجميع هنا بيسعدك بعض الملاحظات الواجب التنبيه لها يجب ان تغير عنوان الموقع اما للدومين اذا كان لديك دومين مع تعديل مسار البرنامج اذا لزم الام او كتابة عنوان الكمبيوتر الخاص بك اذا كنت تريد التجربه علشان لما تقراء كود QR يدخلك على الصفحه بطريقة صحيحة طريقة التعديل :- هتروح على كود نموذج انشاء كود QR وتعدل على العنوان بدل 127.0.0.1 وكل عام وانتم بخير وختاما نسألكم الدعاء لوالدتي الله يرحمها والشفاء لوالدي ربنا يبارك فى صحته ولا تنسونا من صالح دعواتكم الطيبة

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

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

لحد ما ترد هفترض انك تريد كود vba علشان تضيف البيانات التى تختارها من القوائم على الجدول ولفعل هذا راجع الكود التالي 'هنا نبدأ الاول التحقق من اذا كان الحقول المطلوبه فارغه ام لا If SectionList = "" Or IsNull(SectionList) Then MsgBox "برجاء اختيار القسم اولا", vbCritical, "تنبيه" SectionList.SetFocus SectionList.Dropdown Exit Sub End If If FojList = "" Or IsNull(FojList) Then MsgBox "برجاء اختيار الفوج اولا", vbCritical, "تنبيه" FojList.SetFocus FojList.Dropdown Exit Sub End If 'بعد ما تم التحقق بنجاح وكل الامور تمام يتم تخزين القيمة فى الجدول المستهدف Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = db.OpenRecordset("تحديد الفوج", dbOpenDynaset) With rst .AddNew ![mrk] = FojList ![الرقم2] = SectionList .Update .Close End With Set rst = Nothing db.Close Set db = Nothing 'بعد ما تم التخزين 'يتم تفريغ الحقول لعملية اخري SectionList = Null FojList = Null 'هنا نعمل تحديث للفورم Me.Form.Requery

سامحني بس مش عارف حاسس انى مش فاهمك 🤪 انت عاوز يعنى اذا تحق الشرط باختيار القيم والفوج يقوم تلقائيا بتفعيل الزر ولا يقوم بتنفيذ التعليمات البرمجيه التى بالزر ولا ايه قول بسرعه 🤣

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

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

ايوه يا معلم الابداع والتشويق اهو

يعمل جيدا سلمت يداك ومنتظرين الجديد بشوق

لم انتبه لهذا التحديث شغال 100% ما شاء الله يجعله ربنا فى ميزان حسناتك

اللهم امين يا رب العالمين لكن استاذى الكريم @ابو جودي حصل خطأ معي 😁

ما شاء الله ابداع هدياك دائما رائعه

استخدم دالة Sum(*) اما لو تريد الجمع بالنطاق وحسب شروط استخدم دالة Dsum وهتلاقى شرح كثير لها هنا طبعا انا رديت كده لاني ما فهمت المطلوب بالظبط 🙄