مطلوب فلتره من جدول بناء على ثلاث حقول

[safaa salem5]

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

 

[ازهر عبد العزيز]

• اختي العزيزة اعملي الجدول وادخلي البيانات   لكي يساعدك بقية الاعضاء في طلبك

تم تعديل الإثنين at 16:04 بواسطه ازهر عبد العزيز

[safaa salem5]

On 9/16/2024 at 7:04 PM, ازهر عبد العزيز said:

• اختي العزيزة اعملي الجدول وادخلي البيانات   لكي يساعدك بقية الاعضاء في طلبك

 فى ناس فاهمه وهتجاوبنى دلوقتي 

[hanan_ms]

 صفاء تقصدين اقصد احاول المساعده 😇

استاذي @ابو جودي ❤️🌹🌹

بتأكيد جواب ثاني 

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

[أبو إبراهيم الغامدي]

يمكنكِ استخدام المعامل "Like"  بدلا من المعامل "="  بهذه الطريقة

Me.RecordSource ="Select * From TblLabData Where Ege Like '*" & Me.TxtSearch & "*'"

وهذا مثال بالبيانات أعلاه

Search By Characters.accdb

[hanan_ms]

بعد اذن استاذ @أبو إبراهيم الغامدي 🌹

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

[hanan_ms]

استاذ ودكتور @أبو إبراهيم الغامدي ❤️🌹

هل صحيح احدد حد لعرض السجلات من 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 

مع الامكانيات وصنع وطلب الاكواد من المواقع بسهول 

اصبح اكثر خطور وتعامل مع هذه الاداة اشبه بالمحظور

لقدرة التحكم ! 

 

هل يمكن نصنع اداة لجلب بيانات الموقع

حفر الموقع عند حدث الدخول = رجوع وجلب مكون والكود مع الاستنباط الرابط التحديث

 

حاسة ان الرد بوقت المناسابات 😂

تم تعديل منذ 7 ساعات بواسطه hanan_ms

[أبو إبراهيم الغامدي]

أهلا حنان..

4 ساعات مضت, hanan_ms said:

هل صحيح احدد حد لعرض السجلات من 1 الى 6000

لا، لا يلزمكِ هذا، لأننا نضع الشروط في جملة <Where> قبل أن تظهر البيانات على النموذج..

أما عن شريط التمرير الرأسي [المعيب] الذي يظهر في وضعية النموذج المستمر <Continuous Forms> فيمكن معالجة الأمر بطريقتين

-- إما باستخدام النموذج الفرعي، وهذا مألوف ومعروف عند الجميع..

-- وإما باستخدام النموذج في وضعية النموذج المنقسم <Split Form>، وهذا الثاني في نظري أجمل!

 

؟ هل يؤثر الاستعلام الحرفي في سرعة الاستجابة..

جربت البحث الحرفي على ملف نصي بصيغة <CSV> به [200،000] سجل (موصل Linked) عن طريق الاستعلام  ولم أر تأخراً ملحوظاً في الاستجابة..

 

التعديل التالي به تطبيق للمفاهيم سابقة الذكر..

  Search By Characters.zip

[أبو إبراهيم الغامدي]

أهلا حنان..

4 ساعات مضت, hanan_ms said:

حاسة ان الرد بوقت المناسابات 😂

☺️ لا أكتمكِ سراً.. بعد أن ضمّنت ميكروسوفت أكسس بعنصر التحكم <Edge Browser Control> أنفقت وقتاً كبيراً في استكشافه! ولم أخرج من ذلك بشيء يمكن أن يكون صالحاً للنشر!

لكن إذا كان هناك سؤال في جزئيةٍ محددة، سوف أجيبكِ على قدر ما وصلت إليه إن شاء الله، ولكن في مشاركةٍ مستقلة!