Обновление нескольких полей с одинаковым значением через VBA в разделенной форме

@kpevetko · Регистрация: 25.10.2017

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

Добрый день Уважаемые обитатели сего славного форума! Пользуюсь Access 2010.

Необходима помощь в создании функции обновления нескольких записей через форму.

Через запрос на обновление неудобно и для пользователей сложно. В приложенной БД имеется Разделенная форма «changeOut». В форме имеется поиск по подключенной таблице по Номеру входящего сообщения. Дело в том, в каждом Входящем сообщении имеется по несколько кандидатов для работы с ними. Следовательно для каждого кандидата требуется по окончанию работы проставлять Дату исходящего сообщения и Номер исходящего сообщения. Проблема в том что когда таких кандидатов по 1 сообщению не более 2-3 можно изменить информацию прямо в форме. Однако, если таких кандидатов по 60-70 человек очень сложно и не удобно проставлять Дату и Номер исходящего для каждого.

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

Заранее спасибо за помощь!

@kpevetko · 25.11.2017, 14:52 **[ТС]**

Писал так в VBA:

Visual Basic

Private Sub Кнопка0_Click()
 
Dim strText As String
strtext = me.способвход.value
 
CurrentDb.Execute "UPDATE Кандидаты" & _
"SET Номер_Исх = me.СпособИсх.value" & _
"WHERE Номер_Вход = strtext"
End Sub

@Capi · 25.11.2017, 16:22

Ошибки.
Нет пробелов, не на месте параметры отбора.
Попробуйте:

Visual Basic

1
2
3

CurrentDb.Execute "UPDATE Кандидаты " & _
                  "SET Номер_Исх=" & me.СпособИсх & " " & _
                  "WHERE Номер_Вход=" & способвход

Нужно будет добавить кавычки, если Номер_Исх и/или Номер_Вход - текстовые.

@kpevetko · 25.11.2017, 16:37 **[ТС]**

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

Ошибки.
Нет пробелов, не на месте параметры отбора.
Попробуйте:

Visual Basic

1
2
3

CurrentDb.Execute "UPDATE Кандидаты " & _
                  "SET Номер_Исх=" & me.СпособИсх & " " & _
                  "WHERE Номер_Вход=" & способвход

Нужно будет добавить кавычки, если Номер_Исх и/или Номер_Вход - текстовые.

Да, значения текстовые, но не выходит, судя по всему что-то делаю не так.

@Capi · 25.11.2017, 17:02

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

Да, значения текстовые, но не выходит, судя по всему что-то делаю не так.

А что Вы делаете? Кавычки поставили, как сказано было?

Visual Basic

1
2
3

CurrentDb.Execute "UPDATE Кандидаты " & _
                  "SET Номер_Исх=""" & me.СпособИсх & """" & _
                  "WHERE Номер_Вход=""" & способвход & """"

@kpevetko · 25.11.2017, 18:52 **[ТС]**

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

А что Вы делаете? Кавычки поставили, как сказано было?

Visual Basic

1
2
3

CurrentDb.Execute "UPDATE Кандидаты " & _
                  "SET Номер_Исх=""" & me.СпособИсх & """" & _
                  "WHERE Номер_Вход=""" & способвход & """"

Так, да, я понял свою ошибку (не там поставил скобки). А вот еще 1 вопрос, в случае когда необходимо изменить сразу 2 параметра: 1) Текстовый, 2) Дата, как следует оформить?

	25.11.2017, 18:52

Обновление нескольких полей с одинаковым значением через VBA в разделенной форме

Решение