ابو جودي

استخدم الكود الاتى Private Sub List100_DblClick(Cancel As Integer) DoCmd.GoToRecord , , acGoTo, List100.Column(4) End Sub

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

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

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

طيب قبل الاجابة هل ممكن وجود اكثر من قيم فى نفس السطر يعنى ممكن a , b .... ام فقط قيمة واحدة a فقط لا غير فى السطر الواحد وكال حال باقى الاسطر هل قد تحتوى على قيك مختلفة مثلا z فقط لا غير ام ............. التساؤلات كثيرة ومن يجيبك قد يرد يتسرع وتعود متسائلا مرة اخرى ان الاجابة لم تشمل كل البيانات فياحبذا لو ترفق قاعدة مبسطة تحتوى على جدول واحد فقط به كل صور البيانات التى يمكن ان يحويها مستقبلا بكل الطرق بعد ذلك نتشاور ونفكر سويا وبأمر الله تعالى تجد مبتغاك

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

انا مش قادر افهم المطلوب بصراحة وتوهت حبتين فى المرفق رجاء استاذى الفاضل حاول وضع مثال مصغر بالسؤال على اقل تقدير بحيث لا يحتوى على اى عناصر الا التى تخص السؤال ففهم السؤال هو شطر الجواب ولانى مش فاهم جرب وشوف هو ده طلبك واللا لاء وان كان لا رجاء تسهيلا على من يريد مد يد العون اليكم استاذى حاول رسم التصور من خلال المرفق المبسط الاتى بالارقام وتحديد موضع النتائج بالارقام كذلك معلش فهمى على اد حالى وللعلم تمت الاجابة حسب فهمى مرتبطا بعنوان المشاركة .... Test Sum On PageHeader.mdb

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

اتفضل If StrComp(name1, name2) = 0 Then MsgBox ("النصوص متماثلة") Else MsgBox ("النصوص مختلفة") End If

ممكن مرفق لو تكرمت

للاسف هذا فقط ما استطعت استراجاعة استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل ممكن اسم البرنامج المستخدم من قبلكم APE (AccessFIX).accdb

اثراء للموضوع تلك فكرتى المتواضعة موديول يحتوى على الاكواد الاتية ليتم اسناد اسم المستخدم الحالى الى متغير عام وجلبه بسهولة من خلال روتين عام فى اى نموذج دون الابقاء على نموذج الدخول مفتوح بصفة مستمرة والذى قد يجبرك مستقبلا لاخفاء النموذج Global strCUser As String Public Function CUser() CUser = strCUser End Function يتم استدعاء اسم المستخدم من خلال احدى الطريقتين اولا وضع الكود الاتى مصدرا لعنصر التحكم ( textbox) =CUser() او وضع كود على النموذج عند القتح txtCurrentUser = CUser sample_ 02.accdb

وهذا ملف التطبيق OpenImage.zip

اتفضل قم بإنشاء موديول جديد وضع بع الكود الاتى Function OpenImage(ImagePath As String) Dim officena As Long officena = Shell("mspaint " & Chr$(34) & ImagePath & Chr$(34), vbMaximizedFocus) End Function ويمكنك استدعاء الكود حسب رغبتك من خلال الكود الاتى OpenImage "D:\My Phone\DCIM\Camera\officena.jpg" طبعا مع تغير مسار الصورة D:\My Phone\DCIM\Camera\officena.jpg كما تريد حسب موقعها

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

👆 وانا كذلك من رأى استاذى الجليل @kanory ال #C كذلك Visual Studio.NET قد تكون قريبة نوعا ما من اسلوب كتابة الاكواد داخل محرر أكواد الاكسس

اهلا بيك .. لا شكر على واجب

Database1 (1) (2).accdb

اتفضل Database1 (1).accdb

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

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

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

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

فكرة بره الصندوق على اعتبار ان مصدر البيانات ثابت من 1 الى 35 Test.accdb

وعليكم السلام ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل .. حياكم الله وبياكم اولا وقبل كل شئ اشتاقت لكم نفسى كثيرا ... اسال الله تعالى لكم الصحة والعافية والبركة فى العمر والعلم والعمل والاهل والولد وكل اساتذتى الكرام واخواننا مشاركة مع اساتذتى الأفاضل هذا تطبيقى المتواضع بناء على توجيهاتكم ولكن بما ان اخى الكريم الاستاذ @alzahrani2014 يريد عمل فزر وتصفية فى نموذج تلك فكرتى المتواضعة وحاولت جاهدا امعان النظر والتفكير خارج الصندوق وفى انتظار رأيكم وتوجيهاتكم المرفق يضم بين طياته - نموذج واحد لإجراء الفرز والتصفية على كل البيانات سواء كان السجل سرى أو غير سرى -عند فتح النموذج يتم الفرز والتصفية فقط على السجلات الغير سرية -عند تحديث مربع السرد الخاص بالفرز فى حالة كانت البيانات سرية يتم اخفائها على الفور وتظهر البيانات فقط بكتابة كلمة المرور الصحيحة (123) والا لا ولن يتم عرض البيانت >>---> حيلة وخدعة -التغلب على التنقل بين الحقول بالضغط على زر TAP من لوحة المفاتيح حتى لا يتم استعراض البيانات السرية >>---> حيلة وخدعة -فى حالة الغاء الفرز والتصفية سواء كان السجل الحالى سرى او حتى بعد ادخال كلمة مرور خطأ او حتى كان السجل الحالى لا يحتوى بيانات سرية يتم اليا اجراء تطبيق الفرز على السجلات الغير سرية - طبعا تم التعديل على بنية الحقل sec فى الجدول بتحويله الى حقل رقمى وتم التعديل علية بحيث يتم تحويله الى Combo Box بحيث يكون نوع مصدر بيانات الحقل Value List وقيم الحقل الافتراضية تتكون من -1;"سرى";0;"غير سرى" -تم اضاقة موديول لاخفاء كلمة المرور اثناء الكتابة لتظهر على شكل ***** اترككم مع المرفق b2- Moh3sam.mdb