كيفيه استخدام داله Like داخل الكود

[UserUser2]

كيفيه استخدام داله Like  داخل الكود  
محتاج بعد التحديث لحقل Text16 لو يحتوى على اى مقطع من الكلمات الموجوده داخل الكود ينفذ الامر مثل Less او THEN  بدل الكلمه كامله 
مرفق مثال ABO.mdb

تم تعديل يوليو 12, 2023 بواسطه UserUser2

[Barna]

جرب هذا ...............

If [Text16].Text Like "*Over*" Or [Text16].Text Like "*>*" Or [Text16].Text Like "*Positive*" Then
[Text18] = "HIGH"

ElseIf [Text16].Text Like "*LESS THAN*" Or [Text16].Text Like "*<*" Or [Text16].Text Like "*Negative*" Then
[Text18] = "LOW"
End If

 

[UserUser2]

4 دقائق مضت, Barna said:

جرب هذا ...............

If [Text16].Text Like "*Over*" Or [Text16].Text Like "*>*" Or [Text16].Text Like "*Positive*" Then
[Text18] = "HIGH"

ElseIf [Text16].Text Like "*LESS THAN*" Or [Text16].Text Like "*<*" Or [Text16].Text Like "*Negative*" Then
[Text18] = "LOW"
End If

اشكرك لرد 
ليست المشكله في IF 
المطلوب ازاى نستعمل داله Like  داخل الكود 
تمت التجربه والمشكله كما هي 

تم تعديل يوليو 12, 2023 بواسطه UserUser2

[Barna]

منذ ساعه, UserUser2 said:

اشكرك لرد 
ليست المشكله في IF 
المطلوب ازاى نستعمل داله Like  داخل الكود 
تمت التجربه والمشكله كما هي 

 

تم تعديل يوليو 12, 2023 بواسطه Barna

[UserUser2]

UP
@ابو جودي استاذ 
@jjafferr استاذ 
@ابوخليل استاذ 

 

تم تعديل يوليو 13, 2023 بواسطه UserUser2

[jjafferr]

السلام عليكم 🙂

 

اعطنا بعض الامثلة لكلمات نُدخلها في Text16 وماذا تريد ان ترى في Text18

[UserUser2]

3 ساعات مضت, jjafferr said:

السلام عليكم 🙂

 

اعطنا بعض الامثلة لكلمات نُدخلها في Text16 وماذا تريد ان ترى في Text18

وعليكم السلام 
شكرا لردك 
المستخدم مش هيكتب الكلمه بالظبط مثلا هو كتب Positi بدل ما يكتب Positive او less  بدل less than 
اللى محتاجه لو الكلمه تحتوى على اي مقطع من الحروف المكتوبه ينفذ الامر 
 

[jjafferr]

العفو اخي الكريم ، رجاء اعطنا تفاصيل وامثلة اكثر ، علشان نفهم الموضوع كاملا ، ولا تنسى ان مرفقك مافيه بيانات علشان ممكن نفهم منها !!

وشو قصدك في:

اقتباس

اللى محتاجه لو الكلمه تحتوى على

1. اي مقطع من الحروف المكتوبه

2. ينفذ الامر

 

ساعدنا بامثلة وبيانات علشان نساعدك في الحل

[UserUser2]

منذ ساعه, jjafferr said:

العفو اخي الكريم ، رجاء اعطنا تفاصيل وامثلة اكثر ، علشان نفهم الموضوع كاملا ، ولا تنسى ان مرفقك مافيه بيانات علشان ممكن نفهم منها !!

وشو قصدك في:

 

ساعدنا بامثلة وبيانات علشان نساعدك في الحل

هل ممكن استخدام داله like داخل الكود هذا هو المطلوب 

 

[jjafferr]

عملت لك فيديو يعطيك الطريقة :

.

وهذا هو الكود :

(([tbl_Months].[Months_Georgian] Like "*يو*")) AND ([tbl_Months].[Months_Hijri] Like "*جمادي*")

.

 

كما ان مساعد اكسس اعطانا هذه الامثلة:

This example uses the Like operator to compare a string to a pattern.

Dim MyCheck
MyCheck = "aBBBa" Like "a*a"    ' Returns True.
MyCheck = "F" Like "[A-Z]"    ' Returns True.
MyCheck = "F" Like "[!A-Z]"    ' Returns False.
MyCheck = "a2a" Like "a#a"    ' Returns True.
MyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' Returns True.
MyCheck = "BAT123khg" Like "B?T*"    ' Returns True.
MyCheck = "CAT123khg" Like "B?T*"    ' Returns False.
 

 

1586.ABO.mdb.zip

[UserUser2]

في 13‏/7‏/2023 at 16:21, jjafferr said:

عملت لك فيديو يعطيك الطريقة :

.

وهذا هو الكود :

(([tbl_Months].[Months_Georgian] Like "*يو*")) AND ([tbl_Months].[Months_Hijri] Like "*جمادي*")

.

 

كما ان مساعد اكسس اعطانا هذه الامثلة:

This example uses the Like operator to compare a string to a pattern.

Dim MyCheck
MyCheck = "aBBBa" Like "a*a"    ' Returns True.
MyCheck = "F" Like "[A-Z]"    ' Returns True.
MyCheck = "F" Like "[!A-Z]"    ' Returns False.
MyCheck = "a2a" Like "a#a"    ' Returns True.
MyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' Returns True.
MyCheck = "BAT123khg" Like "B?T*"    ' Returns True.
MyCheck = "CAT123khg" Like "B?T*"    ' Returns False.
 

 

1586.ABO.mdb.zip 48.4 kB · 5 downloads

اشكرك على تعبك 
من فضلك ممكن تطبقه على الكود المرفق فى الملف 

 

If [Text16].Text Like "*Over*" Or [Text16].Text Like "*>*" Or [Text16].Text Like "*Positive*" Then
[Text18] = "HIGH"
End If
If [Text16].Text Like "*LESS THAN*" Or [Text16].Text Like "*<*" Or [Text16].Text Like "*Negative*" Then
[Text18] = "LOW"
End If

[jjafferr]

الظاهر انك تريد تعمل شيء مثل القاموس ،

بمعنى اذا المستخدم كتب اي جزء من الكلمة ، فيجب جلب الكلمة الكاملة لها ، مثلا نستخدم كلمة positive :

اذا المستخدم كتب اي من الكلمات التالية ، فيجب ان نظهر كلمة positive :

positiv

positi

posit

posi

pos

po

 

اذا كان تخميني صحيح ، فعندك 3 طرق لعمل هذا:

1. تعمل جدول فيه حقلين: حقل مختصر الكلمة ، وحقل الكلمة كاملة ، وانا اوصي بهذه الطريقة ، لأنك لا يجب ان تتدخل برمجيا كلما زادت الكلمات ، وانما تعمل نموذج وتجعل المستخدم يدخل الكلمات ،

وتقوم بإدخال جميع الاحتمالات المختصرة ، ومقابلها تكتب الكلمة الكاملة ، مثل الصورة التالية ، ثم تستخدم امر مثل DLoopUp لجلب الكلمة الكاملة :

.

2. تعمل نفس الشيء اعلاه ، ولكن في الكود ، هكذا :

    If Me.Text16 Like "*positive*" Or _
       Me.Text16 Like "*positiv*" Or _
       Me.Text16 Like "*Positi*" Or _
       Me.Text16 Like "*posit*" Or _
       Me.Text16 Like "*posi*" Or _
       Me.Text16 Like "*Pos*" Then
    
           Me.Text18 = "HIGH"
    
    ElseIf Me.Text16 Like "*LESS THAN*" Or _
           Me.Text16 Like "*LESS THA*" Or _
           Me.Text16 Like "*LESS TH*" Or _
           Me.Text16 Like "*LESS T*" Or _
           Me.Text16 Like "*LESS*" Or _
           Me.Text16 Like "*LES*" Then
        
           Me.Text18 = "LOW"
    
    End If

.

3. يجب ان تكون لغة الكيبورد هي العربية ، وتعمل نفس الشيء اعلاه ،  ولكن من خلال اعدادات برنامجك :

[UserUser2]

22 ساعات مضت, jjafferr said:

بمعنى اذا المستخدم كتب اي جزء من الكلمة ، فيجب جلب الكلمة الكاملة لها ، مثلا نستخدم كلمة positive :

 

لا كل المطلوب انه يكتب فى ال Text18 كلمه High بشكل تلقائى لو احتوى على اي جزء من الكلمه 

تم تعديل يوليو 16, 2023 بواسطه UserUser2

[jjafferr]

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

 

 

رجاء من الاعضاء يتفضل اللي يقدر يساعد.