تصفية السجلات حسب قيمة متغيرة

[Luqman Khooshnaw]

عندي ملف فيه ارقام اريد تصفية السجلات حسب رقم معين يحتوي على كسر نكتبه في حقل نصي معين موجود في رأس النموذج على سبيل المثال نريد تصفية السجلات  اقل من 5.5  او اكثر من 2.3 وهكذا.

مع إمكانية طبع النتائج .

ارفقت لكم الملف هنا وبانتظار ردودكم. وشكرا

Filter.accdbFetching info...

[kanory]

 

  في 24‏/5‏/2022 at 04:01, Luqman Khooshnaw said:

عندي ملف فيه ارقام اريد تصفية السجلات حسب رقم معين يحتوي على كسر نكتبه في حقل نصي معين موجود في رأس النموذج على سبيل المثال نريد تصفية السجلات  اقل من 5.5  او اكثر من 2.3 وهكذا.

مع إمكانية طبع النتائج .

ارفقت لكم الملف هنا وبانتظار ردودكم. وشكرا

Expand  

أولا : 

يجب توحيد العبارة التي تكتب في مربع البحث أي قد تكتب <  5.5 وقد تكتب <5.5 اقصد المسافات لذلك فكرتي باختصار :

عمل مربعي قائمة الاول لاختيار علامة ( ><= الخ اخرة) والمربع الثاني تختار منها الرقم ثم عمل زر للبحث .... وفقط ...

ثانيا :

بعض المسميات المستخدمة هي عبارات محجوزة للاكسس والمفروض لا تستخدم مثل sub ....

 

[د.كاف يار]

تفضل هذا التعديل

 

Filter.accdbFetching info...

[kanory]

تفضل .....

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Set db = CurrentDb
    strSQL = "SELECT sub.* FROM sub WHERE "
    strSQL = strSQL & "[No] " & Me![cboFirstOperator] & "" & Me![txtCostCenter] & ""
db.QueryDefs.Delete "qryMyQuery"
Set qdf = db.CreateQueryDef("qryMyQuery", strSQL)

 

Filter (2).accdbFetching info...

[Luqman Khooshnaw]

شكرا لكم على الاجابة هذا ماكنت اقصده بالضبط.....بارك الله فيكم.......وجزاكم الله خيرا.....

[agha4m]

السلام عليكم

المثال السابق حاولت استخدام نموذج واحد فقط سواء  Head  او  Sub لكن مصدر البيانات لم أتمكن من اضافته

هل ممكن مساعدة

على المرفق  لأي نموذج منهما

وشكرا للجميع

FilterOneForm.accdb 768 kB · 70 downloads

[Eng.Qassim]

  في 30‏/5‏/2022 at 12:02, agha4m said:

حاولت استخدام نموذج واحد فقط سواء  Head  او  Sub لكن مصدر البيانات لم أتمكن من اضافته

Expand  

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

اولا اجعل النموذج Continuous Forms

ثانيا قم بتغيير هذا السطر

Me.Head.SourceObject = "Query.qryMyQuery"

الى هذا

  Me.RecordSource = "qryMyQuery"

 

[agha4m]

شكرا مهندس قاسم

تمام

[Luqman Khooshnaw]

شكرا لكم اخوان...بارك الله فيكم وجزاكم الله خيرا