2007 access не работает упdате
После выполнения таблица не меняется
Код:

Update t1 set t1.cost=cost+100
Where id=1;

http://www.sql.ru/forum/1189084/update

На локалхосте работает mysqld (+php, apache). Подключаюсь к локалхосту Навикатом, мпхпадмином, или из коммандной строки.

Можно ли подключится к локалхосту при помощи Aceess ? И как это сделать?

http://www.sql.ru/forum/1188946/podkduchitsya-k-lokalhostu

Скажите пожалуйста, каким образом ограничить количество вводимых чисел после запятой в поле запроса? В конструкторе запроса в свойстве поля установлено: Формат поля - фиксированный, Число десятичных знаков - 3. В таблице, на основе которой построен запрос в свойствах поля стоят такие же параметры: Формат поля - фиксированный, Число десятичных знаков - 3. Но если в запросе вводить более 3-х знаков после запятой (к примеру 5), то при нажатии мышкой на этом поле эти 5 знаков и высвечиваются. Как жестко установить 3 знака после запятой даже если набрано больше 3-х знаков. (Работаю на Access 97, может это у него ошибка такая? И еще просьба, не советовать мне перейти на новый офис, попросили доработать программу и переходить на другой офис категорически отказались).
Заранее спасибо.

http://www.sql.ru/forum/1188868/pole-v-zaprose

Добрый день всем форумчинам!
В базе есть функция, которая возвращает string, в котором перечень листов Excel ,которые надо скрывать

Public Function chooseSheet2Hide() as String
Dim ch As Byte
chooseSheet2Hide= ""
ch = Forms!Форма1!grH
Select Case ch
Case 1
chooseSheet2Hide= "Лист1, Лист2"
Case 2
chooseSheet2Hide= "Лист2, Лист3"
End Select
End Function

Потом пытаюсь открыть книгу Excel, выбрать массив листов и скрыть их

Dim xlApp As Object, xlWb As Object, spLists  as String
Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open(ReportName)
spLists = chooseSheet2Hide()
xlApp.Sheets(Array("& spLists &")).Select
xlApp.ActiveWindow.SelectedSheets.Visible = False

Выдает ошибку Subscript out of Range ..... названия листов такие существуют

?spLists 
Лист1, Лист2

Пытаюсь обрамить в кавывчки
spLists$ = Replace(chooseSheet2Hide, chooseSheet2Hide, Chr(34) & chooseSheet2Hide & Chr(34))
Ошибка та же, хотя

?spLists 
"Лист1, Лист2"

Как правильно передать список листов ?

http://www.sql.ru/forum/1188750/string-v-massiv-listov-v-excel

добрый день...подскажите как перевести строку в столбец без условий.
есть результат select

http://www.sql.ru/forum/1188436/perevesti-stroku-1-stroku-s-mnozhestvom-znacheniy-v-stolbcec

Приветствую форумчан!
Для выбора файла использую следующий код:

Sub ShowFileDialog()
    Dim oFD As FileDialog
    Dim x, lf As Long
    'назначаем переменной ссылку на экземпляр диалога
    Set oFD = Application.FileDialog(msoFileDialogFilePicker)
    With oFD 'используем короткое обращение к объекту
    'так же можно без oFD
    'With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = True
        .Title = "Выбрать файлы отчетов" 'заголовок окна диалога
        .Filters.Clear 'очищаем установленные ранее типы файлов
        .Filters.Add "Excel files", "*.xls*;*.xla*", 1 'устанавливаем возможность выбора только файлов Excel
        .Filters.Add "Text files", "*.txt", 2 'добавляем возможность выбора текстовых файлов
        .FilterIndex = 2 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы)
        .InitialFileName = "%USERPROFILE%\Desktop\" 'назначаем папку отображения по умолчанию
        .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов)
        If oFD.Show = 0 Then Exit Sub 'показывает диалог
        'цикл по коллекции выбранных в диалоге файлов
        For lf = 1 To .SelectedItems.Count
          ' код обработки выбраного файла файла
        Next
    End With
End Sub

Вопрос:
Как прописать в коде чтобы открывалась папка из которой добавлялся последний файл.
т.е. пользователь открыл диалог, добавил файл, и понял что нужно добавить еще один, но открывается снова декстоп а не та папка из которой он выбрал 1 файл.
Надеюсь я донес что мне хочется реализовать.

http://www.sql.ru/forum/1188429/dialog-vybora-fayla

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

http://www.sql.ru/forum/1188371/nakidayte-primerov

Прошу прощения за банальный вопрос, но перерыв имеющуюся массу самоучителей, справочников, поиск на этом форуме и просторы интернета ничего ценнее чем сей пример найти не удалось

Me.Controls(str).OnClick = "=funAction('" & str & "')"

Вопрос заключается в следущем: Где можно найти полный список и описание того что можно писать в данном случае после ".OnClick=", как это правильно называется и вообще всю имеющуюся информацию, на русском языке?

Так же в одном из справочников встречал что-то типа
Me.Controls(str).OnClick = "[Выполнение Процедуры Событий]"
Но опять же каких-либо комментариев найдено небыло..
Спешу предупредить, что занимаюсь изучением Access чуть больше недели, поэтому прошу учесть этот факт и при приведении примеров не скупиться на комментарии и т.д.

http://www.sql.ru/forum/1188365/pomogite-razobratsya-so-svoystvami-tipa-onclick-ongotfocus-i-t-d

На закладке "Запросы" окна "база данных" создан объект типа "Запрос к серверу":

SELECT * FROM Таблица;

Набор записей, возвращаемых запросом, - не обновляем. А хочется, чтобы был обновляемым... Как быть?
Ключевое поле (счётчик) - выводится.

http://www.sql.ru/forum/1188307/zapros-k-serveru-ne-obnovlyaetsya

Доброго времени суток, уважаемые форумчане!
Помогите пожалуйста решить такое:
Есть одна таблица с кучей числовых полей. Есть запрос, который, запрашивая начальную и конечную дату, выдает суммы и средние значения этих полей. Мне нужно создать отчет, который бы выдавал эти результаты не только за текущий период, но одновременно и за тот же период прошлого года.
Т.е. если на примере, то период (зеленый) задает пользователь, как мне создать в отчете столбец "2014"?

P.S. Предполагаю, что здесь нужны In, DateAdd (с отрицательным значением), но вот как их применить?

Заранее спасибо за ответы!

http://www.sql.ru/forum/1188230/kak-vyvesti-otchet-za-dva-perioda-srazu

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

Я совсем - совсем чайник в этой сфере, поэтому, если не сложно, расскажите подробно как это сделать

http://www.sql.ru/forum/1188172/vychislenie-srednego-balla-v-zaprose

Помогите составить запрос
есть столбцы (код товара,наименование,1,2,3,4,5,6,7,8,9,10,11,12..... и так до 60ого(Цифры это порядковый номер месяца))
Даются данный по коду товара, наименованию и 1ому месяцу= то бишь столбцец 1.
В отчете выбирается месяц 2 ого по 60ый.
задача рассчитать значение любого столбца по формуле (Сумма предыдущих деленная на их кол-во)...
В формуле используются данные предыдущего столбца который так же нужно рассчитать
Можно под каждый месяц конечно писать запросы..((
НО Может быть можно как то это оптимизировать под один динамический запрос...
есть у кого то какие нибудь идеи?

http://www.sql.ru/forum/1188166/dinamicheskiy-zapros

Наверняка многие сталкивались с задачей сверки двух организации. Поиском не нашел.
Есть две таблицы расход в организации1 и приход в организацию2
расход

Data______ | Item_ | Q-ty 01.01.2012 | Item1 | 10 03.03.2013 | Item2 | 15 05.08.2015 | Item3 | 234 .....

приход

Data______ | Item_ | Q-ty 08.01.2012 | Item1 | 11 10.03.2013 | Item2 | 13 25.08.2015 | Item3 | 233 .....

Как их связать что бы получить следующую таблицу?
сведённая

Data______ | Item_ |Рсх| Прх 01.01.2012 | Item1 | 10 | 08.01.2012 | Item1 | 00 | 11 03.03.2013 | Item2 | 15 | 10.03.2013 | Item2 | 00 | 13 05.08.2015 | Item3 |234| 25.08.2015 | Item3 |000| 233 ........

Или сразу в сводную таблицу с возможностью группировки по датам, месяцам, кварталам, и годам?
Заранее спасибо!
P.S.
Выводить нули или пусто не принципиально, хотя желательно посчитать разницу в т.ч. и в подитогах

http://www.sql.ru/forum/1188114/svedenie-po-raznym-datam-v-svodnyh-tablicah

Описание действия:
Предположим у нас имеется таблица, состоящая из трех столбцов:
id Name Дата рождения
1. Игорь 25.11.1986
2. Павел 13.12.1985
3. Андрей 23.04.1991
4. Михаил 11.04.1963

Выполняя запрос, получаем:
id Name Дата рождения Поле объединения
1. Игорь 25.11.1986 id: 1
Имя: Игорь
Д.Р.: 25.11.1986
2. Павел 13.12.1985 id: 2
Имя: Павел
Д.Р.: 13.12.1985
3. Андрей 23.04.1991 id: 3
Имя: Андрей
Д.Р.: 23.04.1991
4. Михаил 11.04.1963 id: 4
Имя: Михаил
Д.Р.: 11.04.1963

http://www.sql.ru/forum/1188085/obed-yacheek-stolbcov-odnoy-stroki-v-yacheyku-s-razdeleniem-postrochno-kazhdoy-yacheyki-stolbca

Здравствуйте, друзья!

Пользуюсь Access-Excel, для синхронизации справочных данных из одной базы Access во многих файлах Excel. Такое самодельное MDM (master data management).
Вся эта "красота" с выпадающими каскадными списками (зависящими от предыдущего значения в записи), пока работала без VBA.
Таблицы подключаются с помощью Подключения к внешним данным на вкладке Данные в Excel, через файл .odc, в котором содержится строка подключения:

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=f:\Общая\DWH\DWH.accdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False

Таблицы обновляются вручную, после нажатия Обновить всё. С поля Обновлять при открытии, я флажок убрал.
При обновлении база Access блокируется, появляется файл .laccdb.
Блокировка снимается только после того, как пользователь закроет файл Excel, который он обновил.
Таким образом другой пользователь не может обновиться, пока открыт файл предыдущего обновившегося пользователя.

Вопрос в следующем:
Можно ли на событие, например, после ActiveWorkbook.RefreshAll повесить процедуру снятия блокировки базы Access.

http://www.sql.ru/forum/1188074/snyatie-blokirovki-bazy-access-iz-excel

Доброго времени суток, у меня есть с сотню однотипных баз Access с одинаковой структурой.
Подготовлен небольшой скрипт на изменение одного параметра в одной таблице (update).
Вопрос:
Возможно ли массово применить скрипт ко всем базам? Если нет, то возможно ли на уровне одного скрипта прописать открытие одной базы, затем update, ну и затем закрытие с сохранением и т.д.

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

http://www.sql.ru/forum/1187987/vnesenie-izmeneniya-v-bolshoe-kolichestvo-baz-access

Если создавать/закрывать новый экземпляр MS Access таким Макаром

    Dim App_Public_Modules As Access.Application

    sCmdLine = """" & SysCmd(acSysCmdAccessDir) & "MSAccess.exe"" """ & db_Path & """"
    sCmdLine = sCmdLine & " /wrkgrp """ & DBEngine.SystemDB & """"
    sCmdLine = sCmdLine & " /User user1 /pwd 123"
    
    Shell sCmdLine, vbHide

    Set App_Public_Modules = GetObject(db_Path)

	...
	
    App_Public_Modules.CloseCurrentDatabase
    App_Public_Modules.Quit acQuitSaveNone
    Set App_Public_Modules = Nothing

, то окно MS Access откуда я все вызывал не закрывается. При этом новый созданный процесс MSACCESS исчезает из диспетчера задач (что в свою очередь как бы должно намекать что все прошло без ошибок).

Если новый экземпляр MS Access создавать/закрыть так

    Dim App_Public_Modules As Access.Application
    Set App_Public_Modules = New Access.Application
    App_Public_Modules.OpenCurrentDatabase db_Path, False

...
	
    App_Public_Modules.CloseCurrentDatabase
    App_Public_Modules.Quit acQuitSaveNone
    Set App_Public_Modules = Nothing

то все без проблем закрывается.

В чем может быть причина и как побороть? Мне нужен именно первый вариант так как там можно вводить логин/пароль пользователя и использовать конструкции вида "App_Public_Modules.DoCMD.TransferDatabase".

http://www.sql.ru/forum/1187967/okno-ms-access-ne-zakryvaetsya

Друзья, есть Excel с подключенными данными в Access по такой строке подключения:

Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=f:\Общая\DWH\DWH.accdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;Jet OLEDB:Bypass UserInfo Validation=False;Jet OLEDB:Limited DB Caching=False;Jet OLEDB:Bypass ChoiceField Validation=False

Но после обновления, база Access продолжает висеть открытой, и закрытие происходит только после закрытия Excel.

Подскажите, пожалуйста, код закрытия Access сессии после обновления, не закрывая обновленный файл Excel.

http://www.sql.ru/forum/1187940/excel-s-podkluchennymi-dannymi-v-access-zakryt-podkluchenie

В общем мне нужно что бы по набору данных в одно поле формы отфильтровывались записи в самой форме. С фильтром не работал не знаю как. Я сделал функцию в которую передаются все фильтруемые значения, а она уже решает - показывать запись или нет.
Но в результате на 25 тысяч записей она очень медленна. Не подскажет кто другой способ?

http://www.sql.ru/forum/1187889/kak-uskorit-vypolneniya-funkcionalnogo-zaprosa

Добрый день господа программисты.

Стоит задача:
1. Сохранить архивный файл, ежедневно получаемый из Outlook в определенную папку.
2. Разархивировать файл.
3. Данные из файла импортировать в БД.

С п.2 и п.3 нет проблем. Вот с п.1 беда.
Не подскажите как программно сохранить файл, полученный из аутлука, находясь в MS Access?
Примерчик бы кода.

http://www.sql.ru/forum/1187833/sohranit-fayl-iz-outlook