ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Макрос на добавление заводских номеров Помогите чайнику!)
10 сообщений из 10, страница 1 из 1
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770258
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Есть проблемка, и как к ней подходить не в курсе... Не сможете ли мне поэтапно обьяснить как сделать макрос на добавление заводских номеров. Исходные данные берутся из верхней подчинённой формы и вставляются в нижнюю. Проект ADP.
Номер состоит из
Код: plaintext
1.
2.
3.
4.
год, договор, лот(позиция), номер изд в лоте, добав номер
04    001         01                 001                    0

Вместе 04 001 01 001 0
...
Рейтинг: 0 / 0
05.11.2004, 11:37:24
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770525
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Попробуй на событие текущая запись первой формы менять DefaultValue поля ID_Number второй формы... Ессессно, подставляя туда результат конкатенации полей текущей записи первой формы...
...
Рейтинг: 0 / 0
05.11.2004, 13:10:46
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770643
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Ничего не понял((
Вот как я это вижу...
Заполняется подчинённая форма f_p_Lot(верхняя)
Нажимается кнопка (сделать нужно)
И на основе данных из формы f_p_Lot заполняется форма f_p_Length
Заводскими номерами и Наименованием кабеля.

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

В первом лоте например 4 длины значит номера будут
Код: plaintext
1.
2.
3.
4.
04 001 01 001 0
04 001 01 002 0
04 001 01 003 0
04 001 01 004 0
Во втором лоте 3 длины
Код: plaintext
1.
2.
3.
04 001 02 001 0
04 001 02 002 0
04 001 02 003 0
...
Рейтинг: 0 / 0
05.11.2004, 13:49:25
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770666
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Меня интересует как это вообще делается?
По нажатию кнопки...
Какие переменные нужно обьявлять? Как забрать данные из верхней формы и последовательно, сперва на основе первого лота создать заводские номера, потом на основе второго и т.д.
...
Рейтинг: 0 / 0
05.11.2004, 13:57:03
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770707
SBL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SBL
Участник
хмммм.......сумбурно
собрать это все можно имхо вот так

Select [год] & " " & [договор] & " " & [лот] & " " & [номер изд в лоте] & " " & '0' from table;

единственное, я не понял каким образом оно должно различатся......
...
Рейтинг: 0 / 0
05.11.2004, 14:10:56
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770755
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Обьясняю с нуля... Кабельный завод. Есть договор. В договоре есть позиции - (лот)
В первой позиции 4 длины во второй позиции например 3
Для того что бы продукцию идентифицировать ей присваиваются заводские номера
Номер состоит из

Код: plaintext
1.
2.
3.
4.
5.
год                           04
договор                     001
лот(позиция)             01, 02
номер изд в лоте        001, 002, 003, 004 и т.д.
добав номер              0

На выходе должны получить
Код: plaintext
1.
2.
3.
4.
5.
6.
В первом лоте например 4 длины значит номера будут

04 001 01 001 004 001 01 002 004 001 01 003 004 001 01 004 0
Во втором лоте 3 длины

04 001 02 001 004 001 02 002 004 001 02 003 0
...
Рейтинг: 0 / 0
05.11.2004, 14:30:18
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32770764
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Извиняюсь)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
04 001 01 001 0
04 001 01 002 0
04 001 01 003 0
04 001 01 004 0
Во втором лоте 3 длины

04 001 02 001 0
04 001 02 002 0
04 001 02 003 0
...
Рейтинг: 0 / 0
05.11.2004, 14:32:11
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32771154
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
Теперь, кажись, понял, что нужно.
Если N_Lenght - количество длин, то

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim I as Long, rs As New ADODB.Recordset

rs.Open "Select * from TableDestination", CurrentProject.Connection

With Me.f_p_Lot.Form
  For I =   1  To .N_Lenght 
    rs.Add
    rs.Fields("ZavNum") = .год & " " & .договор & " " & .лот & " " & Format(I,"000") & " 0"
... ' остальные поля 
   rs.Update
  Next I
End With
Me.f_p_Length.Requery

примерно так
...
Рейтинг: 0 / 0
05.11.2004, 16:48:51
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32771157
Витал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Витал
Участник
ZavNum - это у меня ID_Number картинка при ответе не видна. Так что пардон-с.
...
Рейтинг: 0 / 0
05.11.2004, 16:50:25
| Ответить | Цитировать | Написать  
Макрос на добавление заводских номеров Помогите чайнику!)
    #32772741
GliderAlex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GliderAlex
Гость
Странно, обработчик ошибок останавливается на строке
For I = 1 To .N_Lenght
и пишет ошибка 2465.
...
Рейтинг: 0 / 0
09.11.2004, 08:25:02
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Макрос на добавление заводских номеров Помогите чайнику!)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1527&tid=1670491]:
 0ms
get settings:
 7ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 32ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 202ms
total:  298ms
созд. / загр.: 298ms
x
x
Закрыть


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