Имеем две таблицы Таблица1 и Таблица2
Каждая таблица имеет текстовое поле Название1 и Название2

Можно ли, и если можно то как, создать запрос, возвращающий записи:

Пример

Название1: Новый цифровой радиоприемник PST3569 с наушниками
Название2: приемник PST3569

Это что-то типа Like *&" бла-бла-бла"&* в запросе. Но хочется связать по подобному принципу две таблицы.

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

http://www.sql.ru/forum/1116801/zapros-pokazat-zapisi-vhozhdenie-chasti-tekstovogo-polya-v-tekstovom-pole

Всем доброе утро.
Есть форма с тремя контролами - полями со списками и подчиненной формой. Есть задача чтобы при загрузке главной формы подчиненная была пустая, а после выбора значений в трех полях со списком обновлялась - используя как фильтр значения из этих трех полей.
Поиск и FAQ смотрел - не нашел подходящего решения

Как это реализовать лучше?

http://www.sql.ru/forum/1116779/dinamicheskaya-filtraciya-podchinennoy-formy

нужно сохранять заполняемые из access шаблоны word по значению поля "краткое_наименование".
Пока так - нажимаем кнопку заполнения шаблона, шаблон открывается, заполняется и предлагается просто сохранение файла под именем по первому слову (стандартно в word).
Нужно - открыть, заполнить, сохранить под именем значения, потом открыть снова.

Private Sub кнПечатьШаблонИскаУпрощ_Click()

Dim Name As String
Name = Me.Краткое_наименование

 'указываем абсолютный путь к шаблону документа, по которому будем формировать свой документ
    strPathDot = Application.CurrentProject.Path & "\ИскУпрощ(шаблонAccess).dot"

'указываем под каким именем сохранять создаваемый документ
strPathWord = CurrentProject.Path & "\" & Forms![Данные]!Краткое_наименование & ".doc"

    Call funOutputWord(strPathDot, strPathWord)
   
End Sub

'функция выгрузки в Word значений полей формы через закладки в шаблоне
Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_

Dim DlgUser As Integer, i As Long

    'проверяем наличие сформированного ранее документа
    If Dir(strPathWord) <> "" Then 'если нашелся документ по заданому в strPathWord полному пути (вместе с именем)
        DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
        If DlgUser = vbNo Then 'если пользователь выбрал Нет - то открываем прежний вариант документа
            Set app = CreateObject("Word.Application") 'создаем объект Word, чтобы можно было работать с его методами и свойствами
            With app
                .Visible = True 'запускаем приложение Word
                .Documents.Open strPathWord 'открываем документ (по пути в переменной strPathWord)
            End With
            Set app = Nothing 'уничтожаем переменную
        Else 'если пользователь выбрал Да - то есть согласился перезаписать документ
            GoTo nn 'переходим по метке nn
        End If
    Else 'если не нашлось документа по заданому в strPathWord полному пути
nn:
        Set app = New Word.Application 'делаем ссылку на объект Word для создания нового документа
        app.Visible = True 'запускаем приложение Word
        app.Documents.Add strPathDot 'присоединяем к объекту Word шаблон по заданому пути
        With app.ActiveDocument 'делаем ссылку на активный документ - в данном случае тот что формируется
    'находим закладку по имени в заменяем ее на текст из поля формы
            .Bookmarks.Item("полное_наименование").Range.Text = Nz(Полное_наименование, "")
            .Bookmarks.Item("краткое_наименование").Range.Text = Nz(Краткое_наименование, "")
            .Bookmarks.Item("адрес").Range.Text = Nz(Адрес, "")
           
            
            strPathWord = CurrentProject.Path & "\" & Forms![Данные]!Краткое_наименование & ".doc"
            .SaveAs (strPathWord) 'сохраняем созданный документ по заданному пути strPathWord
        End With
        Set app = Nothing 'уничтожаем переменную
    End If
    funOutputWord = True 'ставим флаг успешного выполнения функции
    
Exit_:
    Exit Function
Err_:
    funOutputWord = False
    Err.Clear
    app.Quit
    Resume Exit_
End Function

http://www.sql.ru/forum/1116759/sohranenie-dannyh-v-fayl-word-pod-zadannym-po-znacheniu-polya-imenem

когда вводишь по такой маске "А14-"009999"/201"0;0;_ отображаются пробелы если не вводишь какие-то цифры - как можно исправить?

http://www.sql.ru/forum/1116746/maska-vvoda-tolko-na-vvod-a-ne-na-otobrazhenie-znacheniya

по данной процедуре в поле курсор перемещается в начало поля.
А вот в поле с датой - нет. Может дело в том что там маска и средний формат даты (00\-LLL\-9999;0;" ")

Private Sub поиск_дата_GotFocus()
If IsNull(поиск_дат) Or поиск_дата = "*-*-*" Then
поиск_дата.SelLength = 0
поиск_дата.SelStart = 0
End If
End Sub

Нужно чтобы в случае пустого поля курсор перемещался в начало поля

http://www.sql.ru/forum/1116724/kursor-ne-peremeshhaetsya-v-nachalo-polya-konflikt-s-formatom-polya

Здрасте, подскажите в какую сторону копать, может где то есть готовые примеры.
Мне нужно создать форму, с фильтрами. Мы к примеру выбрали что нам нужно и нажали "подробнее" на форме и нас перекинуло на сайт где все описано подробно. Как это сделать?

http://www.sql.ru/forum/1116717/perehod-s-formy-na-sayt

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

не перезапуская формы решаем выбрать другую область допустив "бресткая"
но в поле с городами остается все также только 3 города "минск,держинск,фанималь"

...то есть фильтр в 1ом поле первый раз сработал правильно,а при использовании фильтра второй раз выбор во втором поле со списком остается прежним...

как это можно подправить???

http://www.sql.ru/forum/1116710/filtr-s-filtra

Добрый день.
Внизу пример из Oracle:

SELECT STUDENT_ID, MAX(MARK)
FROM EXAM_MARKS
GROUP BY STUDENT_ID;

Как такой же запрос написать в MS Access SQL?

http://www.sql.ru/forum/1116697/group-by-v-ms-access

Доброе время суток. Есть три таблицы: users, purchases, books. Например, я хочу вывести список всех покупок одного из юзеров (к примеру с user_id = 3). Пишу запрос:\

SELECT * FROM purchases WHERE user_id = 3;

Вопрос в следующем: как мне написать запрос, чтобы мне выводилась таблица не с идентификаторами пользователя и купленными ими книг, а чтобы были его имя фамилия ( нужно как-то достать из таблицы users) и, допустим, название купленной книги (соответственно из таблицы books)?

http://www.sql.ru/forum/1116660/vyborka-iz-treh-tablic

Добрый день, уважаемые форумчане!
Я новичок, как здесь, так и в мире SQL, а уже столкнулся с первой проблемой, которую мне никак не удается решить с помощью гугла!

Итак
Дано: База данных MS Access; 2 таблицы, связанные одноименными ключами firm_id:
1)Firm
-firm_id
-firm_name (название фирмы)
2)Contracts
-firm_id
-contract_punkt (порядковый номер договора)

Найти:
выборку из двух таблиц, отсортированную по двум полям:
-firm_name
-contract_punkt

Решение:
Вот, какой код писал я.

SELECT Firm.firm_name, Contracts.contract_punkt, ...другие столбцы таблицы Contracts...
FROM Firm
INNER JOIN Contracts ON Firm.firm_id = Contracts.firm_id
ORDER BY Firm.firm_name, Contracts.contract_punkt;

Затем конструктор запросов (см.Рисунок) сгенерировал аналогичный код).
Однако сортировка по firm_name не осуществляется в независимости от ее положения после команды ORDER BY.


Общался с друзьями, работающими с другими СУБД (к примеру, Teradata). У них аналогичный запрос срабатывал без косяков.
Подскажите, пожалуйста, в чем может быть проблема? Что я не так делаю в этой жизни? :-)

Большое спасибо!

http://www.sql.ru/forum/1116620/nastraivaemaya-sortirovka-poley-iz-raznyh-tablic

Добрый день
произвожу экспорт по следующему коду:

+

Sub test1() Dim Exap As Object Dim ExApWo As Excel.Workbook Dim mysheet As Excel.Worksheet Dim FileD As FileDialog Set FileD = Application.FileDialog(msoFileDialogFolderPicker) With FileD .Title = "Select destination file" .ButtonName = "Select" .Filters.Clear .Filters.Add "*.*", "*.*", 1 .InitialView = msoFileDialogViewList .AllowMultiSelect = False DestF = .Item If .Show = 0 Then GoTo exit_sub End With Set FileD = Nothing Set Exap = CreateObject("Excel.Application") Set ExApWo = Exap.workbooks.Open(DestF) Set mysheet = ExApWo.Sheets(1) With mysheet FiR = .UsedRange.Row FiC = .UsedRange.Column LaR = .UsedRange.Row + .UsedRange.Rows.Count - 1 LaC = .UsedRange.Column + .UsedRange.Columns.Count - 1 .Range(Cells(FiR + 1, FiC), Cells(LaR, LaC)).Delete Set rs = CurrentDb.OpenRecordset("soft_ok") .Range("A2").CopyFromRecordset rs rs.Close End With ....

но при выполнении кода, компилятор ругается на ".Filters.Add "*.xls*", "*.xls*", 1", с ошибкой объект не поддерживает данное свойство или метод

в чем может причина? помогите плз

http://www.sql.ru/forum/1116616/problema-pri-eksporte-v-excel

Помогите составить запрос на удаление дубликатов.
То есть таблица выглядит как:

n_post n_det1 n_det2 S1 P1 P2 S1 P1 P3 S1 P2 P1 S1 P2 P3 S1 P3 P1 S1 P3 P2

А должна выглидить как:

n_post n_det1 n_det2 S1 P1 P2 S1 P1 P3 S1 P2 P3

http://www.sql.ru/forum/1116605/zerkalnye-dublikaty-v-dvuh-stolbikah

Здравствуйте!
Подскажите как правильно обновить остатки?
Любые значения в любой день могут изменится.
Поля приход,расход,ОстатокНаСегодня спокойно переносятся а вот остаток на сегодня никак не могу придумать как одновить.
Обновит значение надо во всех числах.
Спасибо за помощь

http://www.sql.ru/forum/1116580/perenos-ostatkov

Добрый день.
В редакторе VBA (Ofice 2010) пропал хелп, причем во всех приложениях. Проверил все компы. В трех пропал, на одном остался. Кто-нибудь сталкивался?

http://www.sql.ru/forum/1116576/propal-help

Хочу составить базу данных для спортсменов . В таблице 1 у меня все данные о спортсменах. В таблице 2 соревнования и информация о них. В таблице 3 участие в соревнованиях по фамильно. Как сделать форму заявки на участие в соревнованиях для 13 спортсменов , чтобы вся информация автоматически вводилась в таблицк 3 . С С уважением. Жду ответа.

http://www.sql.ru/forum/1116574/sportsmeny

Как в акцессе поменять стили кнопок на плоские без окгругления?

http://www.sql.ru/forum/1116534/knopki-s-kruglymi-ugolkami-nadoeli

При нажатии на кнопку в форме с данными, появляется форма с кнопками "Да/Нет".
Если "Да" , то выполняется функция копирования определенных данных из одной таблицы в другую, при этом в форме обнуляются некоторые данные в полях.
Если "Нет" , то просто закрывается форма "Да/Нет".

Если жму на "Да" , то выводится "Object recuired". Что упущено?

Прилагаю "говнокод"© , сильно не пинайте, т.к познания слабые, но стараюсь =)

Модератор: Удалено по просьбе автора.

http://www.sql.ru/forum/1116515/podskazhite-gde-oshibki-u-menya

Здравствуйте.

Запрос INSERT INTO.
---------------------
У меня две базы Первая.mdb и Вторая.mdb
На обоих стоит пароль на вход Акесовский - 123.

В Первой нет записей, туда нужно добавить.
Во Второй есть записи, их нужно добавить в Первую.mdb

Запрос на Добавление находится в третьей Бд Запрос.
---------------------------------------------------------
Вот запрос.

INSERT INTO (;DATABASE=C:\Users\User\Desktop\Новая папка\Первая.mdb; PWD=123) Таблица1 ( Фамилия, Имя, Отчество ) IN 'C:\Users\User\Desktop\Новая папка\Первая.mdb'[;DATABASE=C:\Users\User\Desktop\Новая папка\Первая.mdb; PWD=123]
SELECT Таблица1.Фамилия, Таблица1.Имя, Таблица1.Отчество
FROM Таблица1 IN 'C:\Users\User\Desktop\Новая папка\Вторая.mdb'[;DATABASE=C:\Users\User\Desktop\Новая папка\Вторая.mdb; PWD=123];

Когда я запускаю его вручную или так:
db.Execute "Запрос1"
Он отрабатывает нормально,

А если через INSERT INTO то выдает ошибку.
Ошибка в инструкции INSERT INTO.
Почему?

http://www.sql.ru/forum/1116462/zapros-insert-into

Вечер добрый.

Пытаюсь добить БД для упрощения рутинной работы с Постановлениями судебных приставов.

Не получаются некоторые моменты. Прошу Вашей помощи/советов :)

При получении документа он вносится в форму "Zapros".
Общий журнал находится в "Zapros_all".

1. В "Zapros_all" нужно поставить флажок для выбора конкретных документов, чтобы в дальнейшем по выбранным сформировался отчет (отчет по типу как, "отчет", для примера), т.е. обработка только выделенных записей.
Отчет сотворю, не знаю, как с флажком. Он справа...

И здесь же, при формировании отчета должна быть проверка на идентичность данных по столбцу "Наименование ОСП", т.к. один отчет должен формироваться только внутри одного отдела приставов по нескольким, например, постановлениям.

2. В форме "IFNS" хранятся данные по отделам приставов, но получилось, что у каждого отдела несколько сотрудников, которые могли сформировать запрос.

В итоге - повторяющиеся строки (т.е. у Отдела №3 работают Сидорова и Петрова), а это уже 2 строки на один Отдел!

Думаю, сделаю подчиненную форму, чтобы ФИО была возможность из списка выбрать для каждой службы.
Не получается что-то...
Поставилась подчиненная форма, но выбирать из нее информацию визуально неудобно,
да и кривая она получалась.

3. В Форме "Zapros", поле "№ п/п" должно содержать не Id (счетчик), а нумерацию, при каждом новом открытии этой формы, последний номер запроса должен увеличиваться на 1, т.к. возможны вставки документов "задним числом" и проч, а полем Id возможности управлять нет! Проблема...

4. И еще вопрос: как сделать точную копию предыдущего запроса?
Допустим, вношу данные по одному документу, а второй точно такой же, но различается парой цифр.
Чтоб полностью все заново не заносить, как скопировать предыдущий?

Мыслей много, не знаю, как правильно реализовать.
Заранее благодарю за помощь!

БД размещена здесь: https://yadi.sk/d/-_lZm5ClbYKpR

http://www.sql.ru/forum/1116449/bd-postanovleniya-sudebnyh-pristavov

Всем привет.
Список значении этого запроса надо вывести в отчете в ГОРИЗОНТАЛЬНОМ положении, т.е. в одной строке. Как можно это сделать?

SELECT Таблица1.ПолеИмя
FROM Таблица1
WHERE (((Таблица1.ПолеУсл1)=[Forms]![GlavForm]![Grd].[Caption]) AND ((Таблица1.ПолеУсл2)="мой"));

http://www.sql.ru/forum/1116414/znacheniya-zaprosa-kak-vyvesti-v-otchete-v-gorizontalnom-polozhenii-t-e-v-odnoy-stroke