تصفية البيانات ولكن بعض السجلات لا تظهر

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

السلام عليكم ورحمة الله و بركاته

 

عند تصفية البيانات ...,  الخلايا الفارغة ( سجلاتها ) لا تظهر 

جزاكم الله خيراً على المساعدة

 

 

Test2000.rar

[jjafferr]

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

 

اقرأ الرابط التالي ، وخصوصا الجملة باللون الاحمر:

واللي يهمك هو كود Room_No 

 

جعفر

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

عفوا ما لاحظت المطلوب

 

اليك المطلوب الآن:

تغيير اسم الحقل الى اسم مفهوم

.

إضافة الحقل الآخر للمعيار

.

حدث النقر على رقم الغرف اصبح:

Private Sub Rooms_Click()
    
    Select Case Rooms.Value
        Case 1
            Room_Number = 1: Room_Check = -1
        Case 2
            Room_Number = 2: Room_Check = -1
        Case 3
            Room_Number = 3: Room_Check = -1
        Case 4
            Room_Number = 4: Room_Check = -1
        Case 5
            Room_Number = "": Room_Check = ""
    End Select
    Me.sfrm_Room_No_Available.Requery

.

ومصدر بيانات النموذج الفرعي اصبح:

 

.

واكتب لك سطري المعيار ، مع الشرح وذلك لأهميته:

check:
IIf([Forms]![frm_Rooms_Available]![Room_Check]<>-1,[Check],[Forms]![frm_Rooms_Available]![Room_Check])

اذا مافي علامة صح على الحقل
[Forms]![frm_Rooms_Available]![Room_Check]
(يعني الحقل لا يساوي -1)

اذن اعطنا جميع سجلات الحقل
[check]

وإلا ، فاستخدم قيمة الحقل الموجودة في النموذج
[Forms]![frm_Rooms_Available]![Room_Check]

------------------------------------------

Room_No:
IIf(Len([Forms]![frm_Rooms_Available]![Room_Number] & "")=0,[Room_No],[Forms]![frm_Rooms_Available]![Room_Number])


اذا مافي بيانات في الحقل
Len([Forms]![frm_Rooms_Available]![Room_Number] & "")=

اذن اعطنا جميع سجلات الحقل
[Room_No]

وإلا ، فاستخدم قيمة الحقل الموجودة في النموذج
[Forms]![frm_Rooms_Available]![Room_Number]

.

وللأسف الشديد ، فأنا ارى الكثير من المبرمجين لا يلتفتون لهذه الاسطر ، ويستخدمون Like بدلا عنها

 

جعفر

621.Test.accdb.zip

طب ممكن لو سمحت الملف المرفق يتم تحويله الى اكسيس 2003 علشان اقدر استوعب

و استسمحك و استأذنك أنا عارف انى حصرتك عاوز تفهمهالى 
بس أنا سيصعب على فهما هكذا 
فبرجاء تطبيقها على النموذج الاعلى 

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

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

لم أستطع التوصل لشىء

[jjafferr]

الرابط السابق لا يعطي النتائج اذا الحقل يساوي NULL ،

لذلك عملت التغيير على استعلام برنامجك ،

حتى تحتوي النتائج على جميع الحقول ، التي بها قيم او التي لا تحتوي على قيم او التي هي عبارة عن Null :

 

هذا المثال للحقل School

بدل

School:
Like "*" & [Forms]![Datamasterform]![School]

استعمل

School1: Nz([School],"")
IIf(Len([Forms]![Datamasterform]![School] & "")=0,Nz([School],""),[Forms]![Datamasterform]![School])

 

 

جعفر

 

 

660.Test2000.mdb.zip

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

Just now, jjafferr said:

الرابط السابق لا يعطي النتائج اذا الحقل يساوي NULL ،

لذلك عملت التغيير على استعلام برنامجك ،

حتى تحتوي النتائج على جميع الحقول ، التي بها قيم او التي لا تحتوي على قيم او التي هي عبارة عن Null :

 

هذا المثال للحقل School

بدل

School:
Like "*" & [Forms]![Datamasterform]![School]

استعمل

School1: Nz([School],"")
IIf(Len([Forms]![Datamasterform]![School] & "")=0,Nz([School],""),[Forms]![Datamasterform]![School])

 

 

جعفر

 

 

660.Test2000.mdb.zip

جزاك الله لم أكن أعرف عمله بدون هذا المثال 

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

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

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

8 minutes ago, محمد احمد لطفى said:

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

تم اضافة الحقول الاصلية 
و استبدالها فى النموذج فقبلت التعديل

[jjafferr]

6 ساعات مضت, محمد احمد لطفى said:

تم اضافة الحقول الاصلية 
و استبدالها فى النموذج فقبلت التعديل

رجاء توضيح هذه النقطة

 

جعفر

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

Just now, jjafferr said:

رجاء توضيح هذه النقطة

 

جعفر

أولا أضفت الحقول الاصلية فى الاستعلام 
و تم استبدالها بدل الحقول الاخرى فى النموذج 
مثلا 
بدل 
school1 
تم وضع الاصل 

school

تم تعديل يونيو 27, 2017 بواسطه محمد احمد لطفى

[jjafferr]

شكرا جزيلا

 

جعفر