Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912

запись в одну строку

11.07.2013, 10:41. Показов 2162. Ответов 21
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
День добрый. подскажите можно ли сделать что бы даты входа выхода были на одной строке.см.рис
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Кнопка36_Click() 'выход
Dim nt
nt = 1
 
CurrentDb.Execute " INSERT INTO ЖурналВход ([ФИО], [дата выхода], [событие]) " _
& "VALUES ('" & Constants.user & "', '" & Now() & "', '" & "выход" & "') ;"
    DoCmd.OpenTable "ЖурналВход"
    DoCmd.SelectObject acTable, "ЖурналВход"
    DoCmd.Requery
    DoCmd.Close acTable, "ЖурналВход"
    CurrentDb.Execute "UPDATE Employee " _
        & "SET online = '0' " _
        & "WHERE код =" & CurrentUser()
 
    DoCmd.Close
 
End Sub
использую вот такой код. (и еще код медленно работает, на закрытие формы уходит где то 3 сек, что сделать что бы быстрее срабатывал?)
Миниатюры
запись в одну строку  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.07.2013, 10:41
Ответы с готовыми решениями:

Запись данных в одну строку таблицы из нескольких блоков формы
Помогите новичку, пожалуйста. Требуется создать форму, а в строке "Адрес" сделать 2 поля со списком, чтобы выбрать регион и город, и одно...

Выводит одну запись
пишу следующее private sub form_open() dim rst as recordset dim strSQl as string strSql='select kodPP, vrem form vr' set...

Показать одну запись из множества одиннаковых
Всем привет, возник вопрос, мне необходимо получить значение поля Тема_ID находящейся в Вопросы., этот запрос делает то что нужно, но...

21
 Аватар для VinniPuh
9127 / 6129 / 593
Регистрация: 27.03.2013
Сообщений: 19,972
11.07.2013, 10:51
duh_si - А не проще ли сделать поля ДатаВхода и ДатаВыхода в одной таблице и не усложнять?
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 10:55  [ТС]
так у меня так вроде и сделано
Миниатюры
запись в одну строку  
0
 Аватар для VinniPuh
9127 / 6129 / 593
Регистрация: 27.03.2013
Сообщений: 19,972
11.07.2013, 10:58
Ну, а что разве не получается в одной записи указать дату входа и дату выхода, или у Вас что то более мудреное?
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 11:00  [ТС]
ну вот на первом скрине я и показал как у меня делаются записи, вход на одной строку выход на следующей, а хочу что бы обе на одной строке записанны были
0
Эксперт MS Access
 Аватар для ltv_1953
17536 / 7288 / 1663
Регистрация: 21.06.2012
Сообщений: 13,957
11.07.2013, 11:01
Не нужны отдельные даты входа и выхода. Просто дата, а что это вход/выход определяется событием.
При открытии формы пишется дата и событие вход, при закрытии формы дата и событие выход. Обычно пишут не дату, а дату и время, проще всего задать в таблице дата по умолчанию Now().
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 11:05  [ТС]
Цитата Сообщение от ltv_1953 Посмотреть сообщение
Не нужны отдельные даты входа и выхода. Просто дата, а что это вход/выход определяется событием.
При открытии формы пишется дата и событие вход, при закрытии формы дата и событие выход. Обычно пишут не дату, а дату и время, проще всего задать в таблице дата по умолчанию Now().
я вас понял что вы имеете в виду, можно конечно и так, но записи будет получатся 2 вход/выход с одной датой и записей все так же много будет, а как я
хочу, что бы всего одна строка была для одного пользователя, (так мы будем экономить память)
0
 Аватар для VinniPuh
9127 / 6129 / 593
Регистрация: 27.03.2013
Сообщений: 19,972
11.07.2013, 11:05
А, что разве в таблицу нельзя добавить еще поле - Событие Выход, хотя я что то не совсем понимаю, зачем оно вообще нужно, есть Дата входа и есть Дата выхода, или у вас еще может быть - к примеру - Ожидание и еще много событий, и так вроде все понятно будет. Вошел, / Вышел даты проставлены.
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 11:09  [ТС]
Цитата Сообщение от kmv-puh Посмотреть сообщение
А, что разве в таблицу нельзя добавить еще поле - Событие Выход, хотя я что то не совсем понимаю, зачем оно вообще нужно, есть Дата входа и есть Дата выхода, или у вас еще может быть - к примеру - Ожидание и еще много событий, и так вроде все понятно будет. Вошел, / Вышел даты проставлены.
если записи Дат будут распологаться в одну строку то необходимость поля событие отпадет вовсе
0
 Аватар для VinniPuh
9127 / 6129 / 593
Регистрация: 27.03.2013
Сообщений: 19,972
11.07.2013, 11:13
Ну я об этом и говорю, разве только Вы в будущем надумаете указывать, что это - Пауза, Отдых, Ожидание, Отошел на обед. в туалет и т. п.
1
Эксперт MS Access
 Аватар для ltv_1953
17536 / 7288 / 1663
Регистрация: 21.06.2012
Сообщений: 13,957
11.07.2013, 11:20
Дело хозяйское. А по поводу записи в одну строку и убыстрения - при входе пишите запись с временем входа и пустым временем выхода (не запросом, а в табличном наборе), запоминаете значение кода в переменной модуля формы. При выходе ищите запись в этом наборе по коду Seek'ом и прописываете туда время выхода.
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 11:26  [ТС]
вот посмотрите , думаю будет понятнее
Вложения
Тип файла: zip Роли.zip (82.7 Кб, 13 просмотров)
0
 Аватар для Волшебник 307
1396 / 331 / 45
Регистрация: 16.04.2013
Сообщений: 786
Записей в блоге: 2
11.07.2013, 11:28
duh_si,
Обновляй поле дата выхода.
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 11:30  [ТС]
Цитата Сообщение от Волшебник 307 Посмотреть сообщение
duh_si,
Обновляй поле дата выхода.
можно по подробнее
0
 Аватар для VinniPuh
9127 / 6129 / 593
Регистрация: 27.03.2013
Сообщений: 19,972
11.07.2013, 11:35
Не думаю, что будет понятней, мой Акс - 2000 не хочет открывать - accdb - вредничает.
Думаю кто то еще споможет. , Да и сам смысл вашей задумки, как то не совсем понятен.
Может стоит поподробнее расписать чего хотите добиться, а просто так усложнять, на мой скромный взгляд, это лишнее.
0
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 11:49  [ТС]
Вот на рисунке...
1. как у меня сейчас
2. как хотелось что бы было...(ну под цифрой 2 забыл время нарисовать)
Миниатюры
запись в одну строку  
0
Эксперт MS Access
26826 / 14506 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
11.07.2013, 12:02
Цитата Сообщение от duh_si Посмотреть сообщение
я и показал как у меня делаются записи, вход на одной строку выход на следующей, а хочу что бы обе на одной строке записанны были
Попробуйте такой запрос
SQL
1
2
3
4
SELECT ЖурналВход.Код, ЖурналВход.[Дата входа], q.mn AS Выход, ЖурналВход.Версия, Employee.Фамилия, ЖурналВход.Событие
FROM ЖурналВход, Employee, (SELECT ФИО, MIN([Дата выхода]) AS mn FROM ЖурналВход GROUP BY ФИО) q,
ЖурналВход LEFT JOIN Employee ON ЖурналВход.ФИО = Employee.Код,
ЖурналВход INNER JOIN q ON ЖурналВход.ФИО=q.ФИО AND ЖурналВход.[Дата входа]<q.mn
1
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 12:05  [ТС]
Mobile а куда в коде вставить этот запрос?
0
Эксперт MS Access
26826 / 14506 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
11.07.2013, 12:15
Открываете свой запрос ЗапросЖурналВход в конструкторе. Потом правй кнопкой на ярлычке и выбираете Режим SQL. Попадаете в редактор скл. Удаляете прежнюю запись и копируете предложенный текст. Выполняете. Все.
1
569 / 169 / 22
Регистрация: 18.10.2012
Сообщений: 912
11.07.2013, 13:43  [ТС]
Спасибо, то что надо

Добавлено через 27 минут
Хотя в запросе то с помощью вашего запроса получается все как надо, а вот в таблице делаются 2 записи входа и выхода, что не есть хорошо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
11.07.2013, 13:43
Помогаю со студенческими работами здесь

Значения запроса в одну строку
Коллеги, доброго нового года. Помогите с простейшим VBA, т.к. сам не сильный профи. Есть некоторая БД, в которой перечислены...

Несколько значений в одну строку
Добрый день! Как объединить учетные номера в одну строку через точку с запятой, чтобы они не повторялись в отчете?

DLookup, возвращает ли запрос хотя бы одну запись?
запрос: единственное поле: В условии выполнения макрокоманды пишу: DLookup(,) is null Мне нужно, чтобы макрокоманда...

Как напечатать одну запись из отчета в access
Здравствуйте. У меня однотабличная БД. Файл прилагаю. Как напечатать одну запись из отчета в access. На печать вылетают все записи из...

Как преобразовать данные в одну строку
Таблица с данными. Поле1 Поле2 1 1а 1 2в 1 6д 2 7г 2 0ж 3 9х


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru