Помогите с заполнением таблицы.

@mmzd · Регистрация: 08.06.2015

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

Ребят, такое дело:

Есть таблица рапорт, никак не могу понять как сделает её заполнение.

Нужно следующее:
вводим дату,
после этого в поле "Табельный" должен быть выпадающий список с номерами удостоверений из таблицы "Запись" на текущую дату,
выбираем номер удостоверения,
автоматически заполняются поля Фамилия_Имя, смена (в соответствии с выбранным удостоверением), должность вручную выбирается из списка....

Ну никак у меня это не выходит

(((

@mmzd · 03.10.2019, 09:20 **[ТС]**

VinniPuh, понял. Спасибо. Как будет время, поможете со статусом должности?

@VinniPuh · 03.10.2019, 09:21

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

...типа выставил напротив Машиниста статус "По графику" и она не отображается...

Ну да, именно это я и имел ввиду.

@VinniPuh · 04.10.2019, 23:31

Eugene-LS, ты же вроде писал процедуру для неболее одноразового назначения на должность номера удостоверения.
По крайней мере похоже на твой стиль, или я как всегда ошибаюсь и путаю?

Не поможещь ли внедрить в последний примерчик в 146 посту?

Добавлено через 12 минут
Хотя, наверное как всегда, Добренький Палочка-Выручалочка - mobile не откажет страждущим и выручит.

По крайней мере - Шибко надеюсь на это.

Добавлено через 3 часа 10 минут
mmzd, Похоже - Задача - НЕВЫПОЛНИМА.
Так что смиритесь.

@Eugene-LS · 05.10.2019, 00:30

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

Не поможещь ли внедрить в последний примерчик в 146 посту?

Считаю что ты просто отмазался

Щас...

@Eugene-LS · 05.10.2019, 01:07

mmzd, решил как понял ваши нововведения:

@VinniPuh · 05.10.2019, 01:30

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

решил как понял ваши нововведения:

Жень, ну ты чЁ, не проснулся что ли, типа от слова - Совсем?
Нужно, что бы на одну Должность, на одну Дату, нельзя было назначить одного и того же Учащегося ЮЖД и если по ошибке назначил, то выскочило СТРАШНОЕ сообщение, что типа - Уже назначен.
Тут типа нюанс такой
В таблице индексирование не прописать,
Ибо сначала ВСЕ должности на Дату вводятся, а потом ВРУЧНУЮ коды учеников вводятся.
А так как код ученика не может быть Нулл, то акс естественно ругается.
Ясно ли я описал ситуацию?

Добавлено через 2 минуты
Ну ты же знаешь, что я как бы типа - Туповат в данном вопросе.

@VinniPuh · 05.10.2019, 01:53

Картинка, нак НЕ должно быть ЗАБЫЛ приложить

@Eugene-LS · 05.10.2019, 09:34

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

Картинка, нак НЕ должно быть ЗАБЫЛ приложить

Плохо что "ЗАБЫЛ приложить" я сделал в другой форме - "ЗаписьВРапорт".
И там, думаю, не повредит.
В этой делайте по аналогии.

@VinniPuh · 05.10.2019, 13:18

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

...я сделал в другой форме - "ЗаписьВРапорт"....

Блин Белинский, а я и не понял.
Думал ни чё и не сделал.
Всё ещё жду как дурак.

Всё, спасибо.

Думаю адаптировать смогу.

@VinniPuh · 05.10.2019, 13:33

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

...В этой делайте по аналогии...

Не делается что то.

И не ругается что что то не так и не проверяет, что одинаковые.

@Eugene-LS · 05.10.2019, 13:47

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

Не делается что то.

Выложи пожалуйста то что есть

@VinniPuh · 05.10.2019, 13:52

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

...Выложи пожалуйста то что есть...

То же и есть, что ты выложил в 165 посту.
Ну если так уж принципиально надо, то вот, только сегодняшную дату добавил и у № удостоверения твою процедуру прописал.

@Eugene-LS · 05.10.2019, 14:44

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

только сегодняшную дату добавил и у № удостоверения твою процедуру прописал

Щас посмотрю ...

Добавлено через 24 минуты

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

И не ругается что что то не так и не проверяет, что одинаковые.

Попробуй так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub кодЮЖД_AfterUpdate()
  Dim s As String
  Dim l As Long
 
'Значение не выбрано = На выход!
    If Me!кодЮЖД.ListIndex = -1 Then Exit Sub
 
'Дальше: Проверка уникальности
    s = "Дата=" & Format(Me!Дата, "\#mm\/dd\/yyyy\#") & " AND кодЮЖД = " & Me!кодЮЖД
 
    l = DCount("*", "РабДень", s) 'всего записей по условию
    If l > 0 Then
        MsgBox "ВНИМАНИЕ!" & vbCrLf & "ДАННЫЙ номер удостоверения УЖЕ НАЗНАЧЕН НА ДОЛЖНОСТЬ!" & vbCrLf & _
        "Пожалуйста введите другой код!", vbExclamation, "Error!"
        'Me!кодЮЖД = Null
         Exit Sub
    End If
 
End Sub

Добавлено через 7 минут
VinniPuh, строчку :

Visual Basic
1
'Me!кодЮЖД = Null

Раскомменти - надёжнее будет ...

@VinniPuh · 05.10.2019, 15:02

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

...Попробуй так:...

Похоже что ВСЁ так.
Благодарю Вас - Сенсей.

Ваше Кунг-фу, по любому, по Фен-Шую лучше моего.

Добавлено через 6 минут
Eugene-LS, Было бы ВАААЩЕ - Круть, если бы нельзя было 2 раза подряд нажать на кнопку - Создать список Должностей на дату.
Если на одну дату создал и перешел на другую, то к этой кнопке на эту дату уже нет Доступа, а если не переходить, то можно хоть 100 раз добавить должностей.
Как бы это сделать невозможным.
Типа защиты от Дурака и Баловника, типа меня?

У меня только так получилось как есть.

mobile · 05.10.2019, 15:14

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

Было бы ВАААЩЕ - Круть, если бы нельзя было 2 раза подряд нажать на кнопку - Создать список Должностей на дату

Достаточно сделать составной индекс на код должности и дату и система сама не позволит делать дубли. Для обхода сообщений об ошибках надо в событии Ошибка проверить ее код (3022 если правильно помню) и задать параметру Responce значение acdataerrcontinue. И пусть жмут на кнопку сколько хотят, результат не изменится

@Eugene-LS · 05.10.2019, 15:25

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

и задать параметру Responce значение acdataerrcontinue

Правильно!
Но Пух сказал что индексы менять нельзя.

@VinniPuh · 05.10.2019, 15:38

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

...Достаточно сделать составной индекс...

Не, я про то, что бы кнопку просто заблокировать, а сообщения это только людей пугать.
Типа что бы небыло и шанса.

Добавлено через 1 минуту
Вдруг какой УПЕРТЫЙ попадётся или после корпоратива.

Добавлено через 4 минуты
Да и кстати, ТС говорил, что на одну должность могут назначить несколько человек, но это уже вручную должность будет добавляться.
Так что индексирование по условию уже не проходит.
Недаром же мне подсознательно - Блокировка кнопки приснилась.

@Eugene-LS · 05.10.2019, 15:49

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

ыло бы ВАААЩЕ - Круть, если бы нельзя было 2 раза подряд нажать на кнопку - Создать список Должностей на дату

Держи:

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
Private Sub КнСоздатьСписокДолжностейНаДату_Click()
Dim s$
    
'Только отсутстствующие должности
    s = Format(Nz(Me!ВыборДаты, 1), "\#mm\/dd\/yyyy\#")
    s = "SELECT Код FROM Должности LEFT JOIN " & _
        "(SELECT КодДолжности FROM РабДень WHERE Дата=" & s & ") AS Query01 " & _
        "ON Должности.Код = Query01.КодДолжности WHERE КодДолжности Is Null"
    'Debug.Print s
    
    With CurrentDb.OpenRecordset(s)
        Do Until .EOF
            Me.[фпРабДень].Form.Recordset.AddNew
            Me.[фпРабДень].Form.Recordset![КодДолжности] = !Код
            Me.[фпРабДень].Form.Recordset![Дата] = Me!ВыборДаты
            Me.[фпРабДень].Form.Recordset.Update
            .MoveNext
        Loop
    End With
    Me.[фпРабДень].Form.Refresh
    Me.[ВыборДаты].Requery
    Me.Requery
End Sub

И на кнопку лучше такое:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ВыборДаты_AfterUpdate()
Dim lCountJob&, lCount&, sVal$
    
    lCountJob = DCount("*", "Должности") 'всего должностей
    sVal = "Дата=" & Format(Nz(Me!ВыборДаты, 1), "\#mm\/dd\/yyyy\#")
    lCount = DCount("*", "РабДень", sVal)   'всего записей на дату
    
    If lCount >= lCountJob Then
        Me!КнСоздатьСписокДолжностейНаДату.Enabled = False
    Else
        Me!КнСоздатьСписокДолжностейНаДату.Enabled = True
    End If
 
End Sub

Не всё пока идеально но условия выполняются.

@VinniPuh · 05.10.2019, 16:03

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

Держи:

То есть получается, что на кнопку нажать можно, но она второй раз не сработает?
Ну ты и ЖЕСТОК к людям.
Типа Жми до посинения 100 раз, но ни чего происходить не будет.
Так издеваться над человеком нельзя.

Гуманнее было бы, что бы некуда было жать.

Ладно, всем Спасибо,

Пойду пару часиков, перед ночной сменой вздпемну.

@Eugene-LS · 05.10.2019, 16:21

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

Гуманнее было бы, что бы некуда было жать.

Ну тогда напиши так:

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
Private Sub КнСоздатьСписокДолжностейНаДату_Click()
Dim s$
    
'Только отсутстствующие должности
    s = Format(Nz(Me!ВыборДаты, 1), "\#mm\/dd\/yyyy\#")
    s = "SELECT Код FROM Должности LEFT JOIN " & _
        "(SELECT КодДолжности FROM РабДень WHERE Дата=" & s & ") AS Query01 " & _
        "ON Должности.Код = Query01.КодДолжности WHERE КодДолжности Is Null"
    'Debug.Print s
    
    With CurrentDb.OpenRecordset(s)
        Do Until .EOF
            Me.[фпРабДень].Form.Recordset.AddNew
            Me.[фпРабДень].Form.Recordset![КодДолжности] = !Код
            Me.[фпРабДень].Form.Recordset![Дата] = Me!ВыборДаты
            Me.[фпРабДень].Form.Recordset.Update
            .MoveNext
        Loop
    End With
    Me.[фпРабДень].Form.Refresh
    Me.[ВыборДаты].Requery
    Me.Requery
 
'Блокировка (уже ненужной нам) кнопки:
    Me!ВыборДаты.SetFocus
    Me!КнСоздатьСписокДолжностейНаДату.Enabled = False
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

@mmzd 4 / 4 / 0 Регистрация: 08.06.2015 Сообщений: 369
	03.10.2019, 09:20 [ТС]
	VinniPuh, понял. Спасибо. Как будет время, поможете со статусом должности? 0

@VinniPuh 9145 / 6168 / 594 Регистрация: 27.03.2013 Сообщений: 20,036
	04.10.2019, 23:31
	Eugene-LS, ты же вроде писал процедуру для неболее одноразового назначения на должность номера удостоверения. По крайней мере похоже на твой стиль, или я как всегда ошибаюсь и путаю? Не поможещь ли внедрить в последний примерчик в 146 посту? Добавлено через 12 минут Хотя, наверное как всегда, Добренький Палочка-Выручалочка - mobile не откажет страждущим и выручит. По крайней мере - Шибко надеюсь на это. Добавлено через 3 часа 10 минут mmzd, Похоже - Задача - НЕВЫПОЛНИМА. Так что смиритесь. 0

@VinniPuh 9145 / 6168 / 594 Регистрация: 27.03.2013 Сообщений: 20,036
	05.10.2019, 01:53
	Картинка, нак НЕ должно быть ЗАБЫЛ приложить Миниатюры 0

Помогите с заполнением таблицы.

Решение