safaa salem5 قام بنشر الإثنين at 14:41 مشاركة قام بنشر الإثنين at 14:41 CBC_Normals_tbl Age HGB_R HGB_L 0 - 2 Days 14 - 22 14 3 - 6 Days 15 - 21 15 7 - 13 Days 13.5 - 21.5 13.5 14 - 29 Days 12.5 - 20.5 12.5 0 - 1 Mon 11.5 - 16.5 11.5 2 - 3 Mon 9.4 - 13 9.4 4 - 6 Mon 11.1 - 14.1 11.1 7 - 11 Mon 11 - 12.9 11 0 - 1 Yrs 11.1 - 14.1 11.1 2 - 6 Yrs 11 - 14 11 7 - 12 Yrs 11.5 - 15.5 11.5 Adult Male 13 - 17 13 Adult Female 12 - 15 12 لو عندي فورم اسمه cbc_frm به ثلاث حقول وهى age مثلا يساوى 5 ,gender مثلا يساوى male ,ageunit مثلا يساوى years عايزاه يعمل فلتره ويجيب قيمة HGB_R وHGB_L الملاحظات كما هو واضح فى الجدول حقل age احيانا يشمل قيمة age معgender واحيانا Adult Maleاو Adult Female رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر الإثنين at 16:04 مشاركة قام بنشر الإثنين at 16:04 (معدل) اختي العزيزة اعملي الجدول وادخلي البيانات لكي يساعدك بقية الاعضاء في طلبك تم تعديل الإثنين at 16:04 بواسطه ازهر عبد العزيز 1 رابط هذا التعليق شارك More sharing options...
safaa salem5 قام بنشر الثلاثاء at 19:11 الكاتب مشاركة قام بنشر الثلاثاء at 19:11 On 9/16/2024 at 7:04 PM, ازهر عبد العزيز said: اختي العزيزة اعملي الجدول وادخلي البيانات لكي يساعدك بقية الاعضاء في طلبك فى ناس فاهمه وهتجاوبنى دلوقتي رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر الثلاثاء at 21:52 مشاركة قام بنشر الثلاثاء at 21:52 صفاء تقصدين اقصد احاول المساعده 😇 استاذي @ابو جودي ❤️🌹🌹 بتأكيد جواب ثاني Function = ((),()) =================================== انا احاول dim NBX as string NBX = len(me.this_number) if left(me.text, NBX) = 5 then ' give And this why for save no give me Null = Error = ( Qury Nurmal cod iif(isnull([text1]) or [text1] ="" ,"",[text1]) .......... me.text1 = set_text_S1(me.text) me.text2 = set_text_S2(me.text) me.text3 = set_text_S3(me.text) compilt with me.text . . end with or docmd.gotorecord ' docmd.openform "", SQL,,,, me.filter =true end if Public Function set_text_S1(ByVal strname As String) As String set_text_S1 = left(strname, InStrRev(strname, "-")) End Function Public Function set_text_S2(ByVal strname As String) As String set_text_S2 = left(strname, InStrRev(strname, " ")) End Function Public Function set_text_S3(ByVal strname As String) As String set_text_S3 = mID(strname, Len(strname) + InStrRev(strname, " ")) End Function رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر الأربعاء at 08:36 مشاركة قام بنشر الأربعاء at 08:36 يمكنكِ استخدام المعامل "Like" بدلا من المعامل "=" بهذه الطريقة Me.RecordSource ="Select * From TblLabData Where Ege Like '*" & Me.TxtSearch & "*'" وهذا مثال بالبيانات أعلاه Search By Characters.accdb 1 رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر الأربعاء at 18:55 مشاركة قام بنشر الأربعاء at 18:55 بعد اذن استاذ @أبو إبراهيم الغامدي 🌹 On 9/16/2024 at 5:41 PM, safaa salem5 said: عايزاه يعمل فلتره ويجيب قيمة HGB_R وHGB_L صفاء اعتقد ان هو بعد طلبك بحث محدد ينقصة معامل </> =========================================(Video + Image + Form) اما البحث العام لا اعلم بضبط حجم مساحة تخزين في الفورم لاستيعاب عدد السجلات المطلوب لان يثقل لدرجة بطيييء والعميل يطر هو للاغلاق نفترض عد الاسجلات Dcount من 1 الى 6000 ومن 6000 الى 12000 سيكون الوسيط شريط التحريك Scrollbar حجز الاستعلامات او الجدول وعرض مجموعة المسموحة للتخزين اشلون اسويها مع الكود Me.RecordSource ="Select * From TblLabData Where Ege Like '*" & Me.TxtSearch & "*'" وشكرا 😇 Search By Characters.rar رابط هذا التعليق شارك More sharing options...
hanan_ms قام بنشر منذ 4 ساعات مشاركة قام بنشر منذ 4 ساعات (معدل) استاذ ودكتور @أبو إبراهيم الغامدي ❤️🌹 هل صحيح احدد حد لعرض السجلات من 1 الى 6000 بتعديل على كود (( SQL )) dim Sroalbar_X as string dim Sroalbar_Rung as string Sroalbar_X = Me( scrollbar ) * 6000 if Sroalbar_X = 6000 then else Sroalbar_Rung= 6000 - Sroalbar_X end if Sql = "Select * From TblLabData Where Ege Like '*" & Result & "*'" & ID Sroalbar_X < Sroalbar_Rung Me.RecordSource = Sql ========================= ☕ بعد دخول متصفح Edg Ms Access HTML 5/6 مع الامكانيات وصنع وطلب الاكواد من المواقع بسهول اصبح اكثر خطور وتعامل مع هذه الاداة اشبه بالمحظور لقدرة التحكم ! هل يمكن نصنع اداة لجلب بيانات الموقع حفر الموقع عند حدث الدخول = رجوع وجلب مكون والكود مع الاستنباط الرابط التحديث حاسة ان الرد بوقت المناسابات 😂 تم تعديل منذ 4 ساعات بواسطه hanan_ms رابط هذا التعليق شارك More sharing options...
أبو إبراهيم الغامدي قام بنشر منذ 23 دقائق مشاركة قام بنشر منذ 23 دقائق أهلا حنان.. 3 ساعات مضت, hanan_ms said: هل صحيح احدد حد لعرض السجلات من 1 الى 6000 لا، لا يلزمكِ هذا، لأننا نضع الشروط في جملة <Where> قبل أن تظهر البيانات على النموذج.. أما عن شريط التمرير الرأسي المعيب وضعية النموذج المستمر <Continuous Forms> فيمكن معالجة الأمر بطريقتين -- إما باستخدام النموذج الفرعيK وهذا مألوف ومعروف عند الجميع.. -- وإما باستخدام النموذج في وضعية النموذج المنقسم <Split Form>، وهذا الثاني في نظري أجمل! ؟ هل يؤثر الاستعلام الحرفي في سرعة الاستجابة.. جربت البحث الحرفي على ملف نصي بصيغة <CSV> به [200،000] سجل (موصل Linked) عن طريق الاستعلام ولم أر تأخراً ملحوظاً في الاستجابة.. التعديل التالي به تطبيق للمفاهيم سابقة الذكر.. Search By Characters.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان