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

[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