سؤال عن تحويل تعبير بحث من إستعلام إلى كود في وحدة نمطيه ؟

أخي 5060

أنا ما فهمت سؤالك جيدا ولكن إذا كنت تريد أن يكون مصدر النموذج هو الاستعلام ولكن من خلال جملة sql فهذا سهل .

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

هذا لوكان ما تريده .

أشرف خليل

الأخ أشرف

الذي جعلني أهوى هذا المنتدى لدرجة لا تتخيلها هو أن من يطرح سؤال ويريد العون في حل سؤاله يجد الكلمة الطيبة وروح التعاون بين فريق هذا المنتدى والحل وإن لم يكن هو ما يريده السائل فلا يتوقف الأمر على ذلك بل هناك من يبحث في المنتديات والكتب وكل واحد يبذل فوق طاقته لأجل المساعدة ما أروع الأخاء وروح التعاون0

عموماً ما قصدته هو كيف أحول هذا التعبير إلى وحدة نمطيه بمعنى أن :

اضع مربع نص على النموذج وفي حدث بعد التحديث لمربع النص أكتب التالي:

Like Chr(42)&[forms]![ بحث عن]![بحث وعرض]&Chr (42)

ثم

docmd.Requery

ويقوم هذا الكود بنفس عمله على الإستعلام

الأمر بسيط استخدم الفلتر .

إذا لم تعرف الطريقة فاكتب لي اسم مربع النص الذي تكتب داخله والحقل الذي كتبت المعيار تحته :

Like Chr(42)&[forms]![ بحث عن]![بحث وعرض]&Chr (42)

وستجد الإجابة إن شاء الله .

ولك تحياتي

الحقل الذي كتبت المعيار تحته هو " Name "

ومربع النص الذي أكتب فيه ما أريد أن ابحث عنه اسمه " Txtchr "

وتظهر لي البيانات على نفس النموذج الذي عليه مربع النص الخاص بالبحث " Txtchr " واسم النموذج " FrmCustomer "

ولك تحياتي

في حدث عند النقر المزدوج لمربع النص المسمى Txtchr ضع :

If Me.FilterOn = False Then
Me.Filter = "[NAME]='" & Me![Txtchr] & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If

وهذا يجعل يبحث في حقل NAME عن مايطابق الموجود بكامله في مربع النص المسمى Txtchr .

أو ضع :

If Me.FilterOn = False Then
Me.Filter = "[Name] Like '*" & Me![Txtchr] & "*'"
Me.FilterOn = True
Else
Me.FilterOn = False
End If

وهذا يبحث في حقل NAME عن مايطابق أي جزء من الموجود في مربع النص المسمى Txtchr .

ولك تحياتي

تسلم يداك وتفكيرك

يا ابو حمود الطمع شين الله يكفينا طمع الدنيا

الكود الخاص بالبحث 10/10 بقي البحث بالتاريخ فقط حاولت أن أستنتج الطريقة مما قدمت لي غير انني استسلمت في الأخير ولكن أبشرك لم استسلم إلا بعد أن اتعبت الجهاز بالكتابة والحذف0

عموماً إذا وجدت الفرصه السانحة فأنظر لنا في هذا الموضوع0

لدي في الجدول حقل تاريخ اسمه Date1

وعلى النموذج مربعي نص ابأسماء TxtDate1 و TxtDate2 هذان الحقلان أكتب فيهما تاريخين وأرغب أن يبحث البرنامج في حقل Date1 في الجدول وتعرض البيانات المدخله بين هذين الفترتين0

مثال :

أريد عرض بيانات الموظفين الذين أدخلت بياناتهم من تاريخ 1/1/1422هـ إلى 30/12/1422هـ

TxtDate1 تحتوي على بداية الفتره 1/1/1422هـ و TxtDate2 تحتوي على نهاية الفترة 30/12/1422هـ علماُ بأن مربعي النص غير منظمين والبحث يتم على الحقل في الجدول والمسمى Date1

وياليت أن تكون العملية بكود0

مع الشكر

إذا كان فهمي لطلبك صحيحاً فما تطلبه يكوه شبيهاً بالتالي :

تحت حقل Date1 في معيار اكتب :

Between Forms![اسم النموذج]![TxtDate1] And Forms![اسم النموذج]![TxtDate2]

علماً أنه تكرر في المنتدى أكثر من مرة .

أما إذا تريد تطبيق الفلتر الموجود في الرد السابق بنفس الطريقة فاستعمل الكود التالي :

If Me.FilterOn = False Then
VBA.Calendar = vbCalGreg
Me.Filter = "التاريخ>=#" & Me![TxtDate1] & "# And التاريخ <= #" _
& Me![TxtDate2] & "#"
Me.FilterOn = True
Else
Me.FilterOn = False
End If

ولك تحياتي

ألف الف شكر

ما أردته هو الكود الثاني فقط

ولك شكري وتقديري