تصفية البيانات بالصواب و الخطأ

[محمد احمد لطفى]

تصفية البيانات بالصواب و الخطأ
يحتوى زرار رقم 1 على 

Me.on_or_of = False
Me.TestF.Form.Requery
Me.Refresh

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

ثانيل يحتوى مربع رقم 2 على 
صواب وعند اختياره لا يعمل 
خطأ عند اختياره لا يعمل 
وكذلك كلا من 
True or false 
لا يعملون 
أما عند اختيار 
0 or -1 
مربع رقم 2 يقوم بتصفية البيانات 

فهل يمكن تشغيل مربع رقم 2 عند تحديثه الى 
true or false 
يصفى البيانات على اختيارهما وجزاكم الله خيرا

660.Test2006.rar

[jjafferr]

وعليكم السلام

 

هاي سهله

ضبط الحقل هكذا:

 

وانسخ القيمة (القيمة في الصورة مقلوبة بسبب الكتابة بالعربي):

صواب;True;-1;خطأ;False;0

 

جعفر

[Shivan Rekany]

منذ ساعه, محمد احمد لطفى said:

تصفية البيانات بالصواب و الخطأ

اتفضل استخدمت كومبوبوكس مع مربع نصي

واستخدمت هذا الكود

Private Sub Combo16_AfterUpdate()
    If Me.Combo16 = "صواب" Or Me.Combo16 = "true" Or Me.Combo16 = "-1" Then
            Me.on_or_of = -1
        ElseIf Me.Combo16 = "خطا" Or Me.Combo16 = "false" Or Me.Combo16 = "0" Then
            Me.on_or_of = 0
        Else
            Me.on_or_of = ""
    End If
    Me.TestF.Form.Requery
    Me.Refresh
End Sub

 

660.Test2006.rar

تم تعديل يونيو 29, 2017 بواسطه Shivan Rekany

[jjafferr]

أخي شفان

 

اذا تشوف طريقتي ، فانا عملت التالي:

1. جعلت 3 اختيارات لكل سطر ، فاصبحت الاختيارات سطرين:

السطر الاول: صواب ثم True ثم -1 

السطر الثاني: خطأ ثم False ثم 0

 

2. جعلت الحقل يأخذ قيمته من القيمة الاخيرة -1 او 0 (العمود رقم 3) ، وبهذه الطريقة تفاديت عمل اي تغيير في الكود

 

جعفر

[Shivan Rekany]

2 دقائق مضت, jjafferr said:

أخي شفان

 

اذا تشوف طريقتي ، فانا عملت التالي:

1. جعلت 3 اختيارات لكل سطر ، فاصبحت الاختيارات سطرين:

السطر الاول: صواب ثم True ثم -1 

السطر الثاني: خطأ ثم False ثم 0

 

2. جعلت الحقل يأخذ قيمته من القيمة الاخيرة -1 او 0 (العمود رقم 3) ، وبهذه الطريقة تفاديت عمل اي تغيير في الكود

 

جعفر

نعم طريقتك ممتاز
لكن انا ما عملت ريفريش للصفحة قبل ان اشارك الموضوع
وبعد انا عملت المشاركة رأيت مشاركتك 

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

 

لكن ما اقدرت ان ااوصل ما اريد لاساتذنا 
ياريت بيرجه ذلك المنبه من جديد

[jjafferr]

المنبه لايزال موجودا ، ويعتمد على نوع المتصفح الذي تستعمله ،

انا استخدم Chrome وشغال التنبيه تمام

 

جعفر

[محمد احمد لطفى]

Just now, Shivan Rekany said:

اتفضل استخدمت كومبوبوكس مع مربع نصي

واستخدمت هذا الكود

Private Sub Combo16_AfterUpdate()
    If Me.Combo16 = "صواب" Or Me.Combo16 = "true" Or Me.Combo16 = "-1" Then
            Me.on_or_of = -1
        ElseIf Me.Combo16 = "خطا" Or Me.Combo16 = "false" Or Me.Combo16 = "0" Then
            Me.on_or_of = 0
        Else
            Me.on_or_of = ""
    End If
    Me.TestF.Form.Requery
    Me.Refresh
End Sub

 

660.Test2006.rar

جزاك الله خير استاذى 

Shivan Rekany

• 
  
• ولكن طريقة استاذ جعفر تفادى عمل كمبوبوكس أخر و لكن حاولت تنفيذها و لم استطع
  استأذن الاستاذ جعفر تطبيقها فى النموذج فقط 
  True Or False
  
  وجزاكم الله خيرا

 

[jjafferr]

تفضل المرفق بعد التعديل

 

 

660.1.Test2006.mdb.zip

[محمد احمد لطفى]

استاذى جعفر كيف اظهر عمود واحد فقط 
true 

false

جزاكم الله خيرا

[jjafferr]

غيّر في الاعدادات (لاحظ اول صورة ارفقتها):

من
.5;.5;.3


الى
0;.5;0

 

جعفر

[محمد احمد لطفى]

مش موجودة عندى

[jjafferr]

المشكلة اني لا اعرف اسم الاعدادات بالعربي

غير عرض الاعمدة الى 0 ; 1.27 ; 0

 

جعفر

[Shivan Rekany]

2 دقائق مضت, محمد احمد لطفى said:

مش موجودة عندى

استاذن من استاذنا جعفر

[محمد احمد لطفى]

اسف فعلت هذا لم يظهر 
true 
false 
ظهر 
-1

0

 

[jjafferr]

خلاص ولا يهمك

0 ; 0 ; 1.27

 

او اذا اردت

1.27 ;0 ; 0

[Shivan Rekany]

6 دقائق مضت, محمد احمد لطفى said:

اسف فعلت هذا لم يظهر 
true 
false 
ظهر 
-1

0

 

اليك سمك

660.1.Test2006.mdb.zip

[محمد احمد لطفى]

أسف كنت عاوز حد يخبطنى بأى حاجة حالا 
0سم;1.27سم;0سم
جزاكم الله خير 
و اسف مرة تانية

[محمد احمد لطفى]

54 minutes ago, Shivan Rekany said:

اتفضل استخدمت كومبوبوكس مع مربع نصي

واستخدمت هذا الكود

Private Sub Combo16_AfterUpdate()
    If Me.Combo16 = "صواب" Or Me.Combo16 = "true" Or Me.Combo16 = "-1" Then
            Me.on_or_of = -1
        ElseIf Me.Combo16 = "خطا" Or Me.Combo16 = "false" Or Me.Combo16 = "0" Then
            Me.on_or_of = 0
        Else
            Me.on_or_of = ""
    End If
    Me.TestF.Form.Requery
    Me.Refresh
End Sub

 

660.Test2006.rar

 

6 minutes ago, jjafferr said:

تفضل المرفق بعد التعديل

 

 

660.1.Test2006.mdb.zip

 

Just now, Shivan Rekany said:

اليك سمك

660.1.Test2006.mdb.zip