Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.05.2010, 21:54   #1
timesoon
Пользователь
 
Регистрация: 02.05.2010
Сообщений: 22
По умолчанию Убрать запрос на обновление данных

Доброго времени суток, access изучаю недавно, подскажите плз как сделать так чтоб при обновлении данных в поле, не выходило окно с подтверждением этого действия. Например в поле "Тип населенного пункта" я выбираю "Деревня" и мне нужно чтоб в поле "Населенный пункт" появилась буква "д." (В смысле д. - это типа как деревня, а само название деревни уже ручками вбивать, ну не в этом дело собственно) без окна, запрашивающего подтверждение на обновление данных в этом поле, а также при закрытии формы выходит окно с названием "Конфликт записи" и предлогает мне 3 действия на выбор одного из них , чтоб оно выходило тоже не желательно, выкладываю сам пример, заранее благодарен за помощь.
primer.zip
timesoon вне форума Ответить с цитированием
Старый 24.05.2010, 22:51   #2
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте timesoon.
"убрать" подтверждения в А2000 (А2003) можно в меню Сервис \ Правка и помск \ Подтверждения .....
в Вашей конструкции избыточное обновление данных
DoCmd.RunSQL ("Update Данные Set [Населенный пункт]= ...'запрос на обновление данных в таблице
[Forms]![Данные]![Населенный пункт] = ...'обновление поля формы связанного с таблицей.
Вполне достаточно так...
Код:
Private Sub Тип_населенного_пункта_AfterUpdate()
Dim s$
s = Me.[Тип населенного пункта] & ""
Select Case s
Case "Город": s = "г. "
Case "Село": s = "с. "
Case "Деревня": s = "д. "
Case Else: s = Empty
End Select
Me.[Населенный пункт] = s
End Sub
или так...
Код:
Private Sub Тип_населенного_пункта_AfterUpdate()
Dim s$
s = Me.[Тип населенного пункта] & ""
Me.[Населенный пункт] = IIf(Len(s) = 0, Empty, LCase(Left(s, 1)) + ". ")
End Sub
Евгений.

Последний раз редактировалось Teslenko_EA; 24.05.2010 в 23:00.
Teslenko_EA вне форума Ответить с цитированием
Старый 25.05.2010, 12:28   #3
timesoon
Пользователь
 
Регистрация: 02.05.2010
Сообщений: 22
По умолчанию

Премного благодарен, выручили!
timesoon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
запрос на обновление ww01031977 Microsoft Office Access 1 30.04.2010 16:07
Убрать запрос пароля в базе InterBase slipknot666max Помощь студентам 4 17.12.2009 22:18
запрос на обновление warshadow Microsoft Office Access 13 03.10.2009 16:56
убрать запрос на обновление полей ruavia3 Microsoft Office Excel 4 28.07.2009 11:19
sql-запрос на обновление Alter1989 БД в Delphi 7 12.05.2009 14:43