Записи с меткой 'Модули'
Суббота, 2 мая 2009 |
Иногда это необходимо для предотвращения форме открытой, если существуют записи, чтобы показать, например, при выполнении запросов и без регистрации не требуется, мы не должны быть открыты формы, поскольку у нас нет данных для отображения. Итак, что мы должны проверить, существуют ли записи, чтобы показать и, если не показывать сообщение и препятствуют форме открытой. Как?
Легко просто поместите код в виде свойства в случае 'открыть':
= 0 Then Если Form.RecordsetClone.RecordCount
MsgBox "Записи не найдены.", VbExclamation, "Ошибка!"
DoCmd.Close acForm "найти данные"
Выход Sub
End If
Чтобы увидеть пример загрузки: Предотвращение форме открытого
Добавлено в примерах , форм , модулей | 2 Комментариев »
Четверг, 11 декабря 2008 |
1 - Создание формы заказа в структуре и события "Щелчок" на свойства формы введите следующую команду: me.keypreview = True
Или это сделает событий клавиатуры поступают в первый класс.
2 - в виде свойства "кнопку ниже, чтобы" событие вставьте следующий код:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Выберите Дело KeyCode
Дело vbKeyF2
DoCmd.OpenForm "Form1"
Дело vbKeyF3
DoCmd.OpenForm "Form2"
Дело vbKeyF4
DoCmd.OpenForm "formulario3"
Дело vbKeyF5
As Double Dim калькулятор
Калькулятор = Shell ("calc.exe", vbNormalFocus)
Дело vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub
Что это делает следующее:
- Нажав клавишу F2 открывает form1
- Нажав клавишу F3 открывается Form2
- Нажав клавишу F4 открывает formulário3
- При нажатии клавиши F5 открывает калькулятор Windows
- Нажав клавишу F6 закрывает форму
В дополнение к клавише F1 функция, F2 ... и т.д., мы можем также использовать любой другой кнопки для выполнения функций, но имея в виду, что если мы хотим ввести данные в форме, не подходит для использования ключей, которые используются для записи данных в полях.
Другое дело, что он работает только на форму, где вы ставите выше кодов.
Скачать: Ключи
Добавлено в примерах , форм , модулей | 1 Комментарий »
Суббота, 20 сентября 2008 |
Это своего рода меню, что позволяет нам экономить время, строк кода и лучше расположение с точки зрения открытых форм, так как при этом меню просто необходимо открытом виде. В дополнение к сокращению количества открытых форм также уменьшает количество кнопок в меню, чтобы открыть каждому форме.
Этот тип меню, конечно, который существовал в течение некоторого времени, и уже используется многими пользователями доступа.
Так, где это меню?
Давайте создадим меню, используя поле со списком, который содержит все формы, которые мы планируем открыть через него. Когда вы выбираете опцию из выпадающего списка заявки отображаются в подчиненной форме. Потом мы начинаем делать меню шаг за шагом.
1 - Давайте создадим таблицу, где мы будем хранить имя, которое вы хотите, чтобы каждая форма и название формы, которая откроется. В этом примере я создал "tblmenu" таблицу со следующими полями:
Тип поля
Nomedomenu текста -> Имя, которое будет видно в меню (список)
формирование текста -> Название вида, который откроет
После того как данные введены в примере:
Форма NomedoMenu
Счета Form1
Депозиты Form2
Движение formulario3
Счет-Box formulario4
Счет-счет formulario5
Извлечение formulario6
2 - Затем мы создаем запрос из предыдущей таблицы:
Tblmenu выбрал таблицу, а затем выбрать два поля, в которых мы выбрали для восхождения рода nomedomenu легче найти в меню довольно много раз, когда мы хотим, чтобы открыть формы. В этом запросе я назвал "CsMenu.
3 - давайте создадим «Меню» виде, то есть выбрать новую форму в режиме конструктора. Затем мы создаем поле со списком и измените следующие свойства:
- Количество колонок: 2
- Ширины столбцов: 1 см, 0cm;
- Происхождение линии: csmenu (это имя запроса созданный в предыдущем пункте)
4 - в той же форме мы создадим подчиненной несвязанных главной формы (В примере я назвал menuquadro). Именно эта форма, которая будет открывать каждую из форм, чтобы выбрать из меню (выпадающего списка).
5 - Теперь создадим модуль, который позволит нам открыть меню, выбранного в поле со списком в подчиненной форме.
Мы создали модуль (который я назвал "abrirmenu) и вставить следующий код:
Общественный AtivarMenu функции (Combmenu ComboBox, subabrir подчиненной)
Abrirform As String Dim
= Abrirform Combmenu.Column (1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
После переезда в свойствах поля со списком в форме меню и после обновления событие поставить создана функция: ativarmenu = ([меню], [menuquadro]), что «Меню» это имя в поле со списком и «menuquadro" имя подчиненной.
И, наконец, меню готово к использованию. Просто попробуйте и использования. Надеюсь, вам понравился этот совет.
Скачать: меню
Ниже картина меню.
Пользовательские меню
Добавлено в примерах , форм , модулей | 12 Комментариев »
Вторника, 6 Мая 2008 |
Этот пример показывает, как система управления для обеспечения платежей.
Приведенный пример показывает, что это, это создать и автоматически нажатием одной кнопки, выгоды от договора купли-продажи через введенные данные. То есть, мы вводим имя клиента до даты начала контракта и общей суммы задолженности. Затем просто нажмите кнопку "рассчитать платежи", что автоматически генерирует количество выплат и делит значение, указанное каждым из них и вычисляет дату каждой партии (один месяц). Это также пример, который демонстрирует, как добавить несколько записей одновременно, потому что, когда вы нажмете на кнопку добавляется запись для каждого выгоду.
Скачать: вставить несколько записей
Добавлено в даты , образцы , формы , Модули , записи | 17 Комментариев »
Субботу, 29 Марта 2008 |
Это пример из области применения, что Соня читатель предназначен для записи базы данных, данных животных. Это просто база данных только с формой для ввода данных с фотографиями животных.
Скачать: Animal Shelter
Любые изменения только комментировать.
Письменные формы , фото , модули , отчеты , таблицы | 11 Комментариев »
Среда, 20 февраля 2008 |
Есть несколько способов, чтобы ввести запись, и наиболее распространенным является получение через форму привязаны к столу. Еще один способ сделать это через связанных между собой областях, то есть, используя форму с полями независимых связаны с таблицей. К
ввести данные мы используем "записей", то есть с помощью кода, который в данном примере выглядит следующим образом:
Dim дБ базы данных
Dim RS Как записей
If MsgBox ("Вы хотели бы написать?" VbYesNoCancel, "Настройки") = vbYes тогда
"При нажатии на вопрос, сохранить ли запись или нет, если да, то код продолжается до конца
Установить дБ = CurrentDb ()
Set RS = db.OpenRecordset ("Данные", dbOpenTable)
"Откройте таблицу, чтобы вставить данные регистрации
rs.AddNew
RS ("имя") = Me! INome
RS ("адрес") = Me! Imorada
RS ("возраст") = Me! Iidade
rs.Update "посылает данные в таблицу
rs.Close "Очистить данные и закрывает записей
Установить RS = Nothing
Установите дБ = Nothing
Me.INome = Null 'очищает поля в форме
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Запись сохранена", vbInformation "Готово" 'Display подтверждение
Me.INome.SetFocus "переместите курсор в первое поле
Остальное: Sub выход
End If
Скачать: Место независимых
Добавлено в примерах , форм , модулей , отчетов , таблиц | Нет комментариев »
Вторнику, 19 февраля 2008 |
Этот пример показывает, как выполнить расчеты по часам. Это полезно для тех, кому нужно знать, сколько времени прошло между временем начала и окончания. Это не достаточно, чтобы сделать вычитание время окончания времени начала, потому что, если конец времени перехода от одного дня к следующему счета больше не будет правильным, например:
Время начала: 23:00:00
Время завершения: 2:00:00
Время окончания - начало Time = 2:00:00 до 23:00:00 = -21:00:00
Очевидно, что это не так просто работать со временем, потому что тогда, вместо того, три часа, чтобы правильный результат будет неправильно -21 часов.
Чтобы обойти этот период происходит изо дня в день мы должны проверить в первую очередь, если конец времени больше, чем время начала, что больше, то расчет: Время окончания - начало времени.
Если вам не исполнилось, то мы должны сделать расчеты другим способом, а именно:
Время начала: 23:00:00
Время завершения: 2:00:00
Время звучания: 23:59:59
Хит: 00:00:01
Основное, что мы делаем это добавить к стоимости 24:00:00 вычитание, чтобы дать нам правильное трех часов. То есть:
Время окончания - время начала + Всего часов + Хит = 2:00:00 до 23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Скачать: исчисление со временем
Добавлено в примерах , формы , часы , модули | 20 Комментариев »
Среды, 6 Февраль 2008 |
Этот пример показывает, как выбрать дату с помощью всплывающего календаря. То есть, как модуль и может служить выберите дату, это календарь. В этом примере мы можем выбрать дату, нажав на кнопку рядом с полем даты или нажав правой кнопкой мыши в поле даты. Таким образом, для ввода даты очень практично, так как позволяет нам увидеть, календарь и выбрать лучший день вы хотите.
Скачать: PopUp календарь
Добавлено в даты , образцы , формы , модули | 1 Комментарий »
Воскресенью, 27 января 2008 |
Обычно, когда мы запустили центральную кнопку мыши на форму, изменить журнал доступа. В некоторых ситуациях это может быть полезно, что не бывает.
В этом примере используется модуль в случае форма для загрузки, чтобы запретить пользователю перемещаться по записям с помощью прокрутки мыши. Для проверки можно использовать колесо мыши (средняя кнопка), чтобы увидеть, что не изменяет регистрацию.
Скачать можно здесь: Колесо мыши
Добавлено в примерах , форм , модулей , мыши , отчеты | Нет комментариев »
Понедельник, 21 Января 2008 |
В этом примере используется модуль, который скрывает доступ к Microsoft главного окна, оставляя только окно формы видимыми.
Для использования данного модуля мы должны использовать следующую команду на открытие случае форма: вызов fsetAccessWindow (SW_HIDE).
Чтобы проверить, на примере этого downloa: Манипулирование окна Acces
Добавлено в примерах , форм , модулей | 8 Комментариев »
