VBNet - Форум - Не могу запустить GetOpenFileName из Access VBA

Вопрос: Не могу запустить GetOpenFileName из Access VBA Добавлено: 06.10.05 10:18

Автор вопроса: Искатель | Web-сайт: sharmanka.narod.ru | ICQ: 43391624

Помогите! Никак не могу успешно запустить GetOpenFileName из Access VBA 6.0. Сколько вариантов я не пробовал, либо дает ошибку CDERR_MEMALLOCFAILURE, либо вообще вываливается из Access. Может в Access нужно какие-то глобальные установки изменить или я не те параметры задаю при запуске функции:

Dim OpenFile As OPENFILENAME
Dim lRet As Long
Dim sFilter As String
Dim errcode As Long

OpenFile.lStructSize = Len(OpenFile)
OpenFile.hWndOwner = Me.Hwnd
sFilter = "Ana oaeeu (*.*)" & Chr(0) & "*.*" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(255, Chr(0))
OpenFile.nMaxFile = Len(OpenFile.lpstrFile)
OpenFile.lpstrFileTitle = String(255, Chr(0))
OpenFile.nMaxFileTitle = Len(OpenFile.lpstrFileTitle)
OpenFile.lpstrInitialDir = "C:\"
OpenFile.lpstrTitle = "Открыть файл"
OpenFile.flags = &H1000 Or &H8000
lRet = GetOpenFileName(OpenFile)

а описывается она у меня в другом модуле так:

Declare Function GetOpenFileName Lib "comdlg32" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long

Type OPENFILENAME
  lStructSize As Long
  hWndOwner As Long
  hInstance As Long
  lpstrFilter As String
  lpstrCustomFilter As String
  nMaxCustomFilter As Long
  nFilterIndex As Long
  lpstrFile As String
  nMaxFile As String
  lpstrFileTitle As String
  nMaxFileTitle As String
  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

Уже не знаю что делать...
Ответить

Ответы Всего ответов: 3

Номер ответа: 1 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| \| #1	Добавлено: 06.10.05 17:34
	А может быть без API: Application.FileDialog(msoFileDialogFilePicker).Show Ответить

Номер ответа: 2 Автор ответа: Искатель ICQ: 43391624 Вопросов: 1 Ответов: 1	Web-сайт: sharmanka.narod.ru Профиль \| \| #2	Добавлено: 07.10.05 09:31
	Без API надо подключать какой-нибудь ocx или dll и база становится не мобильной. И моего Application почемуто нет ничего похожего на FileDialog, может это в более новой версии Access, у меня же Access 2000. Ответить

Номер ответа: 3 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| \| #3	Добавлено: 12.10.05 20:38
	Посмотри URL http://yssoft.narod.ru/files/vb/apidialog.zip есть класс для работы с любыми диалогами через API Ответить

Страница: 1 |