Перенос формулы 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 запросом можно и форму вызывать?

Новые блоги и статьи Все статьи Все блоги /
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .
сукцессия 25. Хронология ошибок anaschu 12.07.2026 # От 50-тонного гриба до устойчивого леса: хроника ошибок при построении модели вековой сукцессии микоризы ## О чём эта статья В процессе построения ОДУ-модели (система дифференциальных. . .	сукцессия 24. Промежуточное общее описание модели anaschu 12.07.2026 Хендофф: модель АМ→ЭКМ сукцессии микоризы (ризосфера, 50 лет) Содержание проекта Симуляция вековой (50 лет) экологической сукцессии в почве леса Основные участники: АМ-гриб, ЭКМ-гриб,. . .	сукцессия 23. Более физиологичная физиология, более экологичная экология, более диффурные диффуры. anaschu 12.07.2026 Что реально нашли и починили за эти 5 часов Правило Линдемана (КПД конверсии сахара в тело, kEff) — раньше 100% полученного углерода шло прямо в биомассу гриба; теперь только kEff=0. 5 (после. . .	сукцессия 22. От артефактов к физиологии: калибровка агентной модели грибной сукцессии для воспроизведения сезонной динамики и pH-плато anaschu 11.07.2026 Аннотация В данной работе представлена калибровка агентной модели динамики грибных сообществ (fungal-succession), направленная на устранение нефизичных артефактов (коллапс биомассы, мгновенное. . .

@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