ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автосчетчик в сабформе.
25 сообщений из 56, страница 1 из 3
  1  все
Автосчетчик в сабформе.
    #32841046
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Есть форма Crew List.
В ней есть подформа с полями, для заполнения данных об экипаже судна.
Так вот первое поле - это номер. Обыкновенный номер. Возможно ли сделать так, чтобы Акцес сам нумеровал? И если не сложно, подскажите как.
Спасибо.
...
Рейтинг: 0 / 0
23.12.2004, 11:34:55
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841169
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
Возможно. Нужно использовать процедуру, добавляющую следующий номер по
событию BeforeInsert либо AfterInsert. Также предусмотреть пересчет
нумерации, связанный с удалением записи. Поищи - кодов найдешь больше, чем
сможешь испльзовать :-)

--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
23.12.2004, 12:06:42
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841189
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Я не знаю, как правильно процедуры писать, с помощью простых возможностей акцесса это возможно сделать?
И как?
Пробовал автономер поставить с индексом повторяющимся, но при новой записи дела, нужно, чтобы нумерация начиналась сначала. А Акцесс продолжает ее.
...
Рейтинг: 0 / 0
23.12.2004, 12:11:38
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841217
RVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RVI
Участник
FAQ
...
Рейтинг: 0 / 0
23.12.2004, 12:18:17
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841258
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
В факе написано : Надо написать функцию, к которой обращаться либо в DefaultValue контрола (к сожалению, DefaultValue
мне кажется, что для меня это наименее сложный способ.
Можно про него подробней, ибо в факе про него ничего не нашел...вроде искал...
...
Рейтинг: 0 / 0
23.12.2004, 12:26:58
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841266
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Пишешь в модуле функцию

Function Num(ИмяПоля As String, Значение As Long) As Long
Me.RecordsetClone.FindFirst ИмяПоля & " = " & Значение
Num = Me.RecordsetClone.AbsolutePosition + 1
End Function

А в поле
=num("ИмяПоляСчетчика";[ИмяПоляСчетчика])
...
Рейтинг: 0 / 0
23.12.2004, 12:29:36
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841326
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Roma RПишешь в модуле функцию

Function Num(ИмяПоля As String, Значение As Long) As Long
Me.RecordsetClone.FindFirst ИмяПоля & " = " & Значение
Num = Me.RecordsetClone.AbsolutePosition + 1
End Function

А в поле
=num("ИмяПоляСчетчика";[ИмяПоляСчетчика])

Вобщем, имя таблицы CREW LIST
Имя поля NO со значением Теxt.
Напиши плиз как сейчас будет выглядеть все? Я не понял, что подставить в значение и тд.
И можно так сделать: я зайду в Modules, create new module = > впишу туда твою функцию, а затем, в контроле поставлю ее имя, Module1.
...
Рейтинг: 0 / 0
23.12.2004, 12:42:56
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841382
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Function Num(NO As String, 100 As Long) As Long
Me.RecordsetClone.FindFirst NO & " = " & 100
Num = Me.RecordsetClone.AbsolutePosition + 1
End Function

Так правильно?
...
Рейтинг: 0 / 0
23.12.2004, 12:57:26
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841428
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
Пишешь в модуле функцию без изменений, вот так как написано

Function Num(ИмяПоля As String, Значение As Long) As Long
Me.RecordsetClone.FindFirst ИмяПоля & " = " & Значение
Num = Me.RecordsetClone.AbsolutePosition + 1
End Function

В свойстве Данные пишешь
=num("ИмяПоляСчетчика";[ИмяПоляСчетчика])

только вместо ИмяПоляСчетчика подставляешь Имя поля из таблицы CREW LIST
у которого тип поля счетчик. Если такого поля нет, то создай в таблице такое поле
...
Рейтинг: 0 / 0
23.12.2004, 13:07:56
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841437
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
у МЕНЯ АНГЛИЙСКАЯ ВЕРСИЯ АКЦЕСА.
...
Рейтинг: 0 / 0
23.12.2004, 13:09:31
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841456
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
Мулат, учебник не купил еще судя по всему? А зря
Кстати, для человека, использующего "английскую" версию, букву "ц" в слове
"Акцесс" использовать как-то не comme il faut. Знаю, что тебе это по
барабану, но все же.

--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
23.12.2004, 13:14:25
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841475
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Осталось несколько вопросов:
Как будет правильно выглядить эта функция на англицком?
Еще непонятка - куда вписать этот модуль? After Update? Before Update? Или куда?


В свойстве Данные пишешь
=num("ИмяПоляСчетчика";[ИмяПоляСчетчика])

Имеется ввиду RecordSource контрола NO ?

Ром, ты не злись, я первый раз решил все-таки написать процедура - это первая попытка :)
...
Рейтинг: 0 / 0
23.12.2004, 13:18:01
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841482
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
MulatОсталось несколько вопросов:
Как будет правильно выглядить эта функция на англицком?
Еще непонятка - куда вписать этот модуль? After Update? Before Update? Или куда?


В свойстве Данные пишешь
=num("ИмяПоляСчетчика";[ИмяПоляСчетчика])

Имеется ввиду RecordSource контрола NO ?

Ром, ты не злись, я первый раз решил все-таки написать процедура - это первая попытка :)

Я в шутку его так называю, нравится.
...
Рейтинг: 0 / 0
23.12.2004, 13:19:48
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841551
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
М-да! Тяжелый случай!

Прикрепи базу к сообщению
...
Рейтинг: 0 / 0
23.12.2004, 13:38:31
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841592
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Ром, только ты сможешь открыть в конструкторе, так как связи там...
...
Рейтинг: 0 / 0
23.12.2004, 13:52:41
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841683
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Рома, как там дела у тебя?
...
Рейтинг: 0 / 0
23.12.2004, 14:13:20
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841749
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roma R
Участник
...
Рейтинг: 0 / 0
23.12.2004, 14:30:43
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841803
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Ошибки одни, Рома.
Нифига не нумеруется а в поле, которое ты приделал ошибка #Name...А когда пытаюсь запись сделать - ActitveX Control OLE error какая-то.....блин....
...
Рейтинг: 0 / 0
23.12.2004, 14:40:35
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841895
Iskander68
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iskander68
Участник
Рома, ты попал...

--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
23.12.2004, 15:00:06
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841940
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Рома, посмотри еще.
Может ты процедуру забыл написать? Я что-то не нашел...
Нашел лишь то, что ты сделал новое поле Код с примари кей.
В форме Крю Лист увидел новый контрол, там соурз у него именно к полю Код.
Только процедуры не нашел (модуль)
...
Рейтинг: 0 / 0
23.12.2004, 15:09:11
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32841981
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Ребят, помогите.
...
Рейтинг: 0 / 0
23.12.2004, 15:21:13
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32842004
Leenoox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leenoox
Участник
очередной увлекательно-юмористический топик :)
2 Mulat:
Может просто создать в таблице поле типа счетчик?
...
Рейтинг: 0 / 0
23.12.2004, 15:28:23
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32842015
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
MulatВ факе написано : Надо написать функцию, к которой обращаться либо в DefaultValue контрола (к сожалению, DefaultValue
мне кажется, что для меня это наименее сложный способ.
В факе написано:

Надо написать функцию, к которой обращаться
* либо в DefaultValue контрола (к сожалению, DefaultValue поля в таблице допускает только ограниченный набор стандартных функций),
* либо в программе, которая добавляет запись через рекордсет,
* либо в запросе на добавление.

То есть функцию написать все равно надо. А обращаться к ней -
* либо в DefaultValue контрола,
* либо в программе,
* либо в запросе.
...
Рейтинг: 0 / 0
23.12.2004, 15:31:03
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32842096
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Так у Ромы нет самой программы (модуля), я не нашел.
А как этот модуль, что он написал, будет выглядить на английском - я не знаю.
Вот откройте же Ромин файл, как я понял, исправить нужно совсем чуточку (для Вас). А я не умею, уровень не тот.
...
Рейтинг: 0 / 0
23.12.2004, 15:48:24
| Ответить | Цитировать | Написать  
Автосчетчик в сабформе.
    #32842113
Mulat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mulat
Участник
Leenooxочередной увлекательно-юмористический топик :)
2 Mulat:
Может просто создать в таблице поле типа счетчик?
Я бы с радостью так сделал, только при добавлении новой записи в главной таблице, когда заново начинаю вводить экипаж, то нумерация начинается сначала.
Судно один: Экипаж:
1) володя
2) Данила весь такой Багров
3) Денис

Судно два: Экипаж:
4) Саша (тихий дятел)
5) Гриша (просто дятел).

А надо так:
Судно один: Экипаж:
1) володя
2) Данила весь такой Багров
3) Денис

Судно два: Экипаж:
1) Саша (тихий дятел)
2) Гриша (просто дятел).
...
Рейтинг: 0 / 0
23.12.2004, 15:54:11
| Ответить | Цитировать | Написать  
25 сообщений из 56, страница 1 из 3
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автосчетчик в сабформе.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32841940&tid=1669556]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 216ms
total:  351ms
созд. / загр.: 351ms
x
x
Закрыть


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