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

--
Regards
Alexander Artamonov

Posted via ActualForum NNTP Server 1.1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2004, 12:11:38
    #32841189
Mulat
Mulat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосчетчик в сабформе.
Я не знаю, как правильно процедуры писать, с помощью простых возможностей акцесса это возможно сделать?
И как?
Пробовал автономер поставить с индексом повторяющимся, но при новой записи дела, нужно, чтобы нумерация начиналась сначала. А Акцесс продолжает ее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2004, 12:18:17
    #32841217
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосчетчик в сабформе.
FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2004, 12:26:58
    #32841258
Mulat
Mulat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосчетчик в сабформе.
В факе написано : Надо написать функцию, к которой обращаться либо в DefaultValue контрола (к сожалению, DefaultValue
мне кажется, что для меня это наименее сложный способ.
Можно про него подробней, ибо в факе про него ничего не нашел...вроде искал...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2004, 12:29:36
    #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:42:56
    #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:57:26
    #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, 13:07:56
    #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:09:31
    #32841437
Mulat
Mulat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосчетчик в сабформе.
у МЕНЯ АНГЛИЙСКАЯ ВЕРСИЯ АКЦЕСА.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2004, 13:14:25
    #32841456
Iskander68
Iskander68
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автосчетчик в сабформе.
Мулат, учебник не купил еще судя по всему? А зря
Кстати, для человека, использующего "английскую" версию, букву "ц" в слове
"Акцесс" использовать как-то не comme il faut. Знаю, что тебе это по
барабану, но все же.

--
Regards
Alexander Artamonov

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


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

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

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


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

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

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

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

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

--
Regards
Alexander Artamonov

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

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

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

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

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

Судно два: Экипаж:
1) Саша (тихий дятел)
2) Гриша (просто дятел).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Автосчетчик в сабформе. / 25 сообщений из 56, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 369ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1669556]:
 0ms
get settings:
 6ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 220ms
total:  369ms
x
x
Закрыть


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