Можете посмотреть? Правильно ли расставил связи и ключи?

Само задание:

Создать базу данных Автошкола.
Указать данные об инструкторах (№ паспорта, ФИО, Адрес), об имеющихся учебных машинах (ГосНомер, Марка, ФИО водителя, Цвет и т.п.), об учащихся (№паспорта, ФИО, Адрес), об экзаменах (кто сдает, какому инструктору, и на какой машине).
Вывести фамилии учащихся не сдавших экзамен по вождению. Скольких проэкзаменовал каждый инструктор?

http://www.sql.ru/forum/1196100/pravilno-li-rasstavil-svyazi-i-kluchi

Можно ли как-то запрограммировать, допустим изменение текстового поля, одной процедурой сразу нескольких полей? Или придется создавать процедуру на каждое текстовое поле на форме.

http://www.sql.ru/forum/1196067/sobytiya-poley

Проблема такая, мне нужно распечатать ценники на каждый товар.
Пример: данные в таблице

Компьютер 13 - 0.5Tb - цена 100р. - 5 шт.
Компьютер 15 - 1Tb - цена 200р. - 5 шт.

мне нужно чтоб он распечатал 10 этикеток с ценой и характеристиками на все компютеры
а у меня получается только 2 этикетки(( (тоесть печатается каждая строка только 1 раз)

как мне сделать чтобы печаталось количество повторений каждой строки? а это количество указано в таблице что я указал в примере выше
Заранее спасибо

Товаров очень много так что писать для каждого товара по несколько строк это очень проблематично

Есть какойнибудь выход? желательно не сложный

http://www.sql.ru/forum/1196018/nuzhno-razobratsya-kak-pechatat-otchet-s-povtoreniyami

Добрый день, подскажите как правильно сделать подключению к серверу?
Делаю вот так

Dim cn As ADODB.Connection
Dim conn As String
conn = "Provider=SQLOLEDB.1;Password=oris;Persist Security Info=True;User ID=spp_oris;Initial Catalog=NCI_RN;Data Source=ung-38"
Set cn = New ADODB.Connection
cn.Open conn

но все равно выходит окно ошибки

http://www.sql.ru/forum/1196017/connectionstring

Доброе утро, ребят
Сложно угадать: относится ли эта тема к 1С или к Аксесс. Т.к. я думаю, что ошибся где-то в Аксесс, напишу сюда.

Задача состоит в том, чтобы подключиться к 1С серверным способом и из аксесс вызвать процедуру в 1С с передачей в нее данных.

Я создал базу в 1С, как полагается (я так думаю) :)
При запуске аксесс происходит подключение к Базе в 1С: (ниже код)

Public v8 As Object
Public Connect As Object
Set v8 = CreateObject("V83.COMConnector")
Set Connect = v8.Connect("Srvr=""server"";Ref=""1C-2016"";Usr=""Автозагрузка"";Pwd=""******""")
MsgBox ("Подключился")

То, что соединение есть свидетельствует запись в 1Сv8 servers, что есть СОМ-соединение.

Далее в аксесс вызываю

If [Статус] <> "Предварительная заявка" Then
   Set Ydogs = CurrentDb.OpenRecordset("select * from GP where [ДоговорПолный]='Y123'", dbOpenDynaset)
   Rez = Connect.ДоработкиКлиентСервер.СоздатьРеализацию("" & Ydogs![ИД] & "", 0, "" & Ydogs![ДоговорПолный] & "") // урезал код, т.к. просто передается список данных.
   MsgBox "Успешно."
End If

В 1С стоит "останова" (см. вложение) и при вызове данной процедуры был бы стоп... но его не происходит, просто выходит сообщение в аксесс "Успешно".

Подскажите пжлст, где я недоглядел чего. Спасибо.

http://www.sql.ru/forum/1196011/zapusk-procedur-1s-iz-access

Помогите разобраться. Имеем три таблицы: 1-я кошелек,сумма 2-я кредит, сумма 3-я кошелек, кредит, итого-сумма. Нужно чтоб в итого-сумма подставлялось значение из 1-й таблицы - Сумма + значение из 2-ой -Сумма, НО во второй таблице нужно выбрать несколько значений сложить их а потом уже прибавить, как это сделать? База в приложении.

http://www.sql.ru/forum/1195919/pole-so-spiskom-i-neskolko-znacheniy

Прошу прощения за тупой вопрос: имеется форма для добавления записей в таблицу. При каждом её открытии в полях отображаются данные первой записи соответствующей таблицы. Как сделать так, чтобы при открытии формы все поля были пустыми?

http://www.sql.ru/forum/1195899/kak-polya-v-forme-sdelat-pustymi-pri-otkrytii-formy

Хочется работать с файловой системой как с объектом (ActiveX), т.е. чтобы "события", происходящие с файлами, были эвентами этого объекта.

Конкретно - не со всей файловой системой, а с некоторой папкой, являющейся "песочницей" для некоторой другой крутящейся в компе программы ...

Посоветуйте, плз, куда лучше смотреть?

http://www.sql.ru/forum/1195875/faylovaya-sistema-kak-obekt-dlya-vba-ms-access

Здравствуйте!
Есть таблица:

Название цена Яблоко 15 Груша 15 Граната 30 Персик 10 Персик 10 Груша 17 Яблоко 19 Яблоко 19 Яблоко 20

Нужно:

№ Название 1 Яблоко 2 Груша 3 Граната 4 Персик

Как показано в таблице мне нужно группировать "Название" и добавить № П/П.
За ранее Спасибо!

http://www.sql.ru/forum/1195868/nomer-po-poryadka-v-zaprose-s-gruppirovkoy

Помогите нубу с запросом, выдает что должен использоваться обновляемый запрос.
Как исправить?

UPDATE Списки SET Списки.region
  (select SPROTD.region from SPROTD, Списки where SPROTD.UPR='1' and SPROTD.UPR_Otd=Списки.OTD)

http://www.sql.ru/forum/1195856/update-select

Задание:
Указать данные об инструкторах (№ паспорта, ФИО, Адрес), об имеющихся учебных машинах (ГосНомер, Марка, ФИО водителя, Цвет и т.п.), об учащихся (№паспорта, ФИО, Адрес), об экзаменах (кто сдает, какому инструктору, и на какой машине).

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

http://www.sql.ru/forum/1195852/sostavit-strukturu-bazy-dannyh-avtoshkola

Для запроса наименования банка по БИК
использую такой код

Dim strData As String
Dim strResponse As String
Dim objHTTP As Object
Dim strpost As String
strData = "postparam=postval&postparam2=postval2"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "post", "http://www.bik-info.ru/api.html?type=xml&bik=046014327", False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send strData
strResponse = objHTTP.responseText
'обработка строки strResponse 

но ответ приходит кракозябрами.
на сайте написано www.bik-info.ru:
В формате XML: http://www.bik-info.ru/api.html?type=xml&bik=НОМЕР_БИК (Кодировка Windows-1251)
как исправить помогите очень надо и очень срочно. Нужно делать платежки а наименование банка не получается узнать.

http://www.sql.ru/forum/1195801/pomogite-ochen-srochno

Добрый день.
Уважаемые программисты помогите решить на Ваш взгляд наверно очень простую задачу, но для меня она не разрешима без Вашей помощи. Я не учусь на программиста, а сам ковыряюсь в аксессе и в вба , и все как вы понимаете методом "Тыка". Данное задание находиться вот по этой ссылке http://www.askit.ru/custom/vba_office/m12/r12_01.htm
Оно мне полностью подходит. Мне не нужно не слияние с Ворд, ни какие другие варианты, где шаблон может храниться в папке Dot.
При выполнении этого задания я решаю свои проблемы, а именно:
- шаблон, а в последствии шаблоны будут находиться в базе аксесс, в отдельной таблице, в поле Ole;
- в главной форме на основе задания смогу вывести отдельные кнопки с привязкой к определенному шаблону;
- сформированный документ Ворд автоматически будет обзываться нужным мне именем и датой;

При выполнении задания использовал и Аксесс 2013, и 10 и 7 и 0. То же самое и с Ворд. Думал что проблема в том что не контачат более верхнии версии офиса с нижними. Возможно это проблема, но я установил у себя все виды офиса, "че то" не помогло.

В Вба пробовал подключать разные библиотеки, во вкладке Tools, че то не помогло.

Еще думаю о будущей проблеме с повторяющимися закладками в теле шаблона. Типо как Фамилия Имя Отчество и дата могуд в моем шаблоне до 5 раз встречаться в одном документе.

С уважением.

http://www.sql.ru/forum/1195704/pomogite-vypolnitzadanie-dlya-samostoyatelnoy-raboty-12-1-sozdanie-prilozheniya-vba-v-access

Access Runtime вылетает из приложения на Dim rLoc As New ADODB.Recordset.
В чем может быть проблема?
Access Runtime 2010 х64

http://www.sql.ru/forum/1195681/access-runtime-vyletaet-iz-prilozheniya-na-dim-rloc-as-new-adodb-recordset

Помогите пожалуйста с такой вот проблемкой. В Форме имеется поле "Дата явки", надо чтобы там всегда отображалась текуая дата. В странице свойств во вкладке "Данные" в поле "значение по умолчанию" пытаюсь вводить: =Now(), =Date(), =Today(), но дата при каждом открытии формы отображается сумбурно, пропадает из поля после каждого занесения записи. Подскажите плиз, что не так?

http://www.sql.ru/forum/1195637/ne-rabotaet-vstavka-tekushhey-daty

Добрый день.
В чем суть проблемы: Создал форму "Change_form" для поиска, просмотра и редактирования записей.
Поиск осуществлен через выбор трех критериев через три выпадающих меню и дальнейшим нажатием клавиши "поиск" (выполнением малюсенькой программы) и выводом информации в поля подчиненной формы "examplform"

После первого нажатия клавиши поиск появляется нужный текст, далее при попытке редактирования в поле подчиненной формы текста первый раз все успешно, после этого, при выборе новых параметров и нового поиска таже в подчиненной форме выводится нужный текст. Но! при попытке редактирования данной записи выскакивает следующее уведомление:

"Не удалось внести изменения из-за повторяющихся значений в индексе, первичном ключе или связях. Измените данные в одном или нескольких полях, содержащих повторяющиеся значения, удалите индекс или переопределеите его, разрешив повторяющиеся значения повторите попытку"

У меня три поля в таблице "MainTabl" откуда берет значения "Change_form" являются ключевыми, так как мне необходимо чтобы сочетания этих полей не повторялись.

При снятии значков "ключевого поля" и попытке провести два последовательных поиска с редактированием,
обнаружил, что в таблице "maintabl" меняется значение одного из критериев (бывших раньше ключевым) по которым ведется поиск на то что были в прошлом поиске.

Мне кажется что ошибка в коде кнопки "Поиск"

Private Sub Кнопка22_Click()
Dim sQ As String

sQ = " SELECT MainTabl.* " & _
" FROM MainTabl " & _
" WHERE (((MainTabl.Chang_param)=Forms!Change_Form!Chang_param) or Forms!Change_Form!Chang_param is null)" & _
" AND (((MainTabl.Bad_param) Like '*" & Forms!Change_form!Bad_param & "*') or Forms!Change_form!Bad_param is null) " & _
" AND (((MainTabl.Type_tabl) Like '*" & Forms!Change_form!Type_tabl & "*') or Forms!Change_form!Type_tabl is null) "

Me![ExamplForm].Form.RecordSource = sQ
Me![ExamplForm].Form.Refresh
End Sub

Так вот, как добиться того, чтобы при повторном поиске все значения по которым ведется поиск оставались на своих местах? А если бы значения были ключевыми, то не появлялось уведомление?

P.S. Ms Access только начал осваивать, поэтому некоторые решения возможно вам покажутся топорными, и пугающими. Очень надеюсь что мне покажут где я ошибся. Таже буду рад советам по оптимизации для придания большей элегантности формам и самой бд :)

http://www.sql.ru/forum/1195542/pri-redaktirovanii-dannyh-v-podchinennoy-forme-dannye-v-tablice-sdvigautsya

загрузка файла из интернета.

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

Function DownLoadFile2(strPathName As String)
Dim lngRetVal As Long
lngRetVal = DoFileDownload(StrConv(strPathName, vbUnicode))
If lngRetVal = 0 Then DownLoadFile2 = True
End Function

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

http://www.sql.ru/forum/1195399/zagruzka-fayla-iz-interneta

Здравствуйте. Есть простая табличка в БД на аксесс с полями Код(счетчик) и Дата(Дата). Табличка нужна для записи праздничных выходных. Занес данные на текущий годи теперь надо сделать запрос, который выводил бы количество праздничных дней в заданном интервале дат. Сделал запрос конструктором запросов:

SELECT Count(ПраздничныеДаты.Код) AS Выражение1
FROM ПраздничныеДаты
WHERE (((ПраздничныеДаты.Дата)>=[ДатаНачала] And (ПраздничныеДаты.Дата)<=[ДатаОкончания]));

этот запрос работает правильно,например с 15.01 по 25.02 выводит 2.
Мне надо использовать результат запроса в коде VBA. Поэтому я написал код для выборки количества праздников с выводом в поле формы:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT Count(ПраздничныеДаты.Код) AS КолВых  FROM ПраздничныеДаты Where (ПраздничныеДаты.Дата>=" & Format(Me.ДатаНачала, "\#mm\/dd\/yyyy\#") & ")AND(ПраздничныеДаты.Дата<=" & Format(Me.ДатаОкончания, "\#mm\/dd\/yyyy\#") & ")")
If rs.Fields(0) > 0 Then
Me.Поле130 = rs.Fields(0)
End If

вот здесь творится непонятное: 15.01 по 25.02 выводит 5, с 15.01 по 17.01 например тоже 5... откуда это? что не так? помогите пожалуйста

http://www.sql.ru/forum/1195329/kolichestvo-strok-v-zaprose

Прошу помочь.
Описываю ситуацию с существенными упрощениями.

Имеется база db.mdb с таблицами.
Имеется "приложение" p.mdb, в котором таблицы из db.mdb прилинкованы.
Имеются 2 ПК (ноутбука).
На первом размещена база и приложение.
На втором размещено приложение.

На обоих ПК запущено приложение.
Для простоты работаем с таблицами через интерфейс ACCESS.

Вносятся изменения в таблицу на 1-м ПК - вручную изменяется одна из записей, далее таблица м.б. закрыта, обновлена и т.д.
На 2-м ПК внесенные изменения не видны. Не помогает ни обновления, ни закрытие/открытие таблицы.
Но как только предпринимается попытка изменить эту же запись, то получаем сообщение, что данные изменены другим пользователем и в таблице отображается измененное на 1-м ПК значение.

Некорректно работают запросы в интерфейсе, некорректно работают запросы через DAO, но корректно работают запросы через ADO.
Такой плохой ПК только один, остальные "хорошие".
Из-за чего такое может быть?

http://www.sql.ru/forum/1195261/problemy-otobrazheniya-dannye-pri-sovmestnoy-raboty-na-neskolkih-pk

Коллеги, всем привет!

Возник затуп с простым вопросом , как при помощи одного SQL реализовать запрос ,в котором в дополнительном расчетном поле будет выводиться значение поля предыдущей строки.

Есть к примеру таблица ДОХОДЫ, с двумя полями ПЕРИОД (текст) и ДОХОД (обычное число)

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

В VBA не надо . Пример где снимается значение с привязкой к к значению счетчика также не надо. Нужно именно предыдущей строки.

http://www.sql.ru/forum/1195256/znachenie-polya-predydushhey-stroki-aksess-zapros-sql-bez-vba