ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Невозможно обновить поле
8 сообщений из 8, страница 1 из 1
Невозможно обновить поле
    #39678231
volt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volt
Гость
Добрый день!
Мне в наследство досталась БД, которую надо оптимизировать - перевести на odbc с работой через MS SQL Server.

В данной БД есть одна форма. при выполнении команды "Новая (пустая) запись" возникает следующая ситуация: при внесении изменения в любое поле формы выдается ошибка: "невозможно обновить поле" - после этого форма переводится в режим редактирования и продолжается работа корректно.

Каким образом решить данную ошибку? Заранее спасибо
...
Рейтинг: 0 / 0
24.07.2018, 13:09
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678241
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
volt,
имеется ли у этой формы модуль(обработка событий) или макросы?
...
Рейтинг: 0 / 0
24.07.2018, 13:20
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678287
volt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volt
Гость
sdku,
Имеются
...
Рейтинг: 0 / 0
24.07.2018, 14:04
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678315
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
volt,
ну так и смотрите событие Current для формы (для новой записи и для всех остальных) и Change для полей. А лучше покажите модуль и еще-источник таблица или запрос?
...
Рейтинг: 0 / 0
24.07.2018, 14:31
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678329
volt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
volt
Гость
sdku,

Вот код обработки Current
 
Код: vbnet
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.
Private Sub Form_Current()
    
Private Sub Form_Current()
    
    Me.ЗаказыПоДоговорамПод.Form.OrderByOn = False
    Me.Счет_в_дог.Form.OrderByOn = False

If Флажок100 = True Then
Utv = True

Me.AllowEdits = False
Me.ЗаказыПоДоговорамПод.Form.AllowEdits = False
Me.ЗаказыПоДоговорамПод.Form.AllowAdditions = False
Me.ЗаказыПоДоговорамПод.Form.AllowDeletions = False
'Me.ЗаказыПоДоговорамПрим.Form.AllowEdits = False
'Me.ЗаказыПоДоговорамПрим.Form.AllowAdditions = False
'Me.ЗаказыПоДоговорамПрим.Form.AllowDeletions = False
Me.ИзменениеДог.Visible = True
'Me.ПредВариант.Visible = True
Me.Дублировать.Visible = True
'Me.ЗаказыПоДоговорамПод.Form![ЦенаПересчет].Visible = False
'Me.ЗаказыПоДоговорамПрим.Form![КодИзделия].RowSource = "АссортВсе"
Me.ЗаказыПоДоговорамПод.Form![КодИзделия].RowSource = "АссортВсе"

Else
Utv = False
Me.AllowEdits = True
Me.ЗаказыПоДоговорамПод.Form.AllowEdits = True
Me.ЗаказыПоДоговорамПод.Form.AllowAdditions = True
Me.ЗаказыПоДоговорамПод.Form.AllowDeletions = True
Me.ЗаказыПоДоговорамПод.Form![КодИзделия].RowSource = "АссортНов"

'Me.ЗаказыПоДоговорамПрим.Form.AllowEdits = True
'Me.ЗаказыПоДоговорамПрим.Form.AllowAdditions = True
'Me.ЗаказыПоДоговорамПрим.Form.AllowDeletions = True
'Me.ЗаказыПоДоговорамПрим.Form![КодИзделия].RowSource = "АссортНов"
'Me.ЗаказыПоДоговорамПод.Form![ЦенаПересчет].Visible = True

Me.ИзменениеДог.Visible = False
'Me.ПредВариант.Visible = False
Me.Дублировать.Visible = False
    If IsNull(Me.КодДог) Then
    Me.ЗаказыПоДоговорамПод.Form.AllowAdditions = False
    'Me.ЗаказыПоДоговорамПрим.Form.AllowAdditions = False
    End If

Me.Флажок100.SetFocus

'Me.Form!ЗаказыПоДоговорам.AllowEdits = False
End If
If IsNull(Me.КодДог) Then
Me.Caption = "ДоговораСоздание"
Else
Me.Caption = Me.НомДог
End If

End Sub
End Sub


Свойство Внесены изменения нигде не прописано
...
Рейтинг: 0 / 0
24.07.2018, 14:51
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678353
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
volt,
Предположу, что форма для создания новой пустой записи достаточно простая.
Потому попробуйте создать свою новую аналогичную форму заместо "потенциально глючной".
И тогда либо проблема решится сама собой, либо точно будете знать, где собака порылась.
...
Рейтинг: 0 / 0
24.07.2018, 15:18
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678356
Фотография Tarasios
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Tarasios
Участник
volt,

проглянул ваш код
Там громоздко наворочено на тему запретов/разрешений на редактирование по условиям.
Не факт, что код идеален.
Удалите заремленный код (для читабельности) и просто пройдитесь по условиям и их выполнению.
Там всего то три простеньких условия прописаны, ничего трудного.
...
Рейтинг: 0 / 0
24.07.2018, 15:23
| Ответить | Цитировать | Написать  
Невозможно обновить поле
    #39678368
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
А почему Private Sub Form_Current() и End Sub дважды (процедура внутри процедуры-или как это понимать?)
...
Рейтинг: 0 / 0
24.07.2018, 15:38
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Невозможно обновить поле
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39678329&tid=1611294]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 61ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 283ms
total:  422ms
созд. / загр.: 422ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]