كود معرفة عدد المراتب التي تزيد او تقل عن حد معين

[النهر العطشان]

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

يرجى المساعدة بأنشاء كود لمعرفة عدد المراتب في حقل ارقام  التي تزيد او تقل عن عدد معين 

فمثلا هنالك جدول (Table) فية سجل (no) لعدد من الارقام كان تكون ارقام هواتف او ارقام سيارات ومدخله الارقام في هذا الحقل سابقا 

المطلوب انشاء كود يظهر السجلات التي تحتوي على الارقام المدخلة في ذلك السجل اذا كانت اكثر او اقل من 6 مراتب

وكما في الجدول ادناه

وشكرا

بيانات.mdb

[kanory]

اذا كان فهمي للموضوع صحيح انظر الاستعلام .....

 

بيانات.mdb

[النهر العطشان]

شكرا استاذ kanory على المساعدة وسرعة الاجابة

تمام وهو المطلوب لكن احتاج ان يكون عن طريق كود لزر في فورم ان امكن وكما في الملف المرفق وشكرا

بيانات 2.mdb

[kanory]

لا تريد العرض .....؟؟؟؟؟

ام تريد عرضها في النموذج .......؟؟؟؟؟

ام تريد رسالة .....؟؟؟؟

[النهر العطشان]

عرضها في نموذج

[kha9009lid]

مشاركة مع استاذي الفاضل @kanory

قم بانشاء نموذج مستمر ( جدولي )

ثم قم باضافة زر امر وفي حدث عند النقر ضع الكود التالي

Dim k As String 
 k = "SELECT Table.* FROM [Table] WHERE (((Len([no]))<6 Or (Len([no]))>6));"
form.RecordSource = k

الملف مرفق

 

بيانات.mdb

[kha9009lid]

عذرا ما انتبهت انك وضعت مرفق في ردك على الاستاذ @kanory

لذا اذا اردت بنفس فكرتك ممكن نستخدم امر فتح نموذج ونحمل قيمة في بارامتر OpenArgs

ليكون امر الامر

DoCmd.OpenForm "frm_2", , , , , , "1"

ثم في نموذج البينات في حدث عند الفتح نضع الامر التالي

If Not IsNull(Me.OpenArgs) Then
Dim k As String
 k = "SELECT Table.* FROM [Table] WHERE (((Len([no]))<6 Or (Len([no]))>6));"
Form.RecordSource = k
End If

من المؤكد ان هناك طرق اخرى لتنفيذ ولكن اعتقد هذه الاسهل والله اعلم

الملف مرفق

 

بيانات 22.mdb

[النهر العطشان]

شكرا الى الاساتذه الافاضل (kanory و kha9009lid) الطريقتي ادت الغرض المطلوب منها

جعلها الله في ميزان حسناتكم