Всем доброго времени суток!
Задача: знаем ФИО сотрудника, необходимо найти фирму где он работает.
Что имеем:главная форма "forma_meny" на ней лежит подчиненная табличная форма "klient" (поле для связи "kod_cl"-код фирмы) в которой отображен список организаций. На форме "forma_meny" имеется поле "poisk" куда вводим ФИО сотрудника (к примеру "Иванов") по которому необходимо выполнить поиск, далее по нажатию кнопки у нас открывается новая табличная форма ("client_FAM", поле для связи "kod_cl") со списком всех "Ивановых" в БД, и к каждому из них закреплен код фирмы где они работают ("kod_cl"). Находим нужного нам "Иванова" и по событию DblClick нужно закрыть форму "client_FAM" а в форме [Forms]![forma_meny]![klient] установить курсор на ту запись "kod_cl" которая будет соответствовать коду клиента из формы "client_FAM".

Попытки реализации:

Private Sub FAM_DblClick(Cancel As Integer)
Dim rs As Recordset
  
  Set rs = CurrentDb.OpenRecordset("SELECT Top 1 kod_cl FROM slv_client WHERE kod_cl=" + Me.kod_cl)
  Forms.Forma_meny.klient.Form.Recordset.FindFirst "kod_cl=" + [Forms]![client_FAM]![kod_cl]
  DoCmd.Close acFormDS, "client_FAM"  
End Sub

выдает ошибку типа.

Что не так я делаю, или есть другой способ реализовать данный вопрос?

http://www.sql.ru/forum/1130461/perehod-na-opredelennuu-zapis-tablichnoy-formy

Здравствуйте.
Привязана таблица *.txt. При импорте невозможно разъединить код детали от количества (выглядит так - "04500-00100(Руб.,шт.)97").
Поэтому делаю такой запрос:
SELECT Left([Поле3],InStr(1,[Поле3],"(")-1) AS Код, Val(Right([Поле3],Len([Поле3])-(InStr(1,[Поле3],"(")+11))) AS Оборот
FROM Обороты_анализ
WHERE (((Обороты_анализ.Поле3)>"0"));
Получаю два столбца: 04500-00100 и кол-во=97. Тут полный порядок.

Затем делаю второй запрос к таблице "Общий код":
SELECT [Общий код].Поле3 AS Код, [Общий код].Поле4 AS Наименование, Оборот_год.Оборот
FROM [Общий код] LEFT JOIN Оборот_год ON [Общий код].Поле3 = Оборот_год.Код
WHERE ((([Общий код].Поле3)>"0"));

Но тут выскакивает в поле "Оборот" - #Ошибка.
В чём я ошибаюсь, подскажите пожалуйста.

http://www.sql.ru/forum/1130452/zapros-k-zaprosu-vydayot-oshibka

Доброго дня господа !

Имею базу C:\WORK\DB1.MDB в модулях которой, описана функция пользователя AA00

Function AA00() As Integer
   AA00 = 100
End Function

Запрос в Access-е выглядит так

SELECT t2.F1, t2.F2, AA00() AS F100
FROM t2;

Можно ли эту функцию вызвать используя Microsoft jet (ADODB)
Т.е.
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\WORK\db1.mdb;User Id=admin;Password=;
select t2.f1,t2.f2, aa00() as f100 from t2
Как именно ?

Вопрос два
Где найти Microsoft.Jet.4.0 (или выше) SP8 для WIN7 (необходима функция InStrRev)

Заранее благодарен !

http://www.sql.ru/forum/1130416/ispolzovani-v-zaprose-polz-funkciy

Саныч! Ты знаешь ФСЁ! И даже с избытком! Ответь!
.....вот составляю интерактивные тесты. Есть варианты ответов, например 1),2),3)...
Как сделать в Word так, чтобы человек нажал (кликнул) например 1), открылось окошко, а там написано:
-Не верно, иди в задни...
Ну или открылось окошко с решением.
Вариант с обработкой событий предлагать в последнею очередь.Муторно и долго.
Есть ли встроенные средства спрятать или открыть часть текста в Word?
Скажите хоть название возможности, в какую сторону копать, постараюсь разобраться!
Что у кого наработано по этому направлению только в WORD ?
Интуитивно чувствую, что м.б. такая возможность зашита в WORD?
-----------------------
Размер моей благодарности за Ваш ответ будет стремиться к +бесконечности!
P.S. Вопрос честно задавал недавно на Mic.. Office. Можно убедиться, что внятного ответа не получил.

http://www.sql.ru/forum/1130381/vopros-vsem-sanych-end-tovarishhi-vopros-ot-repetitora

Вопрос:

У меня есть 5 отчетов, все они связаны с одним общим (подчиненные отчеты) куда и поступает вся информация. Нужно что бы на отдельной форме так же находилось 5 флажков. Соответственно, если на форме будут нажаты первый, второй и пятый флажок, то именно эти подчиненные отчеты попадали в главный. Как это можно реализовать? Желательно, примеры кода. Заранее спасибо!

http://www.sql.ru/forum/1130353/flazhki-i-podchinennye-otchety

таб_Процедура и таб_ОблИссл в ACCESS 2003, формат *.mdb (во вложении)
поля Описание, Заключение, ОИ_Описание, ОИ_Заключение - типа MEMO

Задача: при выборе в таб_Процедура, строки в выпадающем списке поля ОблИссл, должна происходить автоподстановка содержимого (текста, примерно 1000 и 200 символов) связанных полей ОИ_Описание, ОИ_Заключение из таб_ОблИссл в поля Описание и Заключение таб_Процедура, соотвественно. В последних этот текст редактируется и хранится. При повторном выборе другой записи из таб_ОблИссл, тот же алгоритм.
С VB и SQL не работал, подскажите решение, или ссылку на раздел где смотреть.

http://www.sql.ru/forum/1130352/avtopodstanovka-poley-memo-v-svyazannyh-tablicah

Привет.
Мне нужно, чтобы в базе Access были данные по организациям. В каждой организации есть подразделения, например:
Мэрия ---- Департамент мэрии----- Управление этого Департамента----- Отдел этого Управления

Подскажите, как это организовать, в смысле - это должны быть 4 таблицы, последовательно "висящие" одна на другой? То есть на таблице 1 с записью "Мэрия" висит таблица 2 с записью "Департамент мэрии", на таблице 2 - таблица 3 "Управление этого Департамента", на таблице 3 - таблица 4? То есть для описания организаций мне делать 4 таблицы?

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

Как вообще делают? Как правильнее?

http://www.sql.ru/forum/1130333/kak-organizovat-spravochnik

Добрый день.

Ну, собственно, весь вопрос в сабже: Можно ли с помощью TransferText импортировать файлы с расшрением не TXT?
Т.е. когда я в модуле пытаюсь выполнить TransferText для текстового файла, имеющего расширение не TXT, то возникает Run-time error 31519.
Когда переименовываю в ТХТ - импортируется без ошибок.
Можно ли отменить это ограничение, или дополнить перечень разрешенных расширений?

Заранее премного благодарен за советы, ссылки и т.п.

http://www.sql.ru/forum/1130310/mozhno-li-s-pomoshhu-transfertext-importirovat-fayly-s-rasshreniem-ne-txt

Дали задание по курсовой работе, приложил файл. Я не прошу Вас сделать все за меня, я прошу вас разъяснить и направить меня в нужное направление. Нужно составить схему БД. Не могу понять как все это связать(не в самой программе). Надеюсь на ваше понимание. Спасибо за помощь!

Как я понял 4 таблицы это запросы-отчеты на вывод.
Остальные вводит пользователь(в документе именуется как дилер или сервисный центр).

И тут возникает вопрос который поставил меня в тупик, какая связь между этим всем? Какие таблицы еще нужно добавить, а именно объединяющую все, то есть главную.
Если нужно будет что-то еще, постараюсь разъяснить.

http://www.sql.ru/forum/1130295/shema-bd-avtorizaciya-dilerskih-centrov

Здравствуйте, в базе.mdb (с офисом 2007) есть кнопка с запросом данных из базы .accdb
Возникает ошибка не распознанный формат базы данных. Хотя даже работая в этой же базе в офисе 2003 запросы выполняются. Как исправить?

http://www.sql.ru/forum/1130278/ne-raspoznannyy-format-bazy-dannyh

Здравия желаю!
Есть отчет на основе запроса. Нужно чтобы заполнялось свободное поле отчета текстом1 или текстом2 в зависимости от значения поля(флажок) в запросе-источнике уже при открытии/загрузке отчета. Пробовал вешать процедуру на событиях отчета ОТКРЫТИЕ, ЗАГРУЗКА, ВКЛЮЧЕНИЕ, ПОЛУЧЕНИЕ ФОКУСА - свободное поле не заполняется.

If [Флажок] = -1 Then
DoCmd.SetProperty "Текст", , "Продлить действие Договора указанное в п.8.2 до " & [ДС_ДДатаКон] & "."
Else
DoCmd.SetProperty "Текст", , "Сократить действие Договора указанное в п.8.2 до " & [ДС_ДДатаКон] & "."
End If
DoCmd.Requery ""

Люди добрые, помогите кто знает.

http://www.sql.ru/forum/1130214/problema-s-zapolneniem-svobodnogo-polya-v-otchete

Еще раз доброго Всем времени суток.
Со вчерашнего дня парился с кодом SQL на обновление данных, вроде бы решил проблемку, запрос нормально запускается через VBA, но НО записи, которые были изменены в таблице "РедактированиеДанных" (изменения производятся на форме) не обновляются в основной таблице "Филиал" - оператор t в коде.

Private Sub Кнопка1076_Click()

Dim xx As Variant
Dim t As Integer
Dim lSQL$
    t = Me.Поле1077.Value
    xx = MsgBox("Сохранить изменения?", vbYesNo, "Light26")
    If xx = 6 Then
        lSQL = "UPDATE РедактированиеДанных INNER JOIN " & t & " ON РедактированиеДанных.APPLICATION_NUMBER = [" & t & "].APPLICATION_NUMBER " & _
            "SET [" & t & "].[ТПЗ отправлено в канцелярию] = РедактированиеДанных.[ТПЗ отправлено в канцелярию], [" & t & "].[Дата передачи ТПЗ в канц-ю] = РедактированиеДанных.[Дата передачи ТПЗ в канц-ю], " & _
            "[" & t & "].[ТПЗ отправлено заемщику] = РедактированиеДанных.[ТПЗ отправлено заемщику], [" & t & "].[Дата отправки ТПЗ заемщику] = РедактированиеДанных.[Дата отправки ТПЗ заемщику], " & _
            "[" & t & "].[Получение АВТО] = РедактированиеДанных.[Получение АВТО], [" & t & "].[Дата получения АВТО] = РедактированиеДанных.[Дата получения АВТО], " & _
            "[" & t & "].[УНО отправлено в канцелярию] = РедактированиеДанных.[УНО отправлено в канцелярию], [" & t & "].[Дата передачи УНО в канц-ю] = РедактированиеДанных.[Дата передачи УНО в канц-ю], " & _
            "[" & t & "].[УНО отправлено заемщику] = РедактированиеДанных.[УНО отправлено заемщику], [" & t & "].[Дата отправки УНО заемщику] = РедактированиеДанных.[Дата отправки УНО заемщику], " & _
            "[" & t & "].[Причины отказа предоставления АВТО] = РедактированиеДанных.[Причины отказа предоставления АВТО], [" & t & "].[Дата отказа] = РедактированиеДанных.[Дата отказа], " & _
            "[" & t & "].[УПТ отправлено в канцелярию] = РедактированиеДанных.[УПТ отправлено в канцелярию], [" & t & "].[Дата передачи УПТ в канц-ю] = РедактированиеДанных.[Дата передачи УПТ в канц-ю], " & _
            "[" & t & "].[УПТ отправлено заемщику] = РедактированиеДанных.[УПТ отправлено заемщику], [" & t & "].[Дата отправки УПТ заемщику] = РедактированиеДанных.[Дата отправки УПТ заемщику], " & _
            "[" & t & "].[Дата проведения торгов (АМ)] = РедактированиеДанных.[Дата проведения торгов (АМ)], [" & t & "].[Результат торгов (АМ)] = РедактированиеДанных.[Результат торгов (АМ)], " & _
            "[" & t & "].[Дата проведения торгов (ГМ)] = РедактированиеДанных.[Дата проведения торгов (ГМ)], [" & t & "].[Результат торгов (ГМ)] = РедактированиеДанных.[Результат торгов (ГМ)], " & _
            "[" & t & "].Этап = РедактированиеДанных.[Этап] " & _
            "WHERE ((([" & t & "].APPLICATION_NUMBER)=РедактированиеДанных.[APPLICATION_NUMBER]));"
        CurrentDb.Execute lSQL
        
        MsgBox "Данные успешно сохранены!"
        Else
            MsgBox "Данные не сохранены!"
            Exit Sub
    End If
    Forms("ФормаОфицер").Visible = True
    DoCmd.Close acForm, "РедактированиеДанных", acSaveNo
End Sub

http://www.sql.ru/forum/1130205/obnovlenie-tablicy-update

Приветствую коллег и благодарю заранее.

Аксесс 2013. Пишу:

Public Declare Sub MySub Lib "MyFile.dll" ()

В 64-битной среде требуется писать иначе:

Public Declare PtrSafe Sub MySub Lib "MyFile.dll" ()

Но мне надо один и тот же accdb открывать в разных средах. Пытаюсь писать так:

#If Win64 Then
Public Declare PtrSafe Sub MySub Lib "MyFile.dll" ()
#Else
Public Declare Sub MySub Lib "MyFile.dll" ()
#End If

Однако 64-битный Аксесс мне выделяет красным и то, что в Else. Где я ошибаюсь?

http://www.sql.ru/forum/1130118/direktiva-prekompaylera-dlya-otlova-64-bit

Прошу помощи у Гуру, сломал себе голову.

Как внедрить шрифт в приложение Access 2007 ?
У пользователей отсутсвуют админские права, шрифт им загнать в папку Fonts нет возможности никак.
Без шрифта жить невозможно, это шрифт на штрих код.

Полагаю что при помощи VBA, пересмотрел кучу примеров, все одно и тоже и связано с VBA Excel, не могу интегрировать в Access.
Вот типичный аналог кода что смог найти:

<sup>Private Declare Function AddFontResource Lib "gdi32.dll" _
Alias "AddFontResourceA" ( _
ByVal lpFileName As String ) As Long

Private Sub Command1_Click ()
Dim Retval As Long

Retval = AddFontResource(App.Path & "\lcd.ttf")
If Retval = 0 Then
MsgBox "Die Funktion ist gescheitert", vbCritical , "Fehler"
Else
MsgBox "Es wurden " & Retval & " Font(s) hinzugefьgt.", _
vbInformation , "Font(s) hinzugefьgt"
End If
End Sub</sup>

http://www.sql.ru/forum/1130099/vnedrennyy-shrift

Доброго времени суток.
Нужна Ваша помощь, есть код в VBA который содержит запрос на обновление данных в таблице, уже 10 раз его переписывал но access каждый раз выдает смс с ошибкой "Ошибка синтаксиса", можете глянуть кодик и сказать где что я не то написал.

http://www.sql.ru/forum/1130051/zapros-sql-update-v-vba

Здравствуйте!
У меня есть пять таблиц с тремя одинаковыми полями:
Время
Параметр 1
Параметр 2

Время у всех, в основном, продолжает предыдущую таблицу, например, первая начинается со 2 марта 14:44:54, заканчивается 3 апреля 05:15:34, вторая начинается 1 апреля 01:14:12, заканчивается 2 мая 15:22:38 и так далее..

Мне нужно объединить эти таблицы в одну итоговую, с тремя полями, только так, чтобы не было места наложения дат. То есть, из пяти коротких таблиц получить одну длинную без перекрываний по датам.
Спасибо!

http://www.sql.ru/forum/1130016/import-strok-iz-drugoy-tablicy-v-konec-sushhestvuushhey-zapolnennoy-tablicy

Подскажите новичку, вот к примеру запрос
SELECT (SELECT COUNT(*) FROM base WHERE stadiya = 2),(SELECT CONT(*) FROM base WHERE stadiya = 3),(SELECT CONT(*) FROM base WHERE stadiya = 4) FROM base
если дальше я напишу WHERE age BETWEEN 8 AND 14 AND pol=0
это условие будет распространяться на все подчиненных запроса или вообще работать в данном случае не будет?

http://www.sql.ru/forum/1130010/podchinennye-zaprosy

Начиная с 2007 версии в Access есть два формата баз банных MDB и ACCDB. (Это грубо и приближенно.) Как программно создать базу данных нужного формата? В Access версий 2007+.

Попробовал через DAO в А-2007. Получилось ACCDB. Менял формат базы по умолчанию, всё равно ACCDB. Как Быть?

Public Sub Test1()
    CreateDataBaseDAO ("Test1")
End Sub

Sub CreateDataBaseDAO(newDB As String)
'Данная процедура создает новую базу данных с использованием возможностей DAO.
   Dim dbNew As Database   ' создаваемая база
   On Error GoTo Proc_Err
' создание новой базы данных
   Set dbNew = DBEngine.CreateDatabase(newDB, dbLangCyrillic)
   MsgBox "Database Created!"

Proc_Exit:
    Exit Sub

Proc_Err:
    MsgBox Err.Description
    Resume Proc_Exit
End Sub

------------------------------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1129998/kak-programmno-soszdat-bazu-access-v-trebuemom-formate

Из кнопок сделал Numlock-клавиатуру для работы на планшете. При нажатии надо сделать чувствительную "ответку".
Пробовал поставить на "Beep", не очень приятно.
Пробовал написать так:

Me.Displ.Caption="0"
...
Me.Displ.Caption=""

не успеваешь заметить моргнул или нет, т.е. слишком быстро.
Возможно ли на полсекунды задержать на экране Me.Displ.Caption="0", при этом не задерживая ход других операции?

http://www.sql.ru/forum/1129976/vozmozhno-li-na-polsekundy-zaderzhat-komandu-ne-zaderzhivaya-hod-operacii

Доброго времени!
Подскажите, пожалуйста по такой задачи.
Имеем таблицу:

pos name xunit yunit count 1 полка 100 200 1 2 стойка 300 200 2 3 стойка 300 200 1 4 полка 100 200 1

В данной таблице есть похожие данные по четырём столбцам, кроме первого pos.
Возможно ли задать запрос sql так, что бы получить следующий результат?

pos name xunit yunit count 1;4 полка 100 200 2 2;3 стойка 300 200 3

Т.е., мы просуммировали детали идентичные по своим параметрам, а номер pos мы суммировали в одну строку.
Задача состоит в получении результата именно sql запросом, не прибегая к коду с циклом.

http://www.sql.ru/forum/1129963/vybor-strok-summiruya-po-4-m-parametram-otlichaushhihsya-5-m-parametrom