????? ??????? API ?????? ?????? ?? ????? ?????? Access

?????? ????????? ?????? ?????????
???? ???????: 303066 - ??? ???????? ???? ????? ????? ??? ???????.
??????: ????? ????? ???????? ????? ? ???????? ??????? ??????? ????????.

????? ???? | ?? ????

????? ???

???? ??? ??????? ????? ??????? API ?????? ?????? ???????? ????? "???? ?????? ??????" ??????? ?? Office XP ?????? Edition ? ??????? ?????? Office 2000 ?? ??????? Microsoft Office 97 ??????.

??????? ????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????.
  1. ???? ????? ????? ???????? Northwind.mdb.
  2. ????? ????? ????. ??? ??????? Form1. ??? ????? ???? ?? ????? ????? "?????".
  3. ????? ?? ??? ??? Form1. ???? ???? ?? ??????? ??? ??????? ????? ??????? ??? "Command1."
  4. ????? ???? ?? ??? Form1. ????? ??????? ' Name ' ??? "????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 - ????? ??? ??????: 28/????? ??????/1426 - ??????: 6.0
????? ???
  • Microsoft Access 97 Standard Edition
  • Microsoft Access 2000 Standard Edition
  • Microsoft Access 2002 Standard Edition
????? ??????: 
kbmt kbhowto kbprogramming kbui KB303066 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????303066

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

 

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