Посоветуйте как лучше создать базу данных о людях/контактах (фамилия, имя, отчество, адрес, телефоны, адреса электронной почты, дата рождения и т.д.), с возможностью отслеживания смены адреса проживания, смены фамилии, то есть чтобы можно было узнать, например, по какому адресу проживал человек два года назад, какая фамилия у него тогда была
+ тот факт, что некоторые типы информации могут быть и по несколько (например, номера телефонов).
Кроме создания по таблице для каждого поля с информацией о человеке с указанием даты создания записи и сроком действия этой информации + поле yes/no для указания актуальности записи, какие еще есть варианты? На сколько правильный мой подход?
Базу думаю создать в Access. Заранее спасибо всем, кто не прошел мимо.

+Схема

Persons - ID - Birthday - … PersonName - ID - Name - StartDate - EndDate - Relevance (yes/no) Person* - ID - * - StartDate - EndDate - Relevance (yes/no)

http://www.sql.ru/forum/1283555/posovetuyte-kak-luchshe-sozdat-bazu-dannyh-o-ludyah-kontaktah

Вопрос такой возник, есть Access с данными и отчетами построенными на их основании.
Задача, организовать односторонний доступ пользователей к отчетам. То есть так что бы они могли ознакомится с отчетом либо распечатать. Но при этом не имели возможности, что либо изменить в нем...
Как это можно реализовать? Что почитать?
Для меня полезна будет любая информация. Или на Access это реализовать не получиться?

http://www.sql.ru/forum/1283517/kak-ogranichit-dostup-k-otchetom-access

Приветствую всех! Уважаемые профессионалы, подскажите, как это реализовать. Есть запрос, в котором каждому значению времени (В) соответствует параметр П0. Дискретность времени -30мин. Мне надо добавить в запрос параметр ПЧ, в строки, где В равно полный час, который будет равен среднему значению П0 предыдущей строки и текущей, как на 2-й картинке. Причем в первой строке параметр ПЧ должен быть 0, т.к. предидущей строки нет. Не знаю, понятно сформулировал вопрос?

http://www.sql.ru/forum/1283497/vychislenie-srednego-znacheniya-polya-v-dvuh-smezhnyh-strokah-zaprosa

Всем здравствуйте.
Кто в курсе, подскажите пожалуйста.
Access 2003. Создаю экселевский файл объект, пишу в него, закрываю.
А при открытии возникает предупреждение, что действительный формат файла отличается от указываемого его расширением имени файла.
Что это за фигня и как с ней бороться ?

  Dim xlApp As Object  'Excel.Application
  Dim xlBook As Object 'Excel.Workbook
  Dim xlSheet As Object 'Excel.Worksheet
  dim filename as string

  filename = "H:\каталог\" & "имяфайла" & ".xls"

  Set xlApp = CreateObject("Excel.Application")

  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlApp.ActiveSheet

'-------------------------------------------------------------------------------------
....
'-------------------------------------------------------------------------------------

  xlBook.SaveAs filename
  xlBook.Close
  xlApp.Quit

  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

http://www.sql.ru/forum/1283429/eksport-v-excel-deystvitelnyy-format-fayla-otlichaetsya-ot-ukazyvaemogo-ego-rasshireniem

Добрый вечер, подскажите, пожалуйста, как в MS Access решить такую проблему: в таблице есть поле [НачалоМанипуляцииNNN], формат поля – краткий формат даты, не индексированное, обязательное; НО! очень редко для отдельной записи это поле должно быть необязательным (нет необходимости в этой манипуляции). Вопрос: как реализовать в форме возможность отключать обязательность поля кнопкой (или иным образом)? В идеале – нажал кнопку «МанипуляцияNNN не выполнялась» и поле становится недоступно и, естественно – не обязательным (чтобы Аксес дал возможность сохранить отдельную запись без заполнения поля [НачалоМанипуляцииNNN]? Заранее благодарен, с Ув. Юрий PS Очень просил бы не в VBA – не справлюсь, а с SQL уже справлюсь

http://www.sql.ru/forum/1283425/otmenit-obyazatelnost-polya-dlya-odnoy-zapisi

Добрый день.

Помогите, не могу понять как сделать запрос с группировкой по периодам, в качестве периодов должны быть смены, т.е. нужно чтобы считало сколько произведено товара по-модельно за смену.
Смены две: дневная с 08:00:00 по 20:59:59 и ночная с 21:00:00 по 07:59:59.

http://www.sql.ru/forum/1283277/zapros-s-gruppirovkoy-po-periodam-po-smenam

При создании базы в sql возникает ошибка, связанная со связями таблиц. В приложенном файле приведена работающая в mdb схема.
Что можно посоветовать?

http://www.sql.ru/forum/1283273/baza-mdb-v-sql

Столкнулся с проблемой отсутствия указанной библиотеки при установки разработанной базы на новые версии Windows.

Поначалу думал, что все дело в несовместимости версий Аксесса. Ведь иногда mde - mdb файлы работают нормально с 2010-м Аксеесом и 2007-м, будучи разработаны в 2003-м.

Сейчас, понятно, постепенно буду переходить на 2013 и более поздние.
Перетранслирование mdb в accdb результата не дает - просит библиотеку.

Подскажите, как осуществлять переход, сохраняя свои предыдущие "разработки"?

Разрабатывать базу как бы с "нуля" и импортировать объекты (модули в том числе) в "разрабатываемую" базу? Или как-то еще?
Заранее благодарен.

http://www.sql.ru/forum/1283249/otsutstvie-biblioteki-mscomct2-ocx-v-pozdnih-versiyah-windows

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

Private Sub Form_Current()
'Окна и балконы падежи и множественное число
    If [Окна_Ф] = 1 Then eofa = " окно" And eofm = " окно" Else If [Окна_Ф] = 2 Or [Окна_Ф] = 3 Or [Окна_Ф] = 4 Then eofa = " окна" And eofm = " окна" Else eofa = " окон" And eofm = " окна"
    If [Окна_Тор] = 1 Then eotr = " окно" And eotrm = " окно" Else If [Окна_Тор] = 2 Or [Окна_Тор] = 3 Or [Окна_Тор] = 4 Then eotr = " окна" And eotrm = " окна" Else eotr = " окон" And eotrm = " окна"
    If [Окна_Тыл] = 1 Then eot = " окно" And eotm = " окно" Else If [Окна_Тыл] = 2 Or [Окна_Тыл] = 3 Or [Окна_Тыл] = 4 Then eot = " окна" And eotm = " окна" Else eot = " окон" And eotm = " окна"
    If [Балк_Ф] = 1 Then ebf = " балкон" And ebfm = " балкон" Else If [Балк_Ф] = 2 Or [Балк_Ф] = 3 Or [Балк_Ф] = 4 Then ebf = " балкона" And ebfm = " балконы" Else ebf = " балконов" And ebfm = " балконы"
    If [Балк_Тор] = 1 Then ebtr = " балкон " And ebtrm = " балкон" Else If [Балк_Тор] = 2 Or [Балк_Тыл] = 3 Or [Балк_Тор] = 4 Then ebtr = " балкона " And ebtrm = " балконы" Else ebtr = " балконов " And ebtrm = " балконы"
    If [Балк_Тыл] = 1 Then ebt = " балкон " And ebtm = " балкон" Else If [Балк_Тыл] = 2 Or [Балк_Тыл] = 3 Or [Балк_Тыл] = 4 Then ebt = " балкона " And ebtm = " балконы" Else ebt = " балконов " And ebtm = " балконы"
'Обозначение наличия решеток
     If [Окна_Ф] > 1 Then If [Окна_Ф_Реш] = "решётки" Then resh10 = [Окна_Ф_Реш] Else If [Окна_Ф_Реш] = "ролставни" Then resh10 = [Окна_Ф_Реш] Else resh10 = 3 Else: resh10 = 4
     If [Балк_Ф] > 1 Then If [Балк_Ф_Реш] = "решётки" Then resh11 = [Балк_Ф_Реш] Else If [Балк_Ф_Реш] = "ролставни" Then resh11 = [Балк_Ф_Реш] Else resh11 = 3 Else: resh11 = 4
     If [Окна_Тор] > 1 Then If [Окна_Тор_Реш] = "решётки" Then resh12 = [Окна_Тор_Реш] Else If [Окна_Тор_Реш] = "ролставни" Then resh12 = [Окна_Тор_Реш] Else resh12 = 3 Else: resh12 = 4
     If [Балк_Тор] > 1 Then If [Балк_Тор_Реш] = "решётки" Then resh13 = [Балк_Тор_Реш] Else If [Балк_Тор_Реш] = "ролставни" Then resh13 = [Балк_Тор_Реш] Else resh13 = 3 Else: resh13 = 4
     If [Окна_Тыл] > 1 Then If [Окна_Тыл_Реш] = "решётки" Then resh14 = [Окна_Тыл_Реш] Else If [Окна_Тыл_Реш] = "ролставни" Then resh14 = [Окна_Тыл_Реш] Else resh14 = 3 Else: resh14 = 4
     If [Балк_Тыл] > 1 Then If [Балк_Тыл_Реш] = "решётки" Then resh15 = [Балк_Тыл_Реш] Else If [Балк_Тыл_Реш] = "ролставни" Then resh15 = [Балк_Тыл_Реш] Else resh15 = 3 Else: resh15 = 4
'Решёток нет
     If (resh10 = 3 Or resh10 = 4) And (resh11 = 3 Or resh11 = 4) And (resh12 = 3 Or resh12 = 4) And (resh13 = 3 Or resh13 = 4) And (resh14 = 3 Or resh14 = 4) And (resh15 = 3 Or resh15 = 4) Then resh20 = "Решётки или ролставни не установлены. "
'Решётки фасад и торец
     If (resh10 <> 3 Or resh10 <> 4) And (resh11 <> 3 Or resh11 <> 4) And (resh12 <> 3 Or resh12 <> 4) And (resh13 <> 3 Or resh13 <> 4) Then If resh10 = resh11 = resh12 = resh13 Then resh31 = "На" & eofm & " и" & ebtrm & " с фасада и торца установлены " & resh10 Else resh31 = "Со стороны фасада на " & eofm & " установлены " & resh10 & ", а на " & ebfm & " установлены " & resh10 & ", со стороны торца на " & eotrm & " установлены " & resh10 & ", а на " & ebtrm & " установлены " & resh10 Else:
'Решётки фасад и тыл
     If (resh10 <> 3 Or resh10 <> 4) And (resh11 <> 3 Or resh11 <> 4) And (resh14 <> 3 Or resh14 <> 4) And (resh15 <> 3 Or resh15 <> 4) Then If resh10 = resh11 = resh14 = resh15 Then resh32 = "На" & eofm & " и" & ebtrm & " с фасада и тыла установлены " & resh10 Else resh32 = "Со стороны фасада на " & eofm & " установлены " & resh10 & ", а на " & ebfm & " установлены " & resh10 & ", со стороны тыла на " & eotm & " установлены " & resh10 & ", а на " & ebtm & " установлены " & resh10 Else:
'Решётки торец и тыл
     If (resh12 <> 3 Or resh12 <> 4) And (resh13 <> 3 Or resh13 <> 4) And (resh14 <> 3 Or resh14 <> 4) And (resh15 <> 3 Or resh15 <> 4) Then If resh12 = resh13 = resh14 = resh15 Then resh33 = "На" & eofm & " и" & ebtrm & " с торца и тыла установлены " & resh10 Else resh33 = "Со стороны торца на " & eofm & " установлены " & resh10 & ", а на " & ebfm & " установлены " & resh10 & ", со стороны тыла на " & eotm & " установлены " & resh10 & ", а на " & ebtm & " установлены " & resh10 Else:
'Решётки фасад
     If (resh10 <> 3 Or resh10 <> 4) And (resh11 <> 3 Or resh11 <> 4) Then If resh10 = resh11 Then resh21 = "На" & eofa & " и" & ebfm & " с фасада установлены " & resh11 Else resh21 = "Со стороны фасада на " & eofa & " установлены " & resh10 & ", а на " & ebfm & " установлены " & resh11 Else
'Решётки торец
     If (resh12 <> 3 Or resh13 <> 4) And (resh12 <> 3 Or resh13 <> 4) Then If resh12 = resh13 Then resh22 = "На" & eofa & " и" & ebfm & " с торца установлены " & resh12 Else resh22 = "С торцевой стороны на " & eofa & " установлены " & resh12 & ", а на " & ebfm & " установлены " & resh13 Else
'Решётки тыл
     If (resh14 <> 3 Or resh15 <> 4) And (resh14 <> 3 Or resh15 <> 4) Then If resh14 = resh15 Then resh23 = "На" & eofa & " и" & ebfm & " с тыла установлены " & resh14 Else resh23 = "С тыльной стороны на " & eofa & " установлены " & resh14 & ", а на " & ebfm & " установлены " & resh15 Else
     Else:
     If resh10 = resh11 = resh12 = resh13 = resh14 = resh15 Then resh35 = "На всех" & eofm & " и" & ebfm & " установлены " & resh10 Else resh35 = "Со стороны фасада на " & eofm & " установлены " & resh10 & ", а на " & ebfm & " установлены " & resh10 & ", со стороны торца на " & eotrm & " установлены " & resh10 & ", а на " & ebtrm & " установлены " & resh10 & ", со стороны тыла на " & eotm & " установлены " & resh10 & ", а на " & ebtm & " установлены " & resh10
End If
S = resh20 & resh21 & resh22 & resh23 & resh24 & resh31 & resh32 & resh32 & resh35
Me.П_Описание = "                               " & S
End Sub

Код получился такой, только на выходе получается
" На всех и установлены "
вот так не могу понять почему, и если кто то может подсказать как уменьшить сие ЧУДО, буду признателен.
Заранее спасибо.

http://www.sql.ru/forum/1283220/pomogite-razobratsya-v-rezultate-vba

Подскажите, может есть способ печати дробных чисел в поле который я не знаю.
У меня два варианта пока, 1 это печать двух полей друг под другом, тогда нужно чтобы одна сторона поля пропечатывалась линией, тоже не знаю как делать, либо 2 помещать между полями линию, трудоемко, так как у меня 30 полей.

http://www.sql.ru/forum/1283139/kak-v-otchete-napechatat-drob

Зайдем с другой стороны. Есть две подчиненные формы, в первой товар, и вторая- корзина, в корзину товар добавляется путем проставления галочки у товара. Нужен макрос или код для фильтрации данных по умолчанию во второй ПФ. Допустим,в первой поставила галочку, а во второй она отфильтровалась. Фильтр: показывать запись если поле"ТКупить"=0(-1). Такие значение, потому что поле логическое. Возможно такое?

http://www.sql.ru/forum/1283115/po-umolchaniu-v-forme-pokazyvat-zapisi-tolko-s-0-v-opredelennoy-stroke

Есть две подчиненные формы, в первой данные- товар, во второй- товар который купили. В первой пф покупают товар "Галочкой", а вторая ПФ является своеобразной корзиной. Вопрос, какой написать код, чтобы после того, как я отметила запись галочкой, она автоматом появилась во второй пф.

http://www.sql.ru/forum/1283105/skopirovat-dannye-iz-pervoy-podchinennoy-formy-v-druguu-otmechennye-galochkoy

Использую среду выполнения 2010 Runtime.
В WebBrowser просматриваю локальную html страницу.
Но простейший Java Script не выполняется.
В чем может быть проблема?

http://www.sql.ru/forum/1283079/2010-runtime-webbrowser-java-script

Добрый день!
Прошу помощи в разъеснении

есть подключение
On Error Resume Next

Dim oConn As Object
Set oConn = New ADODB.Connection

oConn.Open "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _
"SERVER=test;" & _
"DATABASE=test;" & _
"UID=test;" & _
"PASSWORD=test;" & _
"PORT:3306;" & _
"Option=3;"

If oConn.State = adStateOpen Then
MsgBox "Здрасти, я ваша Тетя =)"
Else
MsgBox "Фигасе... =("
End If

Дальше необходимо вытащить данные из какой нибудь таблицы, помогите написать пример...


И еще вопросик, на каждое событие мне надо открывать подключение (написано выше), если необходимо вытащить данные???

http://www.sql.ru/forum/1283065/access-mysql

update учетзп 
set м1=(select sum(зп) from реестрзп where рабочий=1 and месяц=1 and тип=0)   
where код=3

в результате выполнения - ошибка

http://www.sql.ru/forum/1283064/kak-napisat-podzapros-s-update

Прилинковал таблицы оракла, пытаюсь в таблицу вставить не целые значения - получаю ошибку добавления данных в присоединенную таблицу.
При этом уже вставленные значения типа 1000.05 отображаются в акцессе как 100005.
Что и где в настройках поменять?
Access 2007, поле оракла NUMBER (10,2)

http://www.sql.ru/forum/1283058/ne-poluchaetsya-insert-v-linkovannuu-tablicu-chisel-s-zapyatoy

Добрый день! Сразу оговорюсь, что я совсем чайник. Вопрос такой: При импорте из XML файла в Access данные импортируются не полностью. Access пришет ошибки:

Усечение данных поля

Microsoft Access Database Engine: Размер поля недостаточен, чтобы принять добавляемые данные.

Microsoft Access Database Engine: Update или CancelUpdate без AddNew или Edit.

Особенно не понятно про 3 строчку. С первыми двумя вроде понятно, что это может быть из-за кол-ва символов больше 255.

Скрин с кодом XML, который импортировался и данные из Access об ошибках прилагаю.

Подскажите, пож-а, что сделать, чтобы импортировать все данные?

Спасибо!

Модератор: Тема перенесена из форума "Microsoft Office".

http://www.sql.ru/forum/1282968/vstavka-xml-dannyh-v-microsoft-access

Всем здравствуйте. Кто знает, подскажите пожалуйста. Access 2003.
Для подсчёта текущего сальдо использую вот такую конструкцию :

=DSum("amount";"order_price_change";"order_code=" & [order_code] & " and cdate([data])<='" & [Data] & "'")

Но... как-то она не так работает, см. картинку.... что я делаю не так ?

http://www.sql.ru/forum/1282869/narastaushhiy-balans-v-postroitele-vyrazheniy

Помогите объединить несколько запросов в один.
На текущий момент есть запросы.
Запрос 1

SELECT [Position].ProductID, [Position].Quantity, [Position].OrderPrice, [Position].OrderID
FROM [Position]
WHERE ((([Position].OrderID)=469));

Запрос 2

SELECT [Position].ProductID, [Position].Quantity, [Position].OrderPrice, [Position].OrderID
FROM [Position]
WHERE ((([Position].OrderID)=469));

Запрос 3

SELECT [Запрос1].ProductID, [Запрос1].Quantity, [Запрос1].OrderPrice, [Запрос1].OrderID, [Запрос2].[Sum-Quantity], [Запрос2].OrderPrice, [Запрос2].ProductID, [Sum-Quantity]-[Quantity] AS Разница
FROM [Запрос1] LEFT JOIN [Запрос2] ON [Запрос1].ProductID = [Запрос2].ProductID;

Можно ли их все объединить в один запрос?

http://www.sql.ru/forum/1282816/obedinit-zaprosy

Доброго времени суток.

Не подскажете, каким методом можно из VBA не только открыть Проводник, но и выделить в нем файлы по известным именам?

http://www.sql.ru/forum/1282783/otkryt-provodnik-i-vydelit-v-nem-fayly