خيارات متقدمة: يتطلب ترميز الخبير إمكانية التشغيل المتداخل ومهارات متعددة.


تنطبق هذه المقالة لأي ملف Microsoft Access قاعدة بيانات (mdb.) أو ملف (.accdb) من قاعدة بيانات Microsoft Access وملف Microsoft Access (.adp) مشروع.

ملخص

يوضح هذا المقال كيفية إنشاء معايير لسلسلة استعلام بقيم من نموذج بحث في Microsoft Office Access 2007 Office Access 2003 وفي Microsoft Access 2002 بشكل حيوي.

مزيد من المعلومات

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


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

مثال خطوة بخطوة

  1. ابدأ تشغيل Access.

  2. من القائمة تعليمات ، أشر إلى نموذج قواعد بياناتومن ثم انقر فوق نموذج قاعدة بيانات Northwind.

  3. فتح نموذج "العملاء" في طريقة عرض التصميم.

  4. إضافة مربع نص وزر أمر إلى النموذج، ثم قم بتعيين الخصائص التالية:
    Command Button
    ------------------------
    Name: cmdSearch
    Caption: Search
    OnClick: Event Procedure

    Text Box
    --------------
    Name: txtSQL
    Width: 4.4583"
    Height: 1.25"

  5. تعيين الخاصية عند _ النقر لزر الأمر إلى إجراء الحدث التالي:

    Private Sub cmdSearch_Click()
    On Error Resume Next

    Dim ctl As Control
    Dim sSQL As String
    Dim sWhereClause As String

    'Initialize the Where Clause variable.
    sWhereClause = " Where "

    'Start the first part of the select statement.
    sSQL = "select * from customers "

    'Loop through each control on the form to get its value.
    For Each ctl In Me.Controls
    With ctl
    'The only Control you are using is the text box.
    'However, you can add as many types of controls as you want.
    Select Case .ControlType
    Case acTextBox
    .SetFocus
    'This is the function that actually builds
    'the clause.
    If sWhereClause = " Where " Then
    sWhereClause = sWhereClause & BuildCriteria(.Name, dbtext, .Text)
    Else
    sWhereClause = sWhereClause & " and " & BuildCriteria(.Name, dbtext, .Text)
    End If
    End Select
    End With
    Next ctl

    'Set the forms recordsource equal to the new
    'select statement.
    Me.txtSQL = sSQL & sWhereClause
    Me.RecordSource = sSQL & sWhereClause
    Me.Requery

    End Sub
  6. قم بحفظ النموذج وفتحه في طريقة عرض النموذج.

لاحظ أنه عند النقر فوق زر الأمر بحث ، مربع النص تكستسقل يعكس الاستعلام الذي تم إنشاؤه من القيم الموجودة في نموذج "العملاء". أيضا، قد تم آخر نموذج "العملاء" حيث أن تعكس نتائج سلسلة SQL جديد.

المراجع

لمزيد من المعلومات حول أسلوب بويلدكريتيريا، في محرر Visual Basic، انقر فوق تعليمات Microsoft Visual Basic في القائمة تعليمات واكتب الأسلوب بويلدكريتيريا في "مساعد Office" أو "معالج الإجابة" وثم انقر فوق البحث لعرض الموضوع.

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Microsoft Insider

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟

نشكرك على ملاحظاتك!

×