Открыть форму на форме

@vlad02rus · Регистрация: 21.08.2017

Студворк — интернет-сервис помощи студентам

Всем добрый день. Столкнулся с такой проблемой: сделал кнопку открыть форму(на Форме клиенты1), как сделать,чтобы эта форма открывалась на текущей форме,а не в новом окне

@Eugene-LS · 21.08.2017, 18:05

Сообщение от vlad02rus

Запрос 2 неправильный,там все считается по первому введенному числу

В базе нет объекта с названием "Запрос 2" ...

@vlad02rus · 21.08.2017, 18:08 **[ТС]**

Сообщение от Eugene-LS

В базе нет объекта с названием "Запрос 2" ...

Извиняюсь:
Транзит Запрос 2

@Eugene-LS · 21.08.2017, 18:13

Сообщение от Eugene-LS

там все считается по первому введенному числу

Так ... - вы так и просили (вроде как).

shanemac51 · 21.08.2017, 18:25

что-то я не очень понимаю вашу схему(конечно я ничего не знаю о транзите) и не уверена, что вы знаете больше

основная

№ записи	id-client	Дата	Входная сумма	Скидка	Выходная сумма	Отдача	Остаток
19	Иванов	04.07.2017	100			0
24	Иванов	11.07.2017	100	5	95,00	35	60
42	Иванов	02.08.2017	0	0	0,00	60	-60

23	Козлов	05.07.2017	100			0
37	Козлов	21.07.2017	0	0	0,00	300	-300
25	Козлов	31.07.2017	355			0

21	Петров	05.07.2017	100	5	95,00	95	0
20	Петров	06.07.2017	100	5	95,00	95	0
26	Петров	13.07.2017	1000	5	950,00	0	950
22	Петров	14.07.2017	100	5	95,00	95	0
40	Петров	04.08.2017	0	0	0,00	950	-950
			1955				-300

транзит

№	ФИО	Получатель	Дата	Входная сумма	Сумма транзита	Процент транзита	Транзит минус процент
2	Петров			1000	100	1,5	98,5
7	Петров			100	100	1	99
3	Петров			100	100	1,5	98,5
1	Петров			100	100	1	99

5	Иванов			1050	0
6	Иванов			150	0
4	Иванов			150	0

у них общее поле ФИО --но это же несерьезно

@vlad02rus · 21.08.2017, 18:29 **[ТС]**

Сообщение от vlad02rus

Да все верно,но число вводить два раза надо. Просто сумму по столбцу "Транзит минус процент" необязательно с начала считать, иногда с середины надо будет. Вот в этом и загвоздка. Допустим введем 3 и 2 он должен посчитать (100+100)-(98,5+0+0).
Место откуда считать сумму Входную и Транзит минус процент может быть разным

Сейчас ввел цифры 7 3
он считает:
100
100
99
2,5
а должен:
100
200 (100+100)
197.5(99+98.5)
-97.5(100-197.5)

@vlad02rus · 21.08.2017, 18:32 **[ТС]**

ФИО общее имеет место быть, у человека может быть и транзиты и просто переводы,если я конечно правильно понял ваше замечание

@Eugene-LS · 21.08.2017, 18:35

Сообщение от vlad02rus

Сейчас ввел цифры 7 3

А сразу схему расчёта трудно было нарисовать (написать) !?
Щас ...

shanemac51 · 21.08.2017, 18:35

кажется, что в любом случае основная таблица=поездке=некомуАктуПередвиженияЧегоЛибо
--кодП--счетчик
--дата
--куда
--откуда
--суммы
--проценты
...

подчиненная --транзит
--кодТР-сч
--кодП для связи с основной
--дата
--сумма
--проценты
....

но повторяю --СУТИ ЗАДАЧИ Я НЕ ПОНЯЛА

@Eugene-LS · 21.08.2017, 18:37

Сообщение от shanemac51

что-то я не очень понимаю вашу схему

Да там многое неверно - так что теперь переделывать "с нуля" ? - не стал советовать.

@vlad02rus · 21.08.2017, 18:40 **[ТС]**

прикладывал же) извиняюсь заранее, за нечеткую формулировку

@Eugene-LS · 21.08.2017, 18:50

Сообщение от vlad02rus

Сейчас ввел цифры 7 3

Готово!

shanemac51 · 21.08.2017, 18:59

возмем небольшой кусочек основной

№ записи	id-client	Дата	Входная сумма	Скидка	Выходная сумма	Отдача	Остаток
19	Иванов	04.07.2017	100			0
24	Иванов	11.07.2017	100	5	95,00	35	60
42	Иванов	02.08.2017	0	0	0,00	60	-60

4/07 иванов получил 100руб
11/07 он пришел платить и так как прошло мало времени с заима --ему скидка 5%
значит он должен 95
он заплатил 35
----------остаток=60
2/08 он снова пришел, заплатил 60, остаток какой-то странный( вместо 0 почему-то (минус 60)

это мой первый вариант угадывания

@vlad02rus · 21.08.2017, 19:03 **[ТС]**

Eugene-LS, Посмотрите пожалуйста личную почту, что у вас в профиле указана

@Eugene-LS · 21.08.2017, 19:11

Сообщение от vlad02rus

Посмотрите пожалуйста личную почту

Могли бы и тут спросить ...
Используются:
Транзит Запрос 2-01 - Для параметра 01
Транзит Запрос 2-02 - Для параметра 01
(вторая цифера = номер параметра)

@vlad02rus · 22.08.2017, 08:06 **[ТС]**

Eugene-LS, Добрый день. Возник еще один вопрос. В столбце входная сумма стоит 0 по умолчанию, можно ли как то сделать чтобы при выборе поля 0 исчезал. (Пример хоти ввести 155, а вводится 1550 и приходится 0 удалять)

@Eugene-LS · 22.08.2017, 09:07

Сообщение от vlad02rus

можно ли как то сделать чтобы при выборе поля 0 исчезал

Ну заменять значение при входе в поле, наверное не стоит, но можно так:

Visual Basic
1
2
3
4
5
6
Private Sub Входная_сумма_Click()
    If Me!Входная_сумма = 0 Then
        Me!Входная_сумма.SelStart = 0
        Me!Входная_сумма.SelLength = 1
    End If
End Sub

- и при щелчке пополю и если там 0 - ноль будет выделен = готов к замещению.

Второй вариант:
Поставить свойство поля Значение по умолчанию = Null - нолики (на новых записях) пропадут.

@vlad02rus · 22.08.2017, 10:43 **[ТС]**

Сообщение от Eugene-LS

Ну заменять значение при входе в поле, наверное не стоит, но можно так:

Visual Basic
1
2
3
4
5
6
Private Sub Входная_сумма_Click()
    If Me!Входная_сумма = 0 Then
        Me!Входная_сумма.SelStart = 0
        Me!Входная_сумма.SelLength = 1
    End If
End Sub

- и при щелчке пополю и если там 0 - ноль будет выделен = готов к замещению.

Второй вариант:
Поставить свойство поля Значение по умолчанию = Null - нолики (на новых записях) пропадут.

Если NULL ставить следующие столбцы не будут считаться пока в них не вставить значения какие то

Добавлено через 26 минут
Eugene-LS, Не могли бы объяснить как работает второй запрос 2-02, а точнее как он вытаскивает сумму входную из первого запроса?

@Eugene-LS · 22.08.2017, 10:49

Сообщение от vlad02rus

как работает второй запрос 2-02, а точнее как он вытаскивает сумму входную из первого запроса?

Он берёт суммарные данные из таблицы - согласно параметру 02.
К первому запросу он никак не обращается.
Да и вообще, там можно всё сделать без запросов - используя DLookUP() функцию.

@vlad02rus · 22.08.2017, 11:06 **[ТС]**

Eugene-LS, с этой функцией не смог разобраться. Разобрался как работает запросы. Спасибо

Добавлено через 9 минут
Eugene-LS, не могли бы на моем примере объяснить работу DLookUp?

@Eugene-LS · 22.08.2017, 11:52

Сообщение от vlad02rus

не могли бы на моем примере объяснить работу DLookUp?

Да там объяснять нечего - в справке всё подробно описано.
Я правда пошел через аналогичную DSum()

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Form_Load()
'Загрузка формы
Dim v As Variant, vPar01 As Variant, vPar02 As Variant
Dim s$, lClient&
Dim Message$, Title$, Default$
    
 
    Message = "Введите номер 01"
    Title = "Введите номер 01"
    Default = "0" 'Значение по умолчанию
    vPar01 = InputBox(Message, Title, Default)
    Me!номер_01 = vPar01
    
    Message = "Введите номер 02"
    Title = "Введите номер 02"
    Default = "0" 'Значение по умолчанию
    vPar02 = InputBox(Message, Title, Default)
    Me!номер_02 = vPar02
    
    'Проверка на:
    '   vPar01 = 7
    '   vPar02 = 3
    
    lClient = Forms("Клиенты2")![1246]
    
    s = "ФИО = " & lClient & " AND [№]>=" & vPar01
    v = DSum("[Входная сумма]", "Транзит", s)
    Me!Входная_сумма = Nz(v)
    
    s = "ФИО = " & lClient & " AND [№]>=" & vPar02
    v = DSum("[Сумма транзита]", "Транзит", s)
    Me!Сумма_транзита = Nz(v)
 
    v = DSum("[Транзит минус процент]", "Транзит", s)
    Me!Транзит_минус_процент = Nz(v)
 
End Sub

... И никаких запросов...

Пример прилагаю.

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@vlad02rus 0 / 0 / 0 Регистрация: 21.08.2017 Сообщений: 29
	21.08.2017, 18:32 [ТС]
	ФИО общее имеет место быть, у человека может быть и транзиты и просто переводы,если я конечно правильно понял ваше замечание 0

shanemac51 Модератор 12512 / 5086 / 814 Регистрация: 07.08.2010 Сообщений: 14,972 Записей в блоге: 4
	21.08.2017, 18:35
	кажется, что в любом случае основная таблица=поездке=некомуАктуПередвиженияЧегоЛибо --кодП--счетчик --дата --куда --откуда --суммы --проценты ... подчиненная --транзит --кодТР-сч --кодП для связи с основной --дата --сумма --проценты .... но повторяю --СУТИ ЗАДАЧИ Я НЕ ПОНЯЛА 1

@vlad02rus 0 / 0 / 0 Регистрация: 21.08.2017 Сообщений: 29
	21.08.2017, 18:40 [ТС]
	прикладывал же) извиняюсь заранее, за нечеткую формулировку Миниатюры 0

@vlad02rus 0 / 0 / 0 Регистрация: 21.08.2017 Сообщений: 29
	21.08.2017, 19:03 [ТС]
	Eugene-LS, Посмотрите пожалуйста личную почту, что у вас в профиле указана 0

@vlad02rus 0 / 0 / 0 Регистрация: 21.08.2017 Сообщений: 29
	22.08.2017, 08:06 [ТС]
	Eugene-LS, Добрый день. Возник еще один вопрос. В столбце входная сумма стоит 0 по умолчанию, можно ли как то сделать чтобы при выборе поля 0 исчезал. (Пример хоти ввести 155, а вводится 1550 и приходится 0 удалять) Миниатюры 0

@vlad02rus 0 / 0 / 0 Регистрация: 21.08.2017 Сообщений: 29
	22.08.2017, 11:06 [ТС]
	Eugene-LS, с этой функцией не смог разобраться. Разобрался как работает запросы. Спасибо Добавлено через 9 минут Eugene-LS, не могли бы на моем примере объяснить работу DLookUp? 0