Как вызвать dialog box открытия файла

Как с помощью VBA открыть диалог открытия файла в Access97?

Private Sub Command2_Click()
Dim str As String
Dim dlgOpen As FileDialog

Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
With dlgOpen
.AllowMultiSelect = True
.Show
End With

str = dlgOpen.SelectedItems.Item(1)

Me!FileBox = str


End Sub

Dim dlgOpen As FileDialog

Ругается, говорит "User-defined type not defined"

проверь наличие библиотек...

Извините, сами мы не местные :-) В смысле, я пока что слабо шарю в Аксе. что значит проверь наличие библиотек...? appwiz.cpl, которая отвечает за объект application и comdlg32.ocx, который похоже отвечает за стандартные dialogи есть.

Что вы имели в виду?

FileDialog работает только начиная с версии Access XP (2002)
Библиотека которую нужно подключать Microsoft Office 10.0 Object Library

P.S. Нужно пользоваться поиском на форуме, таких вопросов было много.

А есть какие нибудь средства в Access 2000 для выбора файла?

Function GetOpenFileNameSimple(ByRef strSrc As String, ByVal lHWND As Long) As String
Dim ofn As OPENFILENAME_WIN
Dim strPath As String
Dim strFilter As String
Dim strRet As String
Dim lError As Long

strRet = ""

strFilter = strSrc
StringReplace strFilter, "|", vbNullChar, vbBinaryCompare

' reserve buffer for output string
strPath = String(OPENFILENAME_WIN_MAX_PATH, 0)

OPENFILENAME_WIN_Init ofn
ofn.hwndOwner = lHWND
ofn.lpstrFilter = strFilter
ofn.lpstrFile = strPath
ofn.nMaxFile = Len(strPath) - 1
ofn.Flags = OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST

lError = DllGetOpenFileName(ofn)
If lError <> 0 Then
' truncate all null characters
strRet = Mid(ofn.lpstrFile, 1, InStr(1, ofn.lpstrFile, vbNullChar, vbBinaryCompare) - 1)
End If

GetOpenFileNameSimple = strRet
End Function

2 incold

Это прикол...
Дата ответа Влада: 6 ноя 01, 10:33
Тогда вроде 2002-го Аксеса не было

Попробуй этот вариант:
http://support.microsoft.com/default.aspx?scid=kb;en-us;161286

mahoune