أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

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

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

888695
مقدمة حول
توضح هذه المقالة كيفية استخدام API الحوار العامة في Microsoft Office Access 2003 أو في Microsoft Office Access 2007 لاستبدال وظائف "مربع الحوار العامة" المضمنة فقط في الإصدار المطور الخاص بـ Microsoft Office 2000 أو في Microsoft Office XP المطور Edition.
معلومات أخرى
تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية. هذا يتضمن ولكن لم يقتصر على الضمانات الضمنية الخاصة بالتجارة أو الملاءمة لغرض معين. تفترض هذه المقالة تكون مألوفة مع لغة البرمجة التي يتم شرحها مع الأدوات التي يتم استخدامها لإنشاء لتصحيح الإجراءات. يمكن لمهندسي الدعم لدى Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.

الخطوات لاستبدال وظيفة "الحوار العامة"

Microsoft Office Access 2003

  1. في Access، افتح نموذج قاعدة البيانات المسمى Northwind.mdb.

    ملاحظة قاعدة البيانات Northwind.mdb لـ Access 2003 يوجد عادةً في Office\OFFICE11\Samples Files\Microsoft C:\Program المجلد.
  2. تحت الكائنات في الإطار "قاعدة بيانات Northwind" ، انقر فوق نماذج.
  3. في شريط أدوات إطار قاعدة البيانات ، انقر فوق جديد.
  4. في مربع الحوار نموذج جديد ، انقر فوق طريقة العرض "تصميم" ثم انقر فوق موافق.
  5. إضافة مربع نص إلى Form1 ، انقر بزر الماوس الأيمن فوق مربع النص ثم انقر فوق خصائص.
  6. انقر فوق علامة التبويب الكل انقر فوق اسم واكتب النص1 ثم قم بإغلاق مربع الحوار "خصائص".
  7. انقر بزر الماوس الأيمن فوق عنصر تحكم تسمية الذي يقترن مربع النص النص1 ، انقر فوق خصائص ثم انقر فوق علامة التبويب الكل.
  8. انقر فوق التسمية التوضيحية واكتب النص1 ثم قم بإغلاق مربع الحوار "خصائص".
  9. إضافة زر أمر إلى Form1 انقر بزر الماوس الأيمن فوق زر الأمر ، انقر فوق خصائص ، انقر فوق اسم ، اكتب Command1 ، انقر فوق تسمية توضيحية إليه ثم اكتب Command1.
  10. انقر فوق علامة التبويب حدث ، انقر فوق [إجراء حدث] في القائمة عند النقر ثم انقر فوق زر علامة القطع لبدء تشغيل محرر Microsoft Visual Basic.
  11. تعديل التعليمات البرمجية في الإجراء Command1_Click التالي:
    Private Sub Command1_Click()    Me!Text1 = LaunchCD(Me)End Sub
  12. On the Insert menu, click Module, and then insert the following code into Module1:
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPrivate 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 StringEnd TypeFunction 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 IfEnd Function
  13. من القائمة تصحيح ، انقر فوق ترجمة Northwind وإغلاق محرر Visual Basic.
  14. من القائمة عرض، انقر فوق نموذج عرض.
  15. انقر فوق Command1 ثم انقر فوق ملف في إطار يفتح.

    يظهر مسار الملف في مربع النص النص1.

Microsoft Office Access 2007

  1. في برنامج Access 2007 فتح نموذج قاعدة البيانات المسمى Northwind.accdb.
  2. على علامة التبويب "إنشاء" ، انقر فوق نموذج في مجموعة نماذج.
  3. ضمن علامة التبويب "تنسيق" ، انقر فوق سهم لأسفل الموجود أسفل طريقة عرض ثم انقر فوق عرض التصميم.
  4. إضافة مربع نص إلى Form1 ، انقر بزر الماوس الأيمن فوق مربع النص ثم انقر فوق خصائص.
  5. انقر فوق علامة التبويب الكل انقر فوق اسم واكتب على النص1.
  6. انقر بزر الماوس الأيمن فوق عنصر تحكم تسمية الذي يقترن مربع النص النص1 ، انقر فوق خصائص ثم انقر فوق علامة التبويب الكل.
  7. انقر فوق التسمية التوضيحية واكتب النص1.
  8. إضافة زر أمر إلى Form1 انقر بزر الماوس الأيمن فوق زر الأمر ، انقر فوق خصائص ، انقر فوق اسم ، اكتب Command1 ، انقر فوق تسمية توضيحية إليه ثم اكتب Command1.
  9. انقر فوق علامة التبويب حدث ، انقر فوق [إجراء حدث] في القائمة عند النقر ثم انقر فوق زر علامة القطع (...) لبدء تشغيل محرر Microsoft Visual Basic.
  10. تعديل التعليمات البرمجية في الإجراء Command1_Click ليشابه التالية التعليمات البرمجية المثال.
    Private Sub Command1_Click()    Me!Text1 = LaunchCD(Me)End Sub
  11. On the Insert menu, click Module, and then insert code that resembles the following code example into Module1.
    Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongPrivate 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 StringEnd TypeFunction 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 IfEnd Function
  12. من القائمة تصحيح ، انقر فوق ترجمة Northwind وإغلاق محرر Visual Basic.
  13. ضمن علامة التبويب "تنسيق" ، انقر فوق سهم لأسفل الموجود أسفل طريقة عرض ثم انقر فوق عرض النموذج.
  14. انقر فوق Command1 ثم انقر فوق ملف في إطار يفتح.

    يظهر مسار الملف في مربع نص 1.
acc2003 acc2007

تحذير: تمت ترجمة هذا المقال تلقائياً

خصائص

رقم الموضوع: 888695 - آخر مراجعة: 06/04/2007 19:34:07 - المراجعة: 4.3

  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
  • kbmt kbsampledatabase kbprogramming kbautomation kbexpertiseinter kbhowto KB888695 KbMtar
تعليقات