ابو جودي

اعتقد والله اعلم هو كذلك سيكون الاكسس مجرد واجهة رسومية ليس الا وسف يكون الـ Sql هو قاعدة البيانات

ممكن مرفق

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

قاعدة البيانات تم تحويلها الى accde .. ما راح تلاقى مساعدة قاعدة البيانات مغلقة وتم حجب الاكواد

وان اردتها بطريقة صريحة بدون استخدام المعيار تكون كالتالى 'نستخدم ذلك مع النصوص 'لو حقل الـ "username" 'فى الجدول من النوع نص استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username]='" & Me.[txtname] & "'") 'نستخدم ذلك مع الارقام 'لو حقل الـ "username" 'فى الجدول من النوع رقم استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username]=" & Me.[txtname]) 'نستخدم ذلك مع الوقت والتاريخ 'لو حقل الـ "username" 'فى الجدول من النوع تاريخ استخدم الكود بالشكل الاتى y = DLookup([userpasword], "users", "[username] =#" & Me.[txtname] & "#")

انا اقل طويلب علم واليكم الشرح داخل الكود الذى يخص مشاركتكم 'Y = DLookup("[userpasword]", "users", "[username] = [txtname]") نستخدم ذلك مع الارقام' Dim stLinkCriteria As Integer stLinkCriteria = "[username]=" & Me.txtname نستخدم ذلك مع النصوص' Dim stLinkCriteria As String stLinkCriteria = "[username] ='" & Me.txtname & "'" نستخدم ذلك مع التواريخ' Dim stLinkCriteria As Date stLinkCriteria ="[username] =#" & Me.txtname & "#" y = DCount([userpasword], "[users]", stLinkCriteria)

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

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

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

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

ومساهمة منى مع اخوانى الكرام فى الكود المرفق الاشكال الثلاث للشروط لصيغة Dlookup , DCount Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[DateOfBirth] =#" & Format([txtDateOfBirth], "dd/mm/yyyy") & "#" myWhere = myWhere & " And" myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) وهذا تفصيلها نستخدم ذلك مع الارقام' stLinkCriteria = "[PersonalNumber]=" & Me.PersonalNumber نستخدم ذلك مع النصوص' stLinkCriteria = "[PersonalName] ='" & [txtLastName] & "'" نستخدم ذلك مع التواريخ' stLinkCriteria ="[DateOfBirth] =#" & [txtDateOfBirth] & "#"

اتفضل التعديل تم على كود الالحاق وخليك فاكر ان عنوان الموضوع اصلا >>------> ظهور رقم السجل وتاريخ الميلاد عند اختيار اسم الطالب يعنى المشكلة الان لا علاقة لها لا بالسؤال ولا بعنوان الموضوع 😡 وطبيعى انا لا اجرب المرفق كاملا لاتتبع الاخطاء بعد التحليل انا جاوبت ووضعت الرد على اساس السؤال من العنوان من الاولى بك ومستقبلا رجاء 🙏 فتح عنوان جديد للسؤال الجديد وعلى كل حتى لا ارد سائل اليكم الحل بالمرفق ... المشكلة كانت بكود الالحاق Asem11.accdb

مكمن نعمل فلتر حسب مربع سرد المهارات من النموذج الرئيسي اعتذر لو لم استطع فهم المطلوب برنامج التخاطب والمهارات 8.zip

تم بحمد الله التغلب على مشكلة اكصر كم اشارة مرجعية لنغس التراك فى انتظار رأيكم بالعد التجربة خاصة انا الان لا ادرى هل المرفق يعمل مع احبائى ام لا التحديث الجديد OfficenaAudioPlayer (4).mdb

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

انااسف جدا ان شاء الله المشكلة انحلت OfficenaAudioPlayer (3).mdb

🙏

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

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

يا استاذ @nssj رجاء لو تكرمت تغير افضل اجابة باجابة استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لان طريقته لا تدع اى مجال لاجهاض العملية مهما كانت الظروف

هنيئا لك .. و بالتوفيق ان شاء الله

ممكن المرفق

وانا هذا اصدار الاوفيس عندى ولم اقم بأى تعديلات الا التى تمت على الكود فقط

انا راح اصور لك الشاشة الحين اتفضل شوف بنفسك

ماشاء الله