ник: ??????
Раньше работала и вот перестала. Не ругается и не работает. Просто программа перепрыгивает через нее и выполняется дальше (окно диалога функции, конечно же, не открывается)
В общем модуле запись такая:
Type WLIB_OFFICEGETFILENAMEINFO
hwndOwner As Long
szAppName As String * 255
szDlgTitle As String * 255
szOpenTitle As String * 255
szFile As String * 4096
szInitialDir As String * 255
szFilter As String * 255
nFilterIndex As Long
lView As Long
flags As Long
End Type
Declare Function MSAU_OfficeGetFileName Lib _
"msaccess.exe" Alias "#56" (gfni As _
WLIB_OFFICEGETFILENAMEINFO, ByVal fOpen As _
Integer) As Long
В модуле формы:
MSAU_OfficeGetFileName a, 0 0 - кнопка "сохранить", 1 - кнопка "открыть"
Проект откомпиллирован