كيفية استخدام API الحوار الشائعة في قاعدة بيانات Access

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

مقدمة

توضح هذه المقالة كيفية استخدام API الحوار العامة لتحل محل وظيفة "مربع الحوار العامة" المضمنة فقط مع Office XP Edition المطور و Office 2000 المطور Edition الإصدار Microsoft Office 97 المطور.

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

تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.
  1. افتح نموذج قاعدة البيانات Northwind.mdb.
  2. إنشاء نموذج جديد. اسم النموذج Form1. فتح نموذج جديد في طريقة عرض التصميم.
  3. إضافة زر أمر إلى Form1. تعيين اسم الخاصية وخاصية التسمية التوضيحية إلى "Command1".
  4. إضافة مربع نص إلى Form1. تعيين اسم الخاصية إلى "النص 1".
  5. انقر نقراً مزدوجاً فوق Command1وانقر فوق خصائصثم انقر فوق علامة التبويب الأحداث .
  6. في إجراء الحدث في انقر فوق ، انقر فوق [إجراء حدث] من القائمة المنسدلة ومن ثم انقر فوق علامة القطع لبدء تشغيل محرر Visual Basic.
  7. تعديل إجراء Command1_Click لما يلي:
    Private Sub Command1_Click()    Me!Text1 = LaunchCD(Me)
    End Sub

  8. من القائمة إدراج ، انقر فوق الوحدة.
  9. نسخ ولصق نموذج التعليمات البرمجية التالية في الوحدة النمطية الجديدة.
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

    Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    End Type

    Function LaunchCD(strform As Form) As String
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = strform.hwnd
    sFilter = "All Files (*.*)" & Chr(0) & "*.*" & Chr(0) & _
    "JPEG Files (*.JPG)" & Chr(0) & "*.JPG" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "C:\"
    OpenFile.lpstrTitle = "Select a file using the Common Dialog DLL"
    OpenFile.flags = 0
    lReturn = GetOpenFileName(OpenFile)
    If lReturn = 0 Then
    MsgBox "A file was not selected!", vbInformation, _
    "Select a file using the Common Dialog DLL"
    Else
    LaunchCD = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) - 1))
    End If
    End Function

  10. من القائمة تصحيح ، انقر فوق حفظ كافة الوحدات النمطية والتحويل البرمجيإذا كنت تستخدم Access 97. إذا كنت تستخدم Access 2000 أو Access 2002، انقر فوق ترجمة Northwind، وقم بإغلاق إطار التعليمات البرمجية.
  11. من القائمة عرض ، انقر فوق طريقة عرض النموذج.
  12. انقر فوق Command1. انقر فوق ملف من إطار استعراض. وضع مسار الملف في مربع النص 1 .
خصائص

رقم الموضوع: 303066 - آخر مراجعة: 18‏/01‏/2017 - المراجعة: 1

تعليقات