Записать одно значение в поле для отобранных записей и не могу создать .mde,.accde

@Scrat2005 · Регистрация: 04.01.2017

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

Доброго времени суток, господа гуру!!!

Снова не смог сформулировать правильно тему, прошу простить и понять меня заранее.
Хочу скопом заполнить поле... Возможно в таком виде?

Мне кажется картинка будет нагляднее чем текст.Прилагаю:

mobile · 15.07.2017, 20:34

На кнопке код (с точностью до имен полей, имени подформы)

Visual Basic
1
2
3
4
5
6
7
8
9
10
With Me.ИмяПодформы.form.recordset
  if .eof then exit sub 'На случай пустого рекордсета
  .movefirst  
  do until .eof  
    .edit
    !Status_Zkz=Me.СтатусЗаказчика
    .update
    .movenext
  loop
End with

@Eugene-LS · 15.07.2017, 21:57

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

На кнопке код (с точностью до имен полей, имени подформы)

Я бы ещё добавил MsgBox - подтверждения (возможно с RecordCouunt), на случай случайного нажатия кнопки.

@Scrat2005 · 15.07.2017, 22:17 **[ТС]**

Спасибо уважаемые гуру! СУПЕР!!!

@Scrat2005 · 15.07.2017, 22:32 **[ТС]**

Дабы не плодить тему. Вопрос.
У меня разделенная база. Таблицы лежат на сервере, формы на клиентах.
1. Такая БД какие таит непонятки?
2. Обновление данных мгновенно. Т.е. Менеджер ввел изменения, добавил новую запись и т.д., а Директор по продажам
видит эти изменения не переоткрывая форму. Что нужно для этого?
3. У меня акс2010 Pro. Не могу создать .mde,.accde. В чем может быть причина?

@Scrat2005 · 15.07.2017, 22:45 **[ТС]**

Блин ошибка. Пишет на первую запись....

@Eugene-LS · 15.07.2017, 23:11

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

а Директор по продажам
видит эти изменения не переоткрывая форму. Что нужно для этого?

Смотрите Form.Refresh Method (Access)
Можно вызывать по таймеру ...

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

Не могу создать .mde,.accde. В чем может быть причина?

Не знаю - загадка - в первые про такое читаю.
Выложите пример базы - посмотрим.

mobile · 15.07.2017, 23:45

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

У меня акс2010 Pro. Не могу создать .mde,.accde. В чем может быть причина?

Есть 2 предположения:
- mde/accde очень чувствительны к формам. Не исключено, что в какой-то из форм есть скрытая ошибка (или неудаляемый мусор) и это не позволяет создать скомпилированный файл. Как правило в таких случаях помогает импорт БД в новую чистую базу и ее уже в мде
- в коде очень много макрокоманд. Не макросов, а именно макрокоманд выполняемых объектом Docmd. Макрокоманды могут забить стек команд при компиляции, что вызовет цепь ошибок и неясно какая из них будет представлена пользователю. К сожалению, ВБА и Access не всегда правильно диагностируют ошибку. Если дело в этом, то надо попытаться уменьшить количество макрокоманд. Например, заменить операциями с рекордсетом формы, если это возможно. Или создавать универсальные обработчики, пригодные для многих случаев

@Eugene-LS · 16.07.2017, 00:00

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

Не могу создать .mde,.accde. В чем может быть причина?

В редакторе VBE выведите на панель инструментов кнопочку Debug
(см. картинку)
И почаще на неё нажимайте (после редактирования кода)
Это я рекомендую всем и сам пользую.

@Scrat2005 · 16.07.2017, 09:26 **[ТС]**

Сообщение от Eugene-LS

Не знаю - загадка - в первые про такое читаю.
Выложите пример базы - посмотрим.

Доброе утро Евгений! Пример базы лежит выше в посте #1

Добавлено через 10 минут
mobile, Спасибо. Это пипец. Все что Вы сказали для меня это китайская грамота.
попутно вопрос: а как посмотреть какое значение присвоилось переменной? Иногда для анализа ошибок очень удобно смотреть. в Immadiate можно?

mobile · 16.07.2017, 09:31

Все оказалось гораздо проще - БД была не откомпилирована и в ней были ошибки. В частности процедура в подчиненная форма ЗапросПредварительный ошибка. Закомментил команду и создалось accde

Visual Basic
1
2
3
Private Sub Name_project_Click()
'  Поле168 = Name_project
End Sub

@Scrat2005 · 16.07.2017, 09:51 **[ТС]**

mobile, Почему пишет в первую запись???

PureBasic
1
2
3
4
5
6
7
8
9
10
With Me.ИмяПодформы.form.recordset
  if .eof then exit sub 'На случай пустого рекордсета
  .movefirst  
  do until .eof  
    .edit
    !Status_Zkz=Me.СтатусЗаказчика
    .update
    .movenext
  loop
End with

@Scrat2005 · 16.07.2017, 09:56 **[ТС]**

Спасибо, Мобайл!!!
а компилировать надо через дебаг-компиле, Правильно? Если так, то я частенько, вернее после каждого изменения делаю компиляцию. Странно. Но мне такую ошибку не выдавало...

mobile · 16.07.2017, 10:15

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

mobile, Почему пишет в первую запись???

Потому что Вы не создали процедуру на Кнопка17 в форме AllBase. Создал. Записал туда код с правильными именами. Работает.

Кстати, я бы статус заказчика (Поле15) сделал бы полем со списком на основе таблицы Status_zkz. Было бы значительно удобнее. Переделывать не стал. Не знаю Ваших задумок.

@Scrat2005 · 16.07.2017, 10:33 **[ТС]**

Я думал об этом в самом начале создания БД. Но народ сказал, что будут ручками сами писать или с екселя копировать.
Я пытался их отказаться от екселя...Но как грится, привыяка сильнее болезни. Поэтому и оставил так, как они хотят, им вроде как удобнее....

Добавлено через 3 минуты
предыдущий мой пост, ответ к этому:

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

Кстати, я бы статус заказчика (Поле15)

@Scrat2005 · 16.07.2017, 10:41 **[ТС]**

Вот так я прописал на кнопку17. А в базе которую, я вылоложил сюда, там да действительно не было никаких событий на Кнопке17. Потому я и задал вопрос, как мол сделать. Я просто набросал на форму поле и кнопку пустые...)))

@Scrat2005 · 16.07.2017, 10:56 **[ТС]**

вот прилагаю картинку...

@Scrat2005 · 16.07.2017, 17:03 **[ТС]**

Все таки пишет в первую строку. Хотя я же отфильтровал записи блин. Есть идеи? Непонятно почему не переходит на первую строку отобранной записи. Сделал пошаговое выполнение..может возвращается после

If .EOF Then Exit Sub
.MoveFirst

на первую строку все таблицы, а не на первую строку отобранной записи???

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Кнопка17_Click()
With Me.ИмяПодформы.Form.Recordset
  If .EOF Then Exit Sub На случай пустого рекордсета
  .MoveFirst
  Do Until .EOF
    .Edit
    !Status_Zkz = Me.Поле15
'If MsgBox("Вы действительно хотите внести изменения?", vbOKCancel) = vbOK Then
    .Update
    .MoveNext
 
'Else
'Me.Undo
'End If
Loop
End With
End Sub

mobile · 17.07.2017, 12:48

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

Все таки пишет в первую строку.

Где в первую строку? В моем варианте? Это вряд ли. Если в Вашем и разобраться не получается, выкладываете БД на форум, попробуем разобраться. Только точно указываете куда смотреть, что открывать, что нажимать.

@Scrat2005 · 17.07.2017, 13:33 **[ТС]**

Значения записываются в поле "Status_Zkz" .
---
инет достал сегодня. Скорость ваще никакая...Кошмар.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	15.07.2017, 22:17 [ТС]
	Спасибо уважаемые гуру! СУПЕР!!! 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	15.07.2017, 22:32 [ТС]
	Дабы не плодить тему. Вопрос. У меня разделенная база. Таблицы лежат на сервере, формы на клиентах. 1. Такая БД какие таит непонятки? 2. Обновление данных мгновенно. Т.е. Менеджер ввел изменения, добавил новую запись и т.д., а Директор по продажам видит эти изменения не переоткрывая форму. Что нужно для этого? 3. У меня акс2010 Pro. Не могу создать .mde,.accde. В чем может быть причина? Миниатюры 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	15.07.2017, 22:45 [ТС]
	Блин ошибка. Пишет на первую запись.... Миниатюры 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	16.07.2017, 09:56 [ТС]
	Спасибо, Мобайл!!! а компилировать надо через дебаг-компиле, Правильно? Если так, то я частенько, вернее после каждого изменения делаю компиляцию. Странно. Но мне такую ошибку не выдавало... 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	16.07.2017, 10:41 [ТС]
	Вот так я прописал на кнопку17. А в базе которую, я вылоложил сюда, там да действительно не было никаких событий на Кнопке17. Потому я и задал вопрос, как мол сделать. Я просто набросал на форму поле и кнопку пустые...))) Миниатюры 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	16.07.2017, 10:56 [ТС]
	вот прилагаю картинку... Миниатюры 0