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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> В VBA Взять из нужной формы нужное поле 
V
    Опции темы
BMNDED
Дата 15.2.2008, 15:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



В форме есть несколько полей(более 30), при нажатии кнопки данные из них закатуются в табличку, чтобы не писать код на присвоение каждого поля, пронумеровал их по порядку(L_PK_1,L_PK_2...L_PK_28), хотел циклом. Но Naim воспринимается как имя поля, можно ли это как нить обойти?


Dim i As Integer 
Dim Naim As String
Dim Vs As Recordset

...

i=1

...
do
...
    Naim = "L_PK_" & i
    Vs!Pokazat = Forms![F_SEB_N].Form!Naim.Value
...
i=i+1
loop while i<29
...
PM MAIL   Вверх
alexIrish
Дата 15.2.2008, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.1.2006
Где: Ireland, Dublin

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



Вот интересно, а как ты организуешь перенос данных в таблицу с цыклом?
А просто связать форму с таблицей не пробовал smile 
Получится что данные вводятся в таблицу и все не надо циклов ни каких
PM MAIL   Вверх
BMNDED
Дата 15.2.2008, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Есле бы можно было так сделать то и вопроса небыло бы!!!
Всю задачу долго описывать, заносить данные с помощью Vs.AddNew можно и в цикле.
По существу вопроса можешь что нить сказать?
PM MAIL   Вверх
alexIrish
Дата 15.2.2008, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.1.2006
Где: Ireland, Dublin

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



Тогда через коллекцию Controls.
PM MAIL   Вверх
BMNDED
Дата 15.2.2008, 16:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Naim = "L_PK_" & i
Vs!Pokazat = Forms![F_SEB_N].Form!Naim.Value


Вопрос есче раз повторяю, конкретней.  Есть ли возможность сделать, что бы Naim воспринимался ни как имя а как ссылка на имя! Если можно конкретный совет. Пожалуйста.

PM MAIL   Вверх
alexIrish
Дата 15.2.2008, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.1.2006
Где: Ireland, Dublin

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



Forms![F_SEB_N].Controls("Naim").Value
PM MAIL   Вверх
BMNDED
Дата 15.2.2008, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



на : 
Vs!Pokazat = Forms![F_SEB_N].Controls(Naim).Value

выдало:
objekt doesn't support this property of method.


В кавычках воспринимается как имя Naim.


Это сообщение отредактировал(а) BMNDED - 15.2.2008, 16:26
PM MAIL   Вверх
alexIrish
Дата 15.2.2008, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.1.2006
Где: Ireland, Dublin

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



Сравни:
Код

Vs!Pokazat = Forms![F_SEB_N].Controls(Naim).Value

и
Код

Vs!Pokazat = Forms![F_SEB_N].Controls("Naim").Value


У меня работает smile 

Это сообщение отредактировал(а) alexIrish - 15.2.2008, 17:13
PM MAIL   Вверх
bopoha
Дата 15.2.2008, 17:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

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



Теперь осталось узнать какой объект завалился...

Если код расположен на форме, то можно и так написать
Код

Vs("Pokazat") = Me(Naim)


или так
Код

Vs("Pokazat") = Forms("F_SEB_N").Controls(Naim).Value


Запомните Объект!Элемент эквивалентно Объект.Свойство_по_умолчанию("Элемент").

Добавлено через 11 минут и 51 секунду
alexIrish, какой из двух работает?
PM MAIL WWW ICQ Skype GTalk   Вверх
BMNDED
Дата 15.2.2008, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Все, сенкс мужики, заработало.
PM MAIL   Вверх
alexIrish
Дата 15.2.2008, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 217
Регистрация: 26.1.2006
Где: Ireland, Dublin

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



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

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

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

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


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

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


 




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


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

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