Модераторы: Akina

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Обновить данные в таблице средствами VB 
V
    Опции темы
NikolayBY
Дата 21.1.2006, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 26.12.2005

Репутация: нет
Всего: 1



Как обновить данные в таблице?
Есть форма, в ней подчиненна куда внесены некоторые данные, необходимо нажатием кнопки обновить эти данные в исходной таблице, при этом чтобы данная кнопка в этой форме стала бы в дальнейшем не доступной (выполнилась проводка), Должна быть еще одна кнопка, которая бы отменяла действия первой, после чего можно было бы опять добавить данные в подчиненную форму и опять выполнить проводку.
PM MAIL   Вверх
Papirus
Дата 23.1.2006, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Цитата(NikolayBY @ 21.1.2006, 11:23 Найти цитируемый пост)

Есть форма, в ней подчиненна куда внесены некоторые данные

Значит эти данные уже записаны в таблицу и кнопка сохранения не нужна.
Цитата(NikolayBY @ 21.1.2006, 11:23 Найти цитируемый пост)

Должна быть еще одна кнопка, которая бы отменяла действия первой

Эта кнопка должна просто удалить записи из таблицы, которая связана с подчиненной формой.

Код

CurrentDB.Execute "Delete From Table1 Where КодПроводки = " & Forms!MyForm.КодПроводки



PM MAIL ICQ   Вверх
Akina
Дата 23.1.2006, 12:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(NikolayBY @ 21.1.2006, 12:23 Найти цитируемый пост)

чтобы данная кнопка в этой форме стала бы в дальнейшем не доступной

Код

Private Sub ButtonXXX_Click
ButtonXXX.Enabled = False
...
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
NikolayBY
Дата 25.1.2006, 10:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 26.12.2005

Репутация: нет
Всего: 1



Цитата(Akina @ 23.1.2006, 12:21 Найти цитируемый пост)

Private Sub ButtonXXX_Click
ButtonXXX.Enabled = False
...
End Sub



Невозможно отключить элемент управления, пока на него установлен фокус ввода?
PM MAIL   Вверх
Akina
Дата 25.1.2006, 10:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(NikolayBY @ 25.1.2006, 11:55 Найти цитируемый пост)

Невозможно отключить элемент управления, пока на него установлен фокус ввода?

Конечно... а не догадаешься ли сам, что с этим сделать?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
NikolayBY
Дата 25.1.2006, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 26.12.2005

Репутация: нет
Всего: 1



Цитата(Akina @ 25.1.2006, 10:58 Найти цитируемый пост)

Конечно... а не догадаешься ли сам, что с этим сделать?



Вот наверное еслибы догадался, то не спрашивал бы!. А так вот прошу совета. Я не сталкивался с такой ситуацией и все мои попытки не приводят к положительным результатам. Опытным наверное это смешно, а мне вот не до смеха, а волосы на голове скоро вычешу все что остались.
PM MAIL   Вверх
Papirus
Дата 25.1.2006, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Цитата(NikolayBY @ 25.1.2006, 15:21 Найти цитируемый пост)

а волосы на голове скоро вычешу все что остались

Это будет серьезная утрата для форума. smile

В конце процедуры этой кнопки сделай передачу фокуса любому другому элементу управления. В обработке события получения фокуса Enabled = False этой кнопки + переменную которая будет определять, что это передача из процедуры кнопки...
Код


Public b As Boolean


Private Sub btn2_Click()
b = True
Me.txt2.SetFocus
End Sub

Private Sub txt2_GotFocus()
If b Then Me.btn2.Enabled = False
b = False
End Sub


Это сообщение отредактировал(а) Papirus - 25.1.2006, 17:03
PM MAIL ICQ   Вверх
Akina
Дата 25.1.2006, 17:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(NikolayBY @ 25.1.2006, 16:21 Найти цитируемый пост)

еслибы догадался, то не спрашивал бы!.

А где логика??? если тебе говорят
Цитата(NikolayBY @ 25.1.2006, 11:55 Найти цитируемый пост)

Невозможно отключить элемент управления, пока на него установлен фокус ввода

а отключить надо, значит фокус надо убрать. Просто убрать нельзя, значит отдать. А отдать нельзя, но можно заставить кого-то фокус взять. Все, SetFocus.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
NikolayBY
Дата 25.1.2006, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 26.12.2005

Репутация: нет
Всего: 1



Я передал фокус другой кнопке (Новая_накладная) и все вроде заработало, да вот не все!
Код
   
Private Sub ButtonXXX_Click
ButtonXXX.Enabled = False
Me.Новая_накладная.SetFocus
End Sub

Моя кнопка становиться не доступной и в новой форме тоже, когда закрываеш форму и вновь ее открываеш, она опять доступна во всех предыдущих формах, а вот надо чтобы она была не доступной только в редактируемой форме, а если открываеш новую, была доступной и когда закрываеш программу и открываеш вновь, на той форме что была обработана данной кнопкой, она была недоступной, а в новых доступной.
Это как в 1С, пока не провел накладную, ее можно редактировать и горит кнопка "провести", а когда уже провел ее, то уже и редактировать ее нельзя и кнопка становиться недоступной.

Это сообщение отредактировал(а) NikolayBY - 25.1.2006, 22:36
PM MAIL   Вверх
Papirus
Дата 26.1.2006, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Советую еще раз прочитать мой пост. И еще раз подумать нафига там глобальная переменная b. smile
PM MAIL ICQ   Вверх
Akina
Дата 26.1.2006, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(Papirus @ 26.1.2006, 10:30 Найти цитируемый пост)

И еще раз подумать нафига там глобальная переменная b.

Она не глобальная, а уровня модуля формы. В новом экземпляре формы она новая.

Переменную нужно разместить в common-модуле.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
NikolayBY
Дата 26.1.2006, 16:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 26.12.2005

Репутация: нет
Всего: 1



Вложен файл, допишите код для формы расходная кнопка Списать.
Может тогда соображу? в чем проблема! smile smile

Это сообщение отредактировал(а) NikolayBY - 26.1.2006, 16:52

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  _________.rar 113,84 Kb
PM MAIL   Вверх
Papirus
Дата 27.1.2006, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Цитата(Akina @ 26.1.2006, 09:42 Найти цитируемый пост)

Она не глобальная, а уровня модуля формы

Да. С уровнем я немного промахнулся. smile
PM MAIL ICQ   Вверх
Papirus
Дата 27.1.2006, 09:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Держи, Николай!

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  _________.rar 78,62 Kb
PM MAIL ICQ   Вверх
NikolayBY
Дата 27.1.2006, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 26.12.2005

Репутация: нет
Всего: 1



Цитата(Papirus @ 27.1.2006, 09:16 Найти цитируемый пост)

  _________.rar 78,62 Kb



Проблема не исчезла, я так понял, что фокус должен передоваться перенменной b, а передается кнопке "Новая накладна". При нажатии на "Списание", доступ "Списанию" становится не возможным и в текущей форме и в новой. Когда передаеш фокус переменной, выдает ошибку.
Извените, но проблема не решена.
Цитата(NikolayBY @ 25.1.2006, 17:23 Найти цитируемый пост)

Это как в 1С, пока не провел накладную, ее можно редактировать и горит кнопка "провести", а когда уже провел ее, то уже и редактировать ее нельзя и кнопка становиться недоступной.

А должна быть доступной когда нажимаеш кнопку "Новая накладная" и открывается новая накладная. smile
PM MAIL   Вверх
Закрытая темаСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »


 




[ Время генерации скрипта: 0.0657 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.