powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Значение надписи, присоединенной к поля формы
8 сообщений из 8, страница 1 из 1
Значение надписи, присоединенной к поля формы
    #32394407
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если fld.Name возвращает имя самого поля, то как получить значение присоединенной к нему надписи.
Поле PlanPay, в форме у него подпись "Плановый платеж", не могу в коде добраться до этой подписи.
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394412
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
forms(forms.Count-1).Controls(fld.Name).controls(0).caption
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394422
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уже отмечал, что controls(0) может дать ошибку, так как метка может оказаться не первой в Controls. Поэтому лучше перебрать Controls и выбрать Control с ControlType=acLabel.
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394438
Benzin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
лучше перебрать Controls и выбрать Control с ControlType=acLabel
поясните:
мне надо заполнить таблицу именем поля и значением его присоединенной надписи(подписи). Делаю:
Код: plaintext
1.
2.
3.
For Each cnt In frm.Controls
ee = cnt.Name ' это имя самого поля
......
Next cnt

А как именно его Label вернуть, а не любой случайный?
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394449
АндрейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот такой вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For Each ctl In frm.Controls
проверка, что контрол находится в обл.Данных и что контрол это поле.
If ctl.Section =  0  And ctl.ControlType = acTextBox Then
strF_Name = ctl.Name
strC_Name = frm.Controls(strF_Name).Controls( 0 ).Caption
CurrentDb.Execute  " INSERT INTO tblFields (NameField,CaptionField) VALUES ('" & strF_Name & "','" & strC_Name & "')" 
End If
Next ctl

Может и неэлегантно, но у меня работает.
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394459
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
To АндрейК

Поля в таблицы не всегда отражены на форме как TextBox, это может быть и
ComboBox, и ListBox, и CheckBox, и OptionGroup.

To Benzin
Benzinмне надо заполнить таблицу именем поля и значением его присоединенной надписи(подписи). Делаю:
Не совсем понятно, что вы подразумеваете под полем. Подчиненная надпись может быть у контрола, который в свою очередь может быть связан с полем источника записей формы.
Когда форма в табличном виде, то в качестве полей этой таблиц могут быть все перечисленные выше контролы, которые расположены в Section(0)
Чтобы правильно прочитать Caption присоединенной к контролу надписи надо
Код: plaintext
1.
2.
3.
4.
For Each ctl in Me.Controls( "ControlName" ).Controls
     If ctl.ControlType = acLabel Then
............
     End If 
Next ctl
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394464
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Похоже, что имеется путаница с терминологией. Если не ошибаюсь (а проверить не могу), в русском Аксессе текстбокс называется полем. И тогда поле - это и TextBox, и Field, и Margin.
...
Рейтинг: 0 / 0
Значение надписи, присоединенной к поля формы
    #32394472
Фотография Serafim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пробежать в цикле по всем controls проверить type на Label и проверить

Me.Label1.Parent.Name = Me.mtTexBox.Name
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Значение надписи, присоединенной к поля формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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