Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Невозможно обновить поле / 8 сообщений из 8, страница 1 из 1
24.07.2018, 13:09
    #39678231
volt
volt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Невозможно обновить поле
Добрый день!
Мне в наследство досталась БД, которую надо оптимизировать - перевести на odbc с работой через MS SQL Server.

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

Каким образом решить данную ошибку? Заранее спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2018, 13:20
    #39678241
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Невозможно обновить поле
volt,
имеется ли у этой формы модуль(обработка событий) или макросы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2018, 14:04
    #39678287
volt
volt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Невозможно обновить поле
sdku,
Имеются
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2018, 14:31
    #39678315
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Невозможно обновить поле
volt,
ну так и смотрите событие Current для формы (для новой записи и для всех остальных) и Change для полей. А лучше покажите модуль и еще-источник таблица или запрос?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2018, 14:51
    #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, 15:18
    #39678353
Tarasios
Tarasios
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Невозможно обновить поле
volt,
Предположу, что форма для создания новой пустой записи достаточно простая.
Потому попробуйте создать свою новую аналогичную форму заместо "потенциально глючной".
И тогда либо проблема решится сама собой, либо точно будете знать, где собака порылась.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.07.2018, 15:23
    #39678356
Tarasios
Tarasios
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Невозможно обновить поле
volt,

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


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