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

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

تصفية البيانات بالصواب و الخطأ
يحتوى زرار رقم 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]

  في 29‏/6‏/2017 at 18:02, محمد احمد لطفى said:

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

Expand  

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

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

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]

  في 29‏/6‏/2017 at 19:42, jjafferr said:

أخي شفان

 

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

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

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

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

 

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

 

جعفر

Expand  

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

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

 

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

[jjafferr]

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

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

 

جعفر

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

  في 29‏/6‏/2017 at 19:29, 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 135.94 kB · 63 downloads

Expand  

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

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]

  في 29‏/6‏/2017 at 20:52, محمد احمد لطفى said:

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

Expand  

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

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

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

0

 

[jjafferr]

خلاص ولا يهمك

0 ; 0 ; 1.27

 

او اذا اردت

1.27 ;0 ; 0

[Shivan Rekany]

  في 29‏/6‏/2017 at 20:56, محمد احمد لطفى said:

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

0

 

Expand  

اليك سمك

660.1.Test2006.mdb.zip

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

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

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

  في 29‏/6‏/2017 at 19:29, 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.rarFetching info...

Expand  

 

  في 29‏/6‏/2017 at 20:17, jjafferr said:

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

 

 

660.1.Test2006.mdb.zipFetching info...

Expand  

 

  في 29‏/6‏/2017 at 21:03, Shivan Rekany said:

اليك سمك

660.1.Test2006.mdb.zipFetching info...

Expand