ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопросы порядковой нумерации в Access2007
9 сообщений из 34, страница 2 из 2
  2  все
Вопросы порядковой нумерации в Access2007
    #39731003
Lekks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lekks
Гость
Подскажите, пожалуйста, можно ли обратиться ко всем комбобоксам в форме одновременно (для установки количества и ширины Column)
...
Рейтинг: 0 / 0
10.11.2018, 12:26
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39731039
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
 
Доброе утро товарищи комбобоксы!
Начинаем комплекс утренней гимнастики.
:)

Одновременно нет.

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

В этом случае один вызов этой процедуры будет имитировать "одновременное" обращение.
...
Рейтинг: 0 / 0
10.11.2018, 13:43
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39731063
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Lekks,
Можно перебрать
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub my()
Dim ctl As Control
For Each ctl In Me.Controls
	If ctl.ControlType = acСomboBox Then 'или какой другой тип, например acТextBox
	                With ctl 'устанавливайте доступные свойства
 				.SetFocus  
 				.Enabled = True
 				.Height = 400
				.SpecialEffect = 0
			End With
        End If
	Next ctl
End Sub
...
Рейтинг: 0 / 0
10.11.2018, 15:13
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39731121
Lekks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lekks
Гость
Predeclared Одновременно нет... процедуру, в которой перебирать члены коллекции...

...один вызов этой процедуры будет имитировать "одновременное" обращение.

sdkuLekks,
Можно перебрать


Да, я именно это и имел ввиду. Не смог разобраться как их обозначать как объект. Спасибо!!!
...
Рейтинг: 0 / 0
10.11.2018, 19:16
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39744068
Lekks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lekks
Гость
Привет. Проблема такого рода:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Select Case PSOTsotr
        Case False
            Me.Registration = Nz(DMax("RegNum", "Accounting", "Year(RegDate)= " & Year(Me.[RegiDate])), (Me.StartNum)) + 1
            Me.StartNum = 0
        Case True
            Me.Registration = Nz(DMax("RegNumOf", "Accounting", "Year(RegDate)= " & Year(Me.[RegiDate])), (Me.StartNum)) + 1
            Me.StartNum = 0
    End Select



В данном коде по полю RegNum таблицы Accounting Dmax нумерует нормально, а по полю RegNumOf той же таблицы, начиная с 9 присваивает номер 10 и на этом все... последующие номера - тоже 10. Поля текстовые.
Подскажите что не так?

P.S. при написании запроса в SQL - DMax (CLng ([RegNumOf]), "Accounting") дает верный результат. Но с чем это связано, почему по двум однотипным полям считает по разному - это неясно. И как правильно написать в VBA тоже не знаю.
...
Рейтинг: 0 / 0
07.12.2018, 10:38
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39744149
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
Если вы сделаете сортировку по текстовому полю, то увидите, что "10" меньше "9" (даже меньше "2"), т.к. сравнивается 1-й символ, затем 2-й и т.д.
Странно, что ваш код вообще работает. Ведь DMax("RegNumOf"...) возвращает строку,
а "9"+1 вернет "91" (конкатенация), а не 10.
Вы уверены, что "RegNum" тоже текстовое?

Вам надо открывать Recordset на запросе с сортировкой CLng([RegNumOf]) (или Val([RegNumOf]) ) по убыванию читать значение из 1-й записи с преобразованием строки в число.

Кстати, Year(RegDate)= 2018 выглядит проще, чем RegDate Between #01/01/2018# And #12/31/2018#, но работает значительно медленнее.
...
Рейтинг: 0 / 0
07.12.2018, 12:05
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39744477
Lekks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lekks
Гость
Кривцов Анатолий Вы уверены, что "RegNum" тоже текстовое?

RegNum тоже текстовое. И это как бы не мой код, мне его выше в топике подсказали.
...
Рейтинг: 0 / 0
07.12.2018, 17:18
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39744492
Lekks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lekks
Гость
Поможет ли изменение формата полей на числовой? И как все-таки правильно написать в VBA выражение
DMax (CLng ([RegNumOf]), "Accounting") и можно ли вообще?
...
Рейтинг: 0 / 0
07.12.2018, 17:33
| Ответить | Цитировать | Написать  
Вопросы порядковой нумерации в Access2007
    #39744495
Lekks
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lekks
Гость
LekksПоможет ли изменение формата полей на числовой?

Помогло. Волнует - не вылезет ли из-за этого ошибка в дальнейшем?
...
Рейтинг: 0 / 0
07.12.2018, 17:39
| Ответить | Цитировать | Написать  
9 сообщений из 34, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вопросы порядковой нумерации в Access2007
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39744492&tid=1610988]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 317ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


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