????? ??????? API ?????? ?????? ?? ????? ?????? ?? Access 2003 ?? Access 2007

?????? ????????? ?????? ?????????
???? ???????: 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 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
    
  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 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
    
  12. ?? ??????? ????? ? ???? ??? ????? Northwind ?????? ???? Visual Basic.
  13. ??? ????? ??????? "?????" ? ???? ??? ??? ????? ??????? ???? ????? ??? ?? ???? ??? ??? ???????.
  14. ???? ??? Command1 ?? ???? ??? ??? ?? ???? ????.

    ???? ???? ????? ?? ???? ?? 1.

???????

???? ???????: 888695 - ????? ??? ??????: 18/????? ??????/1428 - ??????: 4.3
????? ???
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
????? ??????: 
kbmt kbsampledatabase kbprogramming kbautomation kbexpertiseinter kbhowto KB888695 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????888695

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com