Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Access VBA

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 64 65 66 67 68

Открыть новую тему     Написать ответ в эту тему

Guest

BANNED
Редактировать | Цитировать | Сообщить модератору
   
 
Обсуждаем вопросы только по Access VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.

 

NB! Дублирующая тема VBA for Access закрыта во избежание путаницы. Оставлена эта, как более ранняя и имеющая больше сообщений.

Смежные темы:
Помощь в создании SQL-запросов: SQL запрос
Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
Программы » Word FAQ | Excel FAQ | Access FAQ
Прикладное программирование » Word VBA | Excel VBA
Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007
----------
Как в Access перместить запись из одной таблицы в другую (допустим по нажатию кнопки на форме)?

Отправлено: 18:31 05-09-2002 | Исправлено: ALeXkRU, 17:14 03-08-2021
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет. Возникла следующая проблема: Если кликнуть ПКМ по полю со значениями дат в ленточной форме (это вложенная форма) и в поле "Фильтр для" задать значение вида dd/mm/yyyy (в этом поле даты имеют именно такой формат) фильтр отработает нормально. Но вот если мы в поле основной формы (назовем его Filter) зададим значение вида dd/mm/yyyy то VBA почему то распознает значение поля как mm/dd/yyyy. Как заставить его фильтровать в нужном мне формате dd/mm/yyyy и почему происходит подмена формата? С региональными настройками все в норме.  

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 18:45 26-05-2010
zabum



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
strWhere & "([TvoePole] = " & Format(Me.txtFilter, conJetDate) & ")

Всего записей: 12 | Зарегистр. 14-03-2009 | Отправлено: 16:21 03-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо, но я уже давно решил.
Не [TvoePole], а твоя переменная. Как раз когда дата в поле - задать нужный формат даты не проблема. Проблемы начинаются когда дата передается в переменную. Если переменная определена как Date функция формат не помогает. Вышел из ситуации определив тип переменной как String. В этом случае с содержимым можно делать любые операции и формат не изменяется при передаче значения в переменную.

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 00:23 04-06-2010
mauar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как в форме создать вычисляемое поле, в котором отображалось бы количество дней, оставшихся до 1 января 2011 года.

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 20:22 06-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В свойстве данных этого поля:
=#01.01.2011#-Now()
При этом выставь формат поля - Фиксированный, число десятичных знаков - Ноль.

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 23:36 06-06-2010
mauar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Это вроде из экселя  в ассеss это не прокатывает
 
Добавлено:

Цитата:
В свойстве данных этого поля:
=#01.01.2011#-Now()
При этом выставь формат поля - Фиксированный, число десятичных знаков - Ноль.
 

Получилось, спасибо!!!
А как сделать на форме  с  кнопкой, при нажатии на которую случайным образом изменялся бы цвет фона формы?

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 00:58 07-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub BTN_Click()
    Me.OblastDanih.BackColor = Int((16777215 * Rnd) + 1)
End Sub
Где OblastDanih  это переименованная область данных. Событие, как ты понял, вешается на нажатие твоей кнопки.

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 11:52 07-06-2010
Wukuze

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, подскажите пожалуйста, короче есть база, где множество повторяющихся данных в одном из столбцов. Надо сделать выборку уникальных данных по этому столбцу, то есть если эти данные уже есть в выборке, то просто игнорировать их копии.

Всего записей: 112 | Зарегистр. 25-05-2007 | Отправлено: 12:21 07-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такая конструкция запроса будет иметь вид:
SELECT DISTINCT <Поле>
FROM <Таблица>;
Удобно создавать запрос в режиме конструктора, а когда нужна выборка уникальных значений переключаться в режим SQL и дописывать слово DISTINCT.

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 12:57 07-06-2010
mauar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть форма, на ней есть поле оклад, есть кнопка при нажатии на которую оклад должен увеличиться на 25% как это сделать?

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 23:25 07-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если тупо и по простому, то так:
Private Sub Button_Click()
    Me.TvoePole.value = Me.TvoePole.value * 1.25
End Sub

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 19:03 08-06-2010
corollansk

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
помогите разобраться!?!
вроде сделал по уму - основная таблица + 2 таблицы подстановки.
так вот: в отчетах иногда, вместо подставных значений выводятся их коды.
сейчас делаю запрос - получаю код, без вариантов.
как быть , помогите...

Всего записей: 3 | Зарегистр. 27-10-2009 | Отправлено: 07:10 09-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
иногда

Иногда или всегда? Отчет строится на основании запроса? В запросе ты просто указываешь связь по уникальным кодам между таблицами, а вот выборку из этих таблиц делаешь по их полям. Но даже если ты случайно вытащил код в запрос, ты можешь указать для поля в котором выводятся ошибочно "их коды" источник данных "Желаемое поле" из твоего запроса.  
В идеале - базу в студию (или фрагмент базы), сложно гадать на кофейной гуще.

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 11:42 09-06-2010
mauar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как сохранить сводную таблицу чтобы она открывалась при открытии (загрузки базы) в режиме сводной таблице, а не в обычном табличном режиме?

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 15:28 12-06-2010 | Исправлено: mauar, 16:41 13-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Открой таблицу в режиме конструктора, затем (Alt+Enter или...): Вид -> Свойства -> Режим по умолчанию -> "Сводная таблица"
Загружаться будет долго + так ты себя сильно ограничиваешь, лучше не сводную таблицу, а сводную таблицу в форме.

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 23:51 13-06-2010
mauar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть таблица с сотрудниками, в ней есть столбцы с сотрудниками и отделы в которых они работают, надо создать сложную форму для учёта сотрудников по отделам.  
То бишь отдел такой то и работают сотрудники такие то
Как это сделать?

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 15:16 14-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Эти все вопросы что ты задаешь, это что какой-то учебный курс?

Цитата:
и отделы  

Что такое "Отделы" это название столбца или содержимое столбца сотрудники? Опиши подробно название нужных тебе полей и их содержание. Какой вид должен быть у "сложной формы" (Например при выборе из списка "Отдела №1", в форме из общего количества сотрудников остаются только те, что работают в этом отделе; или к примеру можно воспользоваться для наглядности вложенной ленточной формой)?

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 17:24 14-06-2010
mauar



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Changeless
 
Есть таблица, в ней есть столбцы ФИО сотрудников и есть столбец отделы где эти сотрудники
работают, например инженерный отдел, экономический и так далее. Только поле Отдел
он у меня присоединенный из таблицы Отделы.
Насчет вложенной ленточной формы я не подумал, забыл, что то подзабыл как её сделать, если не сложно напомните пожалуйсто?

Всего записей: 134 | Зарегистр. 31-07-2006 | Отправлено: 18:05 14-06-2010
Changeless

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
в ней есть столбцы ФИО сотрудников  

Столбцы или столбец? Должен быть только один столбец со всем сотрудниками!
Я не зря спросил о виде "сложной формы", не нужно игнорировать мои вопросы. Вариантов решения задачи может быть очень много, описать все я немогу и совсем не обязательно использовать ленточную форму. Если тебе абсолютно все равно, то по простому можно сделать так:  
1) Создай форму с двумя объектами:
 - полем со списком (тип его источника сток установи на "Таблица или запрос" а источник сток вбей такой - SELECT SotrudnikName FROM TvoyaTablica ORDER BY SotrudnikName;  
 - список ( тип источника строк - список значений)
2) Далее можно пойти двумя путями -  программно задать этому списку свойство фильтр, указав в качестве значения значение поля со списком, или проще в источник сток вставить запрос вида - SELECT SotrudnikName FROM TvoyaTablica  
WHERE (((TvoyaTablica.Division)=[Forms]![TvoyaForma]![Имя твоего поля со списком]));
3) Возможна ситуация что при переключении отделений список обновлятся не будет, тогда нужно на событие "после обновления" твоего поля со списком повесить, например: Me.Имя списка.Requery
P.S. По хорошему это все делается программно - ADO или DAO RecordSet

Всего записей: 217 | Зарегистр. 28-09-2007 | Отправлено: 19:10 14-06-2010
Yorcfild



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть задание по Access: запросы, формы, отчеты.
 
Формы:  
 
1. На базе таблицы "студенты" и "общежитие" построить табличную форму "Студенты АП-группы" с полями "Фио", "Адрес" и "год рождения". Поле "Фио" должно содержать фамилию, имя и отчество студента, а поле "Адрес" - сведение об общежитии и комнате. Список должен быть отсортирован по фамилиям
 
2. На базе таблицы "студенты" и "общежитие" построить табличную форму " Девушки ММ" с полями: "Фио", "Курс", "Группа", "Адрес" и "дата рождения". Поле "Фио" должно содержать фамилию и имя студентки, а поле "Адрес" - сведение об общежитии и комнате. Список отсортировать по группам а потом по фамилиям.
 
3. Построить составную форму "Лучшие студенты" Главная форма должна содержать название предмета, а подчиненная форма - список студентов получивших по этому экзамену 4 и 5. Список должен включать "номер группы", "фамилию, имя" и оценку, и должен быть отсортирован по группам и фамилиям студентов.
 
4. Построить форму "списки групп", содержащую кнопки с номерами групп, При нажатии на кнопку должен появится список студентов соответствующей группы
 
Помогите пока построить эти формы  сама БД тут зеркало bd.accdb

Всего записей: 58 | Зарегистр. 01-08-2009 | Отправлено: 19:16 14-06-2010
Открыть новую тему     Написать ответ в эту тему

Страницы: 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 64 65 66 67 68

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Access VBA


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru