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

@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

Новые блоги и статьи Все статьи Все блоги /
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .	Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .

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

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

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

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

Решение