111andrei
1

Как програмно вызвать из ACCESS стандартное окно WINDOWS для открытия файла?

12.05.2009, 17:20. Показов 2336. Ответов 1
Метки нет (Все метки)

Как програмно вызвать из ACCESS стандартное окно WINDOWS для открытия файла? Хорошо бы пример. Спасибо, Андрей
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2009, 17:20
Ответы с готовыми решениями:

Как в access 2000 вызвать стандартное окно выбора файлов?
Здрасте всем) В аксессе 2000 нужно вызвать окно, в котором можно выбрать один файл с определенным...

Как програмно вызвать стандартное меню Excela Saveas ?
Как програмно вызвать стандартное меню Excela Saveas ???

Как можно вызвать стандартное окно для выбора папок?
Из С++ нужно вызвать стандартное окно для выбора папок. Что-то типа GetOpenFileName, только для...

Вызвать стандартное окно аутентификации Windows
Доброго времени суток, уважаемые коллеги. Написал модуль для добавления собственных заданий в...

1
Lena
12.05.2009, 18:54 2
Примерно так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Option Compare Database
Option Explicit
Private Const OFN_HIDEREADONLY = &H4, OFN_FILEMUSTEXIST = &H1000
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
 
 
 
Private Sub cmdOpenFile_Click()
       Dim OpenFile As OPENFILENAME
         Dim lReturn As Long
         Dim sFilter As String
         Dim dbsCurrent As Database
         
         Set dbsCurrent = CurrentDb
         
         OpenFile.lStructSize = Len(OpenFile)
         OpenFile.hwndOwner = Me.Hwnd
         'OpenFile.hInstance = Application.hInstance
         sFilter = 'Базы данных Access (*.mdb)' & Chr(0) & '*.mdb' & Chr(0) & _
                   'Файлы MDE (*.mde)' & Chr(0) & '*.mde' & 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 = Left(dbsCurrent.name, Len(dbsCurrent.name) - Len(Dir(dbsCurrent.name)))
         OpenFile.lpstrTitle = 'Выбор файла-источника данных'
         OpenFile.flags = OFN_FILEMUSTEXIST + OFN_HIDEREADONLY
         lReturn = GetOpenFileName(OpenFile)
         If lReturn = 0 Then
            'MsgBox 'The User pressed the Cancel Button'
         Else
            txtPathToOldVersion.SetFocus
            txtPathToOldVersion.Text = Trim(OpenFile.lpstrFile)
            'MsgBox 'The user Chose ' & Trim(OpenFile.lpstrFile)
         End If
         
    Set dbsCurrent = Nothing
End Sub
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2009, 18:54
Помогаю со студенческими работами здесь

Как вызвать стандартное окно печати
есть программа, в ней меню, в меню есть печать, как сделать так, чтобы при нажатии на эту кнопку...

Как программно вызвать форму для открытия файла?
подскажите как программно вызвать форму для открытия файла

Как вызвать програмно диалоговое окно фильтр условие?
как вызвать програмно диалоговое окно фильтр условие?

Диалоговое окно открытия файла в Access
Как открыть окно открытия файла в модуле Access? Стандартные окна диалога лежат в COMDLG32.DLL...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru