Перенос формулы MS Excel в MS Access

@Whirlwind · Регистрация: 18.01.2013

Студворк — интернет-сервис помощи студентам

Добрый день!
Прошу вашей помощи по переносу формулы из эксел в аксес.
Формула выглядит так:

Code
1
=ЕСЛИ(ИЛИ(I5="Россия";I5="Беларусь");N5+3;(ЕСЛИ(Q5>0;ЕСЛИ(ИЛИ(Q5="ок";Q5="ок Иванова");СЕГОДНЯ();Q5);N5+14)))

Формула содержится в ячейках столбца "План дата выезда"
В экселе выглядит так:

Гражданство	Дата прибытия по билетам	МУ	План дата выезда
Россия	20.01.2025 10:00		23.01.2025

Смысл формулы заключается в том:
- если в столбце "Гражданство" встречаются слова "Россия" или "Беларусь" или не заполнено, то к дате прибытия добавляется 3 дня
если не не встречаются, то к дате прибытия добавляется 14 дней
- если в столбце "МУ" стоит дата (не пустое, ручной ввод) и в столбце "Гражданство" отсутствуют слова "Россия" или "Беларусь", то дата дублируется в столбец "План дата выезда"
- если в столбце "МУ" встречаются слова "ок" или "ок Иванова" и в столбце "Гражданство" отсутствуют слова "Россия" или "Беларусь" или не заполнено, то устанавливается сегодняшняя дата в столбец "План дата выезда"

После получения искомой даты нужно получить число номер недели:

План дата выезда	неделя
23.01.2025	4
01.02.2025	5
13.02.2025	7

В экселе она выглядит так: =НОМНЕДЕЛИ(№ столбца)

Возможно ли это выполнить кодом в аксес?
Если да, то прошу содействия в написании кода для выполнения данной задачи.

@Whirlwind · 19.02.2025, 12:49 **[ТС]**

Значит автор нажал не ту иконку с языком программирования.
Посмеялись и ладно) этот вопрос уже не актуален.
Поясните что тут неправильно:

Visual Basic
1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
 Dim sql As String
sql = " Insert into tbl_ПВП (План дата выезда, неделя) "
sql = sql & " values(" & Me.План_дата_выезда.Value & "," & Me.неделя.Value & ")"
Debug.Print sql
End Sub

Ошибок нет, но записи не перенеслись

Может tbl_ПВП иначе записать?

@Eugene-LS · 19.02.2025, 13:31

Сообщение от Whirlwind

Может tbl_ПВП иначе записать?

01. Поле "План дата выезда" = названия поля с пробелами, необходимо оформлять квадратных или шестиугольных скобках.
02. Инструкция Debug.Print sql не исполняет запрос, но печатает его в Immedieate Window, необходима шестиугольная инструкция исполнения запроса, типа: CurrentDb.Execute ...

@Whirlwind · 19.02.2025, 13:40 **[ТС]**

Поправил...

@Eugene-LS · 19.02.2025, 14:23

Сообщение от Whirlwind

Поправил...

Значит ошибка в теле инструкции SQL.
Проверяйте, тут вам и потребуется Debug.Print sql.

...
Настаиваю на своём "шестиугольном" мнении из пост #16
Как писал великий древне-монгольский философ Геродот: "Тут вам не там ..."

@Whirlwind · 19.02.2025, 15:24 **[ТС]**

Обязательные поля не используются.
Теперь такие сообщения:
values(23.01.2025,4) это результат вычислений в форме, мне его и надо в таблицу скопировать.
Eugene-LS,

Сообщение от Eugene-LS

Настаиваю на своём "шестиугольном" мнении из пост #16

так я как бы готов, кто бы взялся, уже в личку начинаю писать) (см. ТГ в профиле)

@Eugene-LS · 19.02.2025, 16:20

Сообщение от Whirlwind

так я как бы готов, кто бы взялся

Дату в SQL нужно форматировать определённым образом, в русском варианте (как у вас сейчас) не воспринимает с ошибкой.
SQLDate = Format$(varDate, "\#mm\/dd\/yyyy\#")

Если "время терпит" (занят сильно пока, но не надолго), присылайте материал, описание точки входа на: 2867077@gmail.com
Посмотрю что можно сделать.

@Панург · 19.02.2025, 20:35

Whirlwind,

Сообщение от Панург

событие нужно После Обновления Формы /Form_AfterUpdate использовать для сохранения

@Whirlwind · 20.02.2025, 12:50 **[ТС]**

Панург,премного благодарен

Не разобрался как объявить второй Select Case, для поля "неделя", на этой же форме.
Затолкал в этот же Case, просчиталась только последняя запись.
Подправьте пожалуйста

@Whirlwind · 20.02.2025, 17:06 **[ТС]**

Сообщение от Whirlwind

Не разобрался как объявить второй Select Case, для поля "неделя", на этой же форме.

Отбой, данные не обновил. А можно этот код на открытие формы "повесить" (что бы не быть завязанным на обновлении полей)? Или так не делается?

Добавлено через 1 час 22 минуты
Отбой отбою

, всё таки надо второй Select Case прописать для "неделя".
Это сейчас получилось так, что если в поле "Гражданство" стоит значение "Россия" или "Беларусь", то поле "неделя" не заполняется.

@Панург · 20.02.2025, 17:52

Сообщение от Whirlwind

таки надо второй Select Case прописать для "неделя".

не надо ничего прописывать, там вычисляется в форме.

@Панург · 20.02.2025, 18:26

немного поправил вычисление дня недели - вычисляется в источнике данных формы

@Whirlwind · 21.02.2025, 08:41 **[ТС]**

Панург,

Сообщение от Панург

вычисляется в источнике данных формы

можете пальцем ткнуть

, где посмотреть

Мне бы надо так же как с ПланДатаВыезда переносить данные в таблицу поля "неделя". (поэтому я и спрашивал про второй Select Case)

@Панург · 21.02.2025, 10:24

Сообщение от Whirlwind

Мне бы надо так же как с ПланДатаВыезда переносить данные в таблицу поля "неделя". (поэтому я и спрашивал про второй Select Case)

Это просто вычисляется в запросе, ничего записывать не нужно. Посмотреть можно в форме (последний пример реализовано по-человечески, на сколько можно), самая последняя колонка с названием "Номер Недели"

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

сюда смотри

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_DblClick(Cancel As Integer)
Dim vBk
Me.Painting = False
vBk = Me.Bookmark
    With Me.Recordset
        If Not (.EOF And .BOF) Then
            .MoveFirst
            Do Until .EOF
                Call Form_AfterUpdate
                .MoveNext
            Loop
        End If
    End With
Me.Bookmark = vBk
Me.Painting = True
End Sub

Добавлено через 3 минуты
не надо его запускать каждый раз и ставить на события открытие формы или текущую запись. Это одноразово.

@Whirlwind · 21.02.2025, 11:15 **[ТС]**

Сообщение от Панург

ничего записывать не нужно

Так у меня задача перенести полученные данные на форме ПланДатаВыезда и неделя в соответствующие поля таблицы. Мне да же важнее перенос неделя.
Я вернул вычисление на форме в поле ПланДатаВыезда через построитель. А в VB (Form_AfterUpdate) написал так:

Visual Basic
1
2
3
4
5
6
Private Sub Form_AfterUpdate()
 Select Case Me.неделя
    Case "неделя"
        Call UpdateField(Me.неделя.ControlSource, DatePart("ww", (План_дата_выезда), 2))
    End Select
End Sub

Неделя вообще не рассчитывается. Где-то что-то упустил видимо

@Панург · 21.02.2025, 13:05

Сообщение от Whirlwind

Так у меня задача перенести полученные данные на форме ПланДатаВыезда и неделя в соответствующие поля таблицы. Мне да же важнее перенос неделя.

зачем тебе в таблицу запихивать неделю? что мешает смотреть в форме?

@Whirlwind · 21.02.2025, 13:38 **[ТС]**

Я дальше экспортирую эти данные из таблицы в excel и там строю сводный отчет.

@Панург · 21.02.2025, 13:59

Whirlwind, запрос тоже можно экспортировать

@Whirlwind · 21.02.2025, 14:19 **[ТС]**

Точнее не так, я делаю импорт таблиц в excel (через excel), формы нельзя импортировать.
По этому методу сохраняется связь таблиц в access и excel. В excel обновляю данные которые заносили через access и дальше сводная таблица сразу актулизируется.

@Панург · 22.02.2025, 15:39

Сообщение от Whirlwind

формы нельзя импортировать.

про запрос я уже сказал.сохрани источник формы как запрос и импортируй себе в эксель, а так же просматривай в форме.
Ты всегда хочешь импортировать одни и те же данные? Или как-то будешь выделять какой-то набор?

И вообще, с твоим подходом зачем тебе акцесс? сиди на экселе дальше...

@Whirlwind · 24.02.2025, 10:16 **[ТС]**

Сообщение от Панург

И вообще, с твоим подходом зачем тебе акцесс? сиди на экселе дальше...

Так это не мне нужно, а сотрудникам которые работают с этими данными. Они и работают в экселе, но у них постоянно траблы с файлом (общий доступ), то блокируют, то вообще файл рушат.

Сообщение от Панург

Ты всегда хочешь импортировать одни и те же данные?

Да.
Так-то можно и форму экспортировать, но через командное меню access даёт только по одной штуке и с заменой файла.

Сообщение от Панург

сохрани источник формы как запрос

Как это сделать? При создании запроса можно оперировать только таблицами. Или sql запросом можно и форму вызывать?

Новые блоги и статьи Все статьи Все блоги /
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .

@Whirlwind 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 49
	19.02.2025, 13:40 [ТС]
	Поправил... Миниатюры 0

@Whirlwind 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 49
	21.02.2025, 13:38 [ТС]
	Я дальше экспортирую эти данные из таблицы в excel и там строю сводный отчет. 0

@Панург Мы один, давай на "ты" 3858 / 1400 / 348 Регистрация: 16.06.2016 Сообщений: 3,300
	21.02.2025, 13:59
	Whirlwind, запрос тоже можно экспортировать 0

@Whirlwind 0 / 0 / 0 Регистрация: 18.01.2013 Сообщений: 49
	21.02.2025, 14:19 [ТС]
	Точнее не так, я делаю импорт таблиц в excel (через excel), формы нельзя импортировать. По этому методу сохраняется связь таблиц в access и excel. В excel обновляю данные которые заносили через access и дальше сводная таблица сразу актулизируется. 0