Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / идентификатор / 25 сообщений из 26, страница 1 из 2
  1  все
25.10.2004, 18:38:21
    #32753666
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
привет всем!
на форме у меня есть поля с идентификаторами Ном1,Ном2...НомN
При выборе в другом поле(идентификатор Кол) числа должны отборазиться только поля Ном1,Ном2,...НомК,где К<=Кол
В модуле при обновлении поля с идентификатором Кол пишу следующее

Option Compare Database
Option Explicit
..........
Dim i As Integer
Dim Ном As String
..............
Private Sub Кол_AfterUpdate()
i = 11
Ном = "Ном"
While i >= Кол
к = (Ном + Str(i))
к.Visible() = False 'ошибка на эту строку
i = i - 1
Wend
End Sub

на что выдается ошибка:Ошибка компиляции:недопустимое составное имя.
Что я делаю не так.спасибо заранее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:42:43
    #32753681
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
непроверял, но должно работать.

Код: plaintext
1.
2.
 .........
 Me.Controls(Ном & Str(i)).Visible = False
 .........
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:43:44
    #32753684
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Какой тип у к?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:45:41
    #32753687
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Должно быть me.controls(к).Visible() = False, если к - строковое имя контрола
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:45:58
    #32753688
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
2 нерюх
у к тип строка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:46:44
    #32753690
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
и не к = (Ном + Str(i)), а к = ("Ном" + Str(i))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:48:12
    #32753692
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Хосе , а что, у строки есть свойство Visible?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:48:14
    #32753693
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Нерюхи не к = (Ном + Str(i)), а к = ("Ном" + Str(i))

Код: plaintext
1.
2.
3.
4.
Private Sub Кол_AfterUpdate()
i =  11 
Ном = "Ном"
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:49:51
    #32753695
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Kelme Удачный идентификатор, нечего сказать :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:50:32
    #32753696
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
2 нерюх
я новичок в этом деле не подскажешь какой тип должен быть чтобы можно было видимость использовать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:52:05
    #32753703
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Кол_AfterUpdate()
i =  11 
Ном = "Ном"
While i >= Кол

 Me.Controls(Ном & Str(i)).Visible = False

 i = i -  1  
Wend
End Sub

вот тебе рабочий вариант.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:54:52
    #32753710
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Хосе , я уже написал, как должно быть с моей точки зрения, смотри внимательнее. У объектов семейства controls есть свойство visible, а не у строки, если это не бегущаяя строка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:56:46
    #32753716
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
2 kelme
спасибо так и сделал-но выдается ошибка
Ошибка выполнения 2465
Приложению MS Access не удается найти поле 'Ном11 ',указанное в выражении,
имя поля было задано с ошибка либо поле переименовани или удалено

Хотя поля сшествуют.Формат поля-основной
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:57:58
    #32753718
Нерюх
Нерюх
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Ищи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 18:59:57
    #32753722
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
У тебя названия полей по русски написаны?
Если так, то:
Код: plaintext
Me.Controls("[Ном" & Str(i) & "]").Visible = False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:02:38
    #32753729
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
2 Келме
Спасибо Келме,
названия полей написаны по русски,вставил твой код,но опять таже ошибка.
мне уже стыдно))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:04:36
    #32753734
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Блин, у меня там латинскими буквами написано, напиши Ном по русски ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:07:29
    #32753738
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
2 Келме
я уже на форме исправил на латинские буквы n1,n2,n3....
и в коде написал
Me.Controls("[n" & Str(i) & "]").Visible = False

таже ошибка
((неужели я такой тупой???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:11:19
    #32753746
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
переименуй их в 1,2,3 и т.д
и попробуй так:

Код: plaintext
 Me.Controls(Str(i)).Visible = False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:14:53
    #32753752
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
2 Келме

опять эта ошибка поле '11' не найдено и т.д(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:15:45
    #32753754
Kelme
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
а оно у тебя точно есть???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:18:27
    #32753763
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
я только что удалил их все и заново создал с идентификаторами 1,2,3,4...
та же ошибка
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 19:42:43
    #32753784
Хосе
Хосе
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
млинннннн ну че делать - ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 22:23:38
    #32753863
ДАВИД
ДАВИД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
Хосепривет всем!
Option Compare Database
Option Explicit
..........
Dim i As Integer
Dim Ном As String
..............
Private Sub Кол_AfterUpdate()
i = 11
Ном = "Ном"
While i >= Кол
к = (Ном + Str(i))
к.Visible() = False 'ошибка на эту строку
i = i - 1
Wend
End Sub


Попробуйте
к = ("Ном" + Trim(Str(i)))
Me!к.Visible() = False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.10.2004, 22:24:54
    #32753865
ДАВИД
ДАВИД
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
идентификатор
ДАВИД Хосепривет всем!
Option Compare Database
Option Explicit
..........
Dim i As Integer
Dim Ном As String
..............
Private Sub Кол_AfterUpdate()
i = 11
Ном = "Ном"
While i >= Кол
к = (Ном + Str(i))
к.Visible() = False 'ошибка на эту строку
i = i - 1
Wend
End Sub


Попробуйте
к = ("Ном" & Trim(Str(i))) - Правильнее.
Me!к.Visible() = False
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / идентификатор / 25 сообщений из 26, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 360ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1670827]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 70ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 197ms
total:  360ms
x
x
Закрыть


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