Light-electric.com

IT Журнал
21 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Access vba закрыть форму

12.5 Работа с формами Access из VBA (объект Form )

Объект Access.Form, работа с формами Access средствами VBA, открытие формы Access, работа с элементами управления на форме Access

Один из важнейших элементов Access, который широко используется в приложениях — это формы. Формы Access предназначены для того же, для чего и обычные формы VBA — это прежде всего контейнеры для графических элементов управления. Но устройство форм Access, их функциональные возможности, приемы работы с ними и даже наборы элементов управления, которые на них можно размещать, сильно отличаются от привычных нам форм VBA, которые можно использовать в Word и Excel.

Формы Access используются:

  • Для редактирования записей в таблицах базы данных Access и внешних источников данных. Для того, чтобы создать такие формы, вообще не нужно никакого программирования — достаточно создать форму в режиме конструктора или воспользоваться мастером создания форм. Подключиться к внешнему источнику данных (например, базе данных SQL Server или Oracle) можно, воспользовавшись в Access меню Файл ->Внешние данные ->Связь с таблицами.
  • Как панели управления вашего приложения. Очень часто в приложении на основе Access создается начальная форма, которая открывается при запуске этого приложения. На этой формы предусмотрены кнопки и другие элементы управления для вызова других форм, отчетов, макросов, выхода из приложения и выполнения прочих операций. После закрытия других форм управления опять передается начальной форме.
  • Просто для предоставления пользователю возможности выполнения любых действий. Например, форму можно использовать для выбора пользователем параметров отчета, выгрузки данных во внешнее приложение (например, Excel) и т.п.

Как работать с формами Access из VBA?

Первое, что необходимо сказать — для работы с формами во многих ситуациях нам придется использовать общий объект AccessObject, который представляет в Access не только формы, но и таблицы, макросы, модули, отчеты и множество других элементов. Поскольку этот объект — универсальный, то, конечно, большой помощи от Intellisense — подсказки в редакторе VBA у нас не будет. Обратиться к объекту формы можно через коллекцию AllForms, которая доступна через объекты CodeProject и CurrentProject. Например, получить информацию о всех формах в базе данных Access можно так:

Dim oA As AccessObject

For Each oA In CurrentProject.AllForms

Если вы будете обращаться к формам в коллекции AllForms по индексу, обратите внимание, что нумерация форм в этой коллекции начинается с 0. Обращаться к элементам в этой коллекции можно и по имени:

Специальное свойство IsLoaded определяет, открыта ли эта форма (то есть загружена ли она в оперативную память).

Программным образом формы можно найти и другим способом. Все открытые формы Access автоматически помещаются в коллекцию Application.Forms и представляются в виде объекта Form. Это — уже нормальный объект, свойства которого соответствуют свойствам формы, доступным через графический интерфейс. Например, если форма Форма1 открыта, получить информацию о ее ширине можно так:

Debug.Print Application.Forms(«Форма 1»).Width

Это свойство можно использовать и для изменения ширины формы, но для этой цели рекомендуется использовать метод DoCmd.MoveSize(), который изменяет размеры активного объекта (например, нашей формы, если она активна):

DoCmd.MoveSize Width :=10000

Еще одна возможность: если вы работаете с кодом самой формы или ее элементов управления (например, события Click кнопки, которая расположена на форме), то обратиться к объекту самой этой формы можно совсем просто. Для этого используется ключевое слово Form.

Как можно открыть форму?

Первое, что нужно сказать — если в Word или Excel нам обязательно потребуется открыть форму программным способом, то в Access это совсем необязательно. Можно открыть форму и вручную из окна базы данных (см. рис. 12.1). Из этого же окна обычно производится создание новых форм или изменение существующих.

Рис. 12.1 Окно для работы с формами в Access

Еще один часто используемый способ — просто запускать форму при открытии базы данных Access. Для этого в меню Сервис нужно выбрать Параметры запуска и выбрать нужную форму в списке Вывод формы/страницы. Если при этом вы уберете все остальные флажки, то приложение при открытии приложение может выглядеть так, как показано на рис. 12.2:

Рис. 12.2 Все лишние возможности Access спрятаны от пользователя

Окно базы данных будет скрыто от пользователя, а это значит, что пользователь не сможет получить информацию ни о таблицах нашей базы данных, ни о других формах, ни о модулях — все служебные элементы базы данных будут от него спрятаны. В принципе, пользователь может обойти такую защиту, держа нажатой при запуске Access кнопку , но программным способом можно закрыть и такую возможность.

Если все-таки нужно открыть форму программным способом (например, из другой формы), то для этой цели можно использовать метод DoCmd.OpenForm(). В самом простом варианте этот метод просто принимает параметр с именем формы:

Если же форма уже открыта, то этот метод, конечно, не открывает форму заново, а просто активизирует ее. Метод DoCmd.OpenForm() принимает также несколько необязательных параметров, при помощи которых вы можете настроить фильтр на отображение записей в форме, режим открытия формы (например, модальность) и т.п. Закрытие формы производится при помощи метода DoCmd.Close(). Если же вам нужно просто спрятать форму, чтобы сохранить введенные на ней пользователем значения и отобразить их при следующем показе, можно просто сделать форму невидимой, назначив ее свойству Visible значение False.

Форма нам обычно нужна не сама по себе, а как контейнер для расположенных на ней элементов управления. Обычно элементы управления программным способом создавать не требуется — намного проще и удобнее поместить их на форму в режиме конструктора для формы. В наборе элементов управления для формы предусмотрены как знакомые нам элементы управления — текстовые поля, надписи, кнопки, флажки и переключатели, так и новые элементы — свободная и присоединенная рамки объектов, разрывы страниц, подчиненные формы/отчеты и т.п. В верхнем правом углу Toolbox в конструкторе формы Microsoft Access находится специальная кнопка Мастера. Если она нажата, то добавление на форму привычных элементов управления (например, кнопки) приведет к появлению окна мастера, который попытается помочь вам автоматически сгенерировать нужный код VBA для этого элемента управления (см. рис. 12.3)

Читать еще:  Работа в access 2020

Рис. 12.3 Мастер создания кнопок

Можно использовать генерируемый мастером код как заменитель макрорекордера (которого в Access нет), чтобы понять, как можно выполнить те или иные действия.

Для чего используются нестандартные (по отношению к обычным формам VBA) элементы управления:

  • Свободная рамка объекта — возможность разместить на форме OLE-объект (например, документ Word, лист Excel, презентация PowerPoint, рисунок, звукозапись или видеоклип), который может быть встроен в базу данных Access (но не помещен в таблицу!) или находиться во внешнем по отношению к базе данных Access файлу.
  • Присоединенная рамка объекта — то же самое, за исключением того, что он применяется для работы с объектами OLE, которые хранятся в таблицах внутри баз данных Access или внешнего источника данных. Это — самый удобный способ генерации отчетов в Word.

Например, предположим, что в нашей базе данных Access находится таблица с тремя столбцами, как показано на рис. 12.4.

Рис. 12.4 Таблица для хранения шаблонов Word

В столбце File у нас хранятся шаблоны Word, которые используются для генерации отчетов. Мы помещаем на форму элемент управления Присоединенная рамка объекта с именем WordTemplate. После этого все, что нужно для создания файла Word на основе шаблона из базы данных, у нас уже есть. Для кнопки, по нажатию на которой будет формироваться отчет, можно использовать следующий код:

‘Получаем ссылку oFrame на объект присоединенной рамки на форме

Dim oFrame As BoundObjectFrame

Set oFrame = oForm.Controls(«WordTemplate»)

‘При помощи метода DLookup () скачиваем в него значение столбца File из таблицы

‘Templates, где номер строки (значение столбца Num ) равно 1

oFrame = Application.DLookup(«[File]», «Templates», «[Num] = 1»)

‘Открываем объект в отдельном окне приложения — то есть создаем

‘документ Word на основе шаблон, загруженного в рамку объекта на форме

‘Активизируем объект приложения

‘Получаем ссылку на Word в переменную oWord

Dim oWord As Word.Application

Set oWord = GetObject(, «Word.Application»)

‘Получаем ссылку на созданный нами документ

Dim oDoc As Word.Document

Set oDoc = oWord.ActiveDocument

‘Дальше работаем средствами Word, например, вставляем нужный текст

‘в места, отмеченные закладками

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

  • Элемент управления Разрыв страницы — определяет начало нового экрана формы.
  • Подчиненная форма/отчет — используется для размещения на форме подчиненных форм, таблиц или отчетов.

Как уже говорилось, программным способом элементы управления в форме Access приходится создавать редко. Если на форме вам нужен переменный набор элементов управления, то правильнее будет с самого начала создать все нужные элементы управления и по необходимости делать их то видимыми, то невидимыми. Тем не менее создать программным способом элементы управления на форме тоже можно. Эта операция выполняется при помощи метода Application.CreateControl(), который принимает множество параметров — имя формы, на которой создается элемент управления, тип элемента управления, его месторасположение на форме и т.п.

Обращение к значениям элементов управления на форме производится через коллекцию Controls, которая умеет работать с именами элементов управления:

Access vba закрыть форму

Есть процедурка, она открывает (docmd.openform) формочку на которой пользователь может нажать одну из трёх кнопочек, допустим: «да», «нет», «отмена».
Нажатие на одну из кнопочек приводит к закрытию формы (docmd.close)

Как же узнать какую кнопочку нажал пользователь и использовать эту информацию в открывшей форму процедуре?
Как передать из закрывающейся формы эти данные?

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

Да и процедура, вызвавшая форму, не будет ждать закрытия формы, дабы получить от неё результат, а побежит себе далее прямо к end sub.

П.С. Форма создана штатными средствами акцесса, т.к. не умею сделать её программно. Точнее не могу сообразить как мне вновь созданную форму на экран-то вывести? Ни метода activate, ни show ничего у неё нет.

Вызвавшую процедуру можно «завесить», например так:
————————————————
Sub DelayForm(FNam As String)
‘ Процедура приостанавливает выполнение модуля формы
‘ на время работы другой формы
Dim F As Form
Dim L As Long
Dim B As Boolean

Do
‘ Пауза в 1 сек для работы другой формы
L = Timer
Do While Timer код: Теперь пусть есть форма, откуда надо открыть первую форму, передать в неё параметр(-ы), получить обратно. На форме есть надпись Label0 и кнопка Command1. Модуль формы: код:

selfexile
передать массив — не желает кушать массив, только строки, говорит, люблю. А вот это плохо!
массив строк?

по идее должен «кушать»

Lucy
А вдруг мне 2 биллиона символов не хватит?
На счёт «кушать», в справке указано, что только строку и можно передать в openargs. Или я чего со своим недоанглийским плохо понимаю? А то мне несколько строк (массив) нужно передать в форму, так, что я их через за. через таблицу передаю пока что. А это как-то некрасиво выходит. Функция получает массив, запихивает его в таблицу sql-запросом, запускает форму, та работает с полями этой таблицы, затем форма закрывается и функция, продолжая работу, запихивает данные из таблицы обратно в массив (переданный в эту функцию byref) при помощи ado.recordset. Качмар!

Бенедикт
Примем к сведению. Распечатаем и попробуем вникнуть/разобраться.

————————————-
У меня вот теперь какая-то ерунда с формой появилась. Открывается она с where condition nomer=1, а ей по барабану! Она УПОРНО создаёт мне новую запись в таблице к которой привязана, чтоб её разворотило, а мне нужно редактировать ЕДИНСТВЕННУЮ запись в таблице и чтобы никаких новых записей не появлялось ни в коем случае. Эта единственная запись и имеет поле nomer = 1. Ничего не пойму!

Добавление от 25.11.2008 07:39:

Сделал для этой формы набор записей «статический»
Фильтр сработал. Открылась нужная запись, а не новая. Только теперь поля для ввода не дают изменять данные — булькают, типа поле недоступно для редактирования.

Добавление от 25.11.2008 08:13:

Читать еще:  Как работать в access 2020

Тьфу! Тьфу! Тьфу! Тьфу! Тьфу!
Пардон, я сейчас вытру страничку.
В свойствах формы было указано «ввод данных — да», оказывается это означает, что форма будет открываться ИМЕННО для новой записи. А я думал, что это означает разрешение на ввод данных вообще в поля формы.

П.С. Ненавижу изучать языки-среды разработки! Люблю пользоваться уже имеющимися данными. Сколько времени уходит на какую-нибудь ерундень вроде этой.
Даёшь загрузку знаний прямо в мозг!

selfexile
в справке указано, что только строку и можно передать в openargs

читаем справку (http://www.datawright.com.au/access_resources/access_docmd.openform_arguments.htm) :
«OpenArgs — type Variant.
A string expression. This expression is used to set the form’s OpenArgs property. This setting can then be used by code in a form module , such as the Open event procedure . «

с другой стороны, тип Variant — структура, которая может содержать различные типы данных, в том числе и массив:
Value Variant type
0 Empty (unitialized)
1 Null (no valid data)
2 Integer
3 Long Integer
4 Single
5 Double
6 Currency
7 Date
8 String
9 Object
10 Error value
11 Boolean
12 Variant (only used with arrays of variants)
13 Data access object
14 Decimal value
17 Byte
36 User Defined Type
8192 Array

код: VarType(arr) должна возвратить 8192.

поэтому, что-то вроде
код: может работать

Lucy
А зачем мне проверять массив ли получила форма через openargs?
Я, находясь в трезвом уме и твёрдой памяти, ответственно заявляю, что МОЯ форма посредством openargs НИКОГДА ничего кроме массива определённой мною размерности и типа НЕ получит.

А массив я пытался передать. Не получается. По-моему на несоответствие типов и ругается, не помню сейчас.

selfexile
Я, находясь в трезвом уме и твёрдой памяти, ответственно заявляю, что

пройдет время, кто-то захочет что-то поменять, что у Вас было/есть в памяти ему будет неинтересно. etc.

Access vba закрыть форму

193 просмотра

2 ответа

66 Репутация автора

У меня есть основная форма с именем Calling. У него есть кнопка с названием Travel. Эта кнопка Travel делает:

Форма Информация о путешествии работает правильно. Эта форма Путешествия имеет кнопку Закрыть с кодом:

При нажатии код закрытия генерирует «Ошибка во время выполнения« 361 »: невозможно загрузить или выгрузить этот объект.

Ваша помощь очень ценится.

Ответы (2)

2 плюса

1382 Репутация автора

Вам не нужны запятые с пустыми строками, а также вам не нужно, так acFormEdit как при открытии формы вы в любом случае сможете редактировать и добавлять новые записи.

Если оставить этот аргумент пустым, форма откроется в режиме данных, установленном разрешениями AllowEdits, AllowDeletions, AllowAdditions и DataEntry (в свойствах формы).

Что касается следующей подпрограммы, я бы использовал docmd.close вместо выгрузки.

me.undo Не является обязательным, если вы не хотите , чтобы сохранить, и если вы хотите сохранить форму изменить acSaveNo к acSaveYes .

Я только что перечитал ваш вопрос и заметил в заголовке, без чего вы хотите docmd .

Я думал об этом, и docmd это стандартный способ закрытия форм в доступе с использованием VBA. Я не уверен, если вы унаследовали unload от использования VB, но я бы придерживался docmd.close при использовании доступа.

Автор: LiamH Размещён: 19.05.2016 02:32

плюса

11 Репутация автора

«Unolad me» просто не работает в объектах формы доступа. Access хочет, чтобы вы использовали DoCmd.Open/DoCmd.Close, но вы умны и можете использовать объект формы доступа в качестве объекта. Имена доступа, которым классы форм ставят префикс имени, которое вы им даете с помощью «Form_». Вы создаете форму с именем «YourForm», Access создает класс «Form_YourForm». Используйте этот класс как реальный объект:

Кроме того, вы можете использовать Form_YourForm непосредственно как переменную объекта, потому что VBA Access просто «неявно» создает этот объект из класса Form_YourForm при первом его использовании или при использовании DoCmd.Open. (Да, это немного сбивает с толку, но Access был создан для пользователей, у которых не обязательно были навыки программиста). Однако вы будете получать разные экземпляры класса Form_YourForm каждый раз, когда будете использовать переменный объект, типизированный как любой из классов форм, существующих в вашем проекте. Это означает, что вы можете открыть столько экземпляров формы, сколько захотите . или пока она умещается в памяти вашего компьютера. Вы не можете сделать это, используя DoCmd.Open.

Основными «недостатками» является то, что вам приходится обрабатывать объект формы из другого модуля. Вы по-прежнему можете использовать коллекцию «Формы», но, поскольку вы не знаете заданный ключ, вы не можете легко получить доступ к экземпляру формы. Кроме того, вы не можете закрыть форму из ее собственного кода, а только располагать типизированную переменную (Set f = nothing).

Макрокоманда «закрытьокно»

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке).

С помощью макрокоманды закрытьокно можно закрыть вкладку указанного Access документа или вкладку активного документа, если не указан.

Примечание: Начиная с Access 2010 макрокоманда Закрыть переименована закрытьокно.

Примечание: Макрокоманда «ЗакрытьОкно» недоступна в веб-приложениях Access.

Настройка

Макрокоманды закрытьокно аргументы описаны ниже.

Тип объекта, которого вы хотите закрыть вкладку документа. Выберите таблицы, запроса, формы, отчета, макроса, модуля, страницы доступа к данным, представление сервера, схемы, хранимая процедура или функцию в поле Тип объекта поле в разделе Аргументы макрокоманды окна конструктора макроса. Выберите вкладку активного документа, этот аргумент оставлен пустым.

Примечание: При закрытии модуля в редакторе Visual Basic необходимо использовать элемент Модуль в аргументе Тип объекта.

Имя объекта, который нужно закрыть. В поле Имя объекта указаны все объекты базы данных, относящиеся к типу, заданному аргументом Тип объекта. Щелкните объект, который нужно закрыть. Если аргумент Тип объекта оставлен пустым, этот аргумент тоже должен быть пустым.

Определяет, нужно ли сохранять изменения в объекте при закрытии. Выберите вариант Да (сохранить объект), Нет (закрыть объект без сохранения) или По выбору (запрашивать у пользователя, нужно ли сохранить объект). По умолчанию задан вариант По выбору.

Читать еще:  Как вставить фото в powerpoint

Заметки

Макрокоманды закрытьокно работает на всех объектов базы данных, которые пользователь явным образом можно открыть или закрыть. Это действие действует так же, как при выборе объекта и его закрытия, щелкните правой кнопкой мыши вкладку документа объекта и затем нажмите кнопку Закрыть в контекстном меню или щелкните Закрыть кнопка объекта.

Если для аргумента Сохранение задано значение По выбору и объект не был сохранен перед выполнением макрокоманды Закрыть, открывается диалоговое окно, в котором пользователю предлагается сохранить объект перед закрытием. Если в макрокоманде УстановитьСообщения для аргумента Включить сообщения задано значение Нет, диалоговое окно не появляется и объект сохраняется автоматически.

Для запуска макрокоманды закрытьокно в модуле Visual Basic для приложений (VBA), используйте метод Закрыть объекта DoCmd .

Access VBA: закрытие формы приводит к дублированию записи в таблице

Позвольте мне объяснить, что я установил, чтобы легко описать мою проблему. Я создал дочернюю форму на основе таблицы, которая для иллюстрации выглядит следующим образом:

Каждая Text Box ограничена, т. е. ее Control Source указывает на соответствующее имя поля из таблицы.

В нижней части есть save Command Button , где я добавил некоторый код vba, чтобы вставить 4 значения полей в таблицу.

После нажатия кнопки Сохранить я делаю следующее, чтобы вставить в таблицу и закрыть форму:

Проблема заключается в том, что после закрытия формы она создает дублирующую запись в таблице.

Из-за моего незнания программирования vba на данный момент я знаю, что это связано с ограниченными текстовыми полями в таблице, потому что если я удаляю поля Control Source из текстовых полей, оставляя их пустыми, и вручную извлекаю значения в текстовых полях вместо этого , т. е. Me.textBox_OtherNumber , а затем вставляю эти значения в таблицу при нажатии кнопки сохранения, я не получаю дублирующую запись в таблице, когда форма закрыта.

Однако я бы предпочел, чтобы текстовые поля были ограничены таблицей, поскольку это облегчает открытие формы либо в режиме acFormAdd , где значения полей пусты и ждут добавления в качестве новой записи ,либо в режиме acFormEdit , где значения полей уже заполнены значениями из выбранной строки таблицы с помощью параметра WHERE criteries clause в DoCmd.OpenForm .

Например, у меня есть родительская форма, которая содержит Command Button и subform . Подформа Source Object связана с Datasheet , чья Record Source связана с той же таблицей, что и дочерняя форма.

В поле OtherNumber из Datasheet я создал hyperlink и запрограммировал его команду On Click , чтобы она была такой:

При щелчке по конкретному hyperlink определенной строки поля в frmTest заполняются данными на основе criteria , которые будут использоваться для обновления текущей записи.

Однако, если Command Button нажата в родительской форме, я делаю следующее:

Форма открыта, но значения полей пусты, что указывает на то, что новая запись будет добавлена на основе значений полей.

Мне кажется, что это намного проще, чем не иметь текстовых полей в frmTest , связанных с чем-либо, и если бы это не было ограничено, мне пришлось бы найти способ ссылаться на значения полей в Datasheet и передавать дочернюю форму frmTest .

Видите ли вы мою дилемму? Каков лучший способ решить эту проблему?

1 Ответ

Существует очень много способов решить эту проблему:

Используя связанную форму, на кнопке Сохранить просто опустите строку для сохранения записи (так как доступ автоматически сохраняет ее):

Или, если вы не доверяете доступу, чтобы сохранить его:

Обратите внимание, что acSaveNo относится к отсутствию сохранения каких-либо изменений в дизайне формы и никоим образом не связано с сохранением записей.

Если вы хотите задать значения для несвязанной формы из другой формы:

(конечно, есть много альтернатив и этому. Наиболее важным является то , что вы можете передавать аргументы между формами, используя параметр OpenArgs из DoCmd.OpenForm , и вы можете обрабатывать их при загрузке формы).

Похожие вопросы:

Мой доступ 2000 DB вызывает у меня проблемы-иногда (не определил причину) форма book не закрывается. Нажатие его кнопки закрытия ничего не делает, File -> Close ничего не делает, даже закрытие.

Можно ли Просмотреть код создания формы в Access VBA? Я не имею в виду код прослушивателя событий, который можно просмотреть в коде VBE from View>в представлении конструктора формы. Я имею в виду.

У меня есть код в событии Before_Update, для сохранения изменений. Для этого я использую Msgbox с подсказкой YesNoCancel, но я не могу предотвратить закрытие формы, когда я нажимаю кнопку отмены.

Как показано на рисунке ниже, одно изображение плохо совмещается с другим, что приводит к дублированию сосудов. Как мне избавиться от дублирования? В настоящее время я занимаюсь сшиванием, сначала я.

Я работаю над преобразованием устаревшего приложения из MS Access / VBA в C#. мягко говоря, есть некоторые проблемы с качеством устаревшего кода. Есть по крайней мере одно место в коде VBA, которое.

Я уверен, что это очень просто, но я не могу найти его. В случае закрытия формы доступа, как я могу отменить закрытие формы? У меня есть тест, который подсчитывает записи в таблице. Если в этой.

У меня есть мое приложение, где есть тысячи страниц. Я нашел проблему, когда я размещаю некоторые значения через форму и делаю их записи в базе данных. Но когда я обновляю страницу, это приводит к.

Мое приложение предназначено для открытия нескольких экземпляров одной и той же формы ‘Request’. На графике при нажатии на определенную кнопку в форме может произойти ряд действий по обновлению, за.

Я вроде как новичок в программировании MS-Access & VBA. Я разработал многопользовательское приложение в MS-Access 2016 и VBA и преобразовал его в accdb. Мне нужно получить значение, которое я.

У меня есть форма в Access, где у меня есть 2 несвязанных списка множественного выбора, с некоторым кодом для перемещения элементов между ними. Каждое из полей в таблице, которые отображаются в.

Ссылка на основную публикацию
Adblock
detector