مشكلة في التصفية

[مازن الحسيني]

السلام عليكم اخوتي الكرام 

- المشكلة لدى في النماذج نموذج اسمه (Table) وفيه وفيه عمود غير منظم اسمه (بحث حسب رقم الكتاب ) عندما ابحث فيه عن رقم الكتاب مثلا 150 يفترض ان يظهر لي كل كتاب رقمه 150 ولكن المشكلة يظهر لي جميع الكتب بمجرد ان اضغط زر انتر 

- المطلوب . اريد عندما ابحث فيه عن رقم الكتاب 150 مثلا يظهر لي فقط ارقام  الكتب التي يكون رقمها 150 فقط ولايظهر لي الارقام الاخرى . وطيا مثال مرفق 

مع الشكر والتقدير مسبقا اخوتي الكرام 

 

مثال.rar

تم تعديل فبراير 17, 2020 بواسطه مازن الحسيني

[محمد أبوعبدالله]

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

الكود يعمل بدون مشاكل

برجاء توضيخ اكثر للمشكلة

تحياتي

[مازن الحسيني]

الان, محمد ابوعبد الله said:

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

الكود يعمل بدون مشاكل

برجاء توضيخ اكثر للمشكلة

تحياتي

استاذي الكريم تحية لك ولجهودك واتمنى لك الموفقية

سيدي . جرب اكتب في مربع البحث 150 سيظهر لك رقم الكتاب ذي الرقم 150 الى هنا ليست هنالك مشكلة ولكن المشكلة هي عندي كتابين بنفس الرقم 150 اذ عندما اضغط زر انتر للبحث عن الكتاب الثاني يظهر لي جميع الكتب اي انه لايقوم بتصفية للرقم 150 فقط وانما يظر جميع الارقام عندما اضغط على زر انتر 

دمت كريما 

[محمد أبوعبدالله]

الحل ان تجعل البحث يغتمد على حقل فريد لا يمكن تكراره مثالك يحتوي على حقل فريد فعلا باسم = المعرف

ثم يتم تعديل مربع تحرير وسرد ليكون عمودين

ثم يتم تعديل الكود كالتالي

        Dim Rs As Object
        Set Rs = Me.Recordset.Clone
        Rs.FindFirst "[المعرف] = " & Str(Me![CmboStud1])
    If Not Rs.EOF Then
        Me.Bookmark = Rs.Bookmark
    End If

مثال_5.rar

تحياتي

[مازن الحسيني]

الان, محمد ابوعبد الله said:

الحل ان تجعل البحث يغتمد على حقل فريد لا يمكن تكراره مثالك يحتوي على حقل فريد فعلا باسم = المعرف

ثم يتم تعديل مربع تحرير وسرد ليكون عمودين

ثم يتم تعديل الكود كالتالي

        Dim Rs As Object
        Set Rs = Me.Recordset.Clone
        Rs.FindFirst "[المعرف] = " & Str(Me![CmboStud1])
    If Not Rs.EOF Then
        Me.Bookmark = Rs.Bookmark
    End If

مثال_5.rar 48.88 kB · 1 تنزيلات

تحياتي

السلام عليكم اخي الكريم محمد ابوعبد الله

 

السلام عليكم اخي الكريم محمد ابوعبد الله

لم ينجح الحل كل الشكر والتقدير على سعيك في ايجاد الحل .

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

مثال.rar

[محمد أبوعبدالله]

6 ساعات مضت, مازن الحسيني said:

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

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

سؤال : انت لديك كتابن يحملان الرقم 150 . كيف ستصل بالحث الى الكتاب الذي يحمل رقم 150 الثاني

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

تحياتي

[مازن الحسيني]

الان, محمد ابوعبد الله said:

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

سؤال : انت لديك كتابن يحملان الرقم 150 . كيف ستصل بالحث الى الكتاب الذي يحمل رقم 150 الثاني

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

تحياتي

جربت ذلك ووصلت للكتاب الثاني عن طريق الضغط على (زر انتر) فاظهر لي الكتابين ذوات الرقم 150 ولم يظهر لي ارقام الكتب الاخرى وهذا هو المطلوب . وارفقت الحل وبامكانك اخي الكريم تجربة ذلك وستجده ناجحا .

كما اتمنى للجميع الفائدة والنجاح 

دمت بالف خير 

[مازن الحسيني]

تفضل اخي الكريم 

1. تخلصت من كون المربع تحرير وسرد 

2.تخلصت من الضغط على زر انتر 

ومن الله التوفيق

مثال.rar

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي