Поддержка Вид

LiveInternetLiveInternet

сменить

Авось из (+ сутки) дневников

Записи Друзья Комментарии

rss sql ru access programming rss sql ru access programming

Аватар rss_sql_ru_access_programming

-Поиск по дневнику

-Подписка по e-mail

-Постоянные читатели

Apelsinkou

-Статистика

Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4

Отчеты:
Посетители
Поисковые фразы

Invalid link!

Добавить любой RSS - источник (включая журнал LiveJournal) в свою ленту друзей вы можете на странице синдикации.

Исходная информация - http://www.sql.ru/forum/actualtopics.aspx?bid=4.
Данный дневник сформирован из открытого RSS-источника по адресу http://www.sql.ru/forum/actualrss.aspx?id=4, и дополняется в соответствии с дополнением данного источника. Он может не соответствовать содержимому оригинальной страницы. Трансляция создана автоматически по запросу читателей этой RSS ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

[Обновить трансляцию]

Комментарии (0)

Вопрос по реализации запроса

Понедельник, 24 Февраля 2014 г. 15:06 + в цитатник

Добрый день, уважаемые!
Назрел очередной вопрос:
Есть таблица вида: id, date, number, summa, dt_kt (где dt_kt это 0-приход, 1-расход).
На каждый номер начисляется расход каждый месяц, абонент оплачивает услуги, может за 1 месяц несколько раз оплачивать.
Так вот нужен отчет выводящий должников на определенную дату с оплаченной задолженностью, с разбивкой по месяцам, т.е. расчет столбца за февраль, допустим, будет производится по формуле: если есть оплата за февраль, то сумма долга на 1 число февраля + расход за февраль - приход за февраль.
Для одного, двух месяцев сделать запрос не составляет труда, но вот с учетом всего периода дат которые храняться в БД я сделать никак не могу. Дайте чтоли совет по реализации подобной задачи или может решение есть примерно верное.

http://www.sql.ru/forum/1079174/vopros-po-realizacii-zaprosa

Комментарии (0)

Сравнение выполнения запросов на разных компьютерах

Понедельник, 24 Февраля 2014 г. 13:14 + в цитатник

Здравствуйте.
Есть 2 компьютера:
1) Процессор - Intel Core i7 CPU 950 @ 3.07GHz 3.06GHz; ОЗУ – 10 Гб; Система 64 бит; Windows 7 Профессиональная
2) Процессор - Intel Core i7-4770 @ 3.40GHz 3.40GHz; ОЗУ – 16 Гб; Система 64 бит; Windows 7 Корпоративная
Работаю в Access 2003.
При выполнении ряда запросов на создание и добавление таблиц Второй компьютер отрабатывает в 2 раза быстрее.(27 секунд против 13)
Сжатие базы данных в 1.5 Гб на первом компьютере длится 20 сек. На втором длится минут 10. После чего всплывает ошибка: Не удается найти поле «Description»
Запрос на обновление на первом компьютере длится 20 сек. На втором 10 минут, после чего вылетает ошибка: «Недостаточно ресурсов».
Вроде второй компьютер мощнее, но почему он не может выполнять запросы на обновление и сжатие?

http://www.sql.ru/forum/1079140/sravnenie-vypolneniya-zaprosov-na-raznyh-komputerah

Комментарии (0)

SQL Запрос по заданию

Понедельник, 24 Февраля 2014 г. 13:14 + в цитатник

Нужно создать SQL запрос а именно:
Создать SQL-запрос для расчета средних баллов учеников и копировать в табл. получ. резудьтаты
Создать SQL запрос для вычесления средних баллов по предметам

http://www.sql.ru/forum/1079139/sql-zapros-po-zadaniu

Комментарии (0)

Запрос на добавление: медленно как-то

Понедельник, 24 Февраля 2014 г. 11:50 + в цитатник

Приветствую, Форумчане!

Делаю процесс обновления записей с сервера в локальную таблицу. Для этого использую код со следующими махинациями:

CurrentDb.Execute "DELETE * FROM [dbo_@CLIENTS]"
DoCmd.OpenQuery "INSERT INTO [dbo_@CLIENTS] SELECT [dbo_@CLIENTS1].* FROM [dbo_@CLIENTS1]"

где: dbo_@CLIENTS - локальная таблица
dbo_@CLIENTS1 - ODBC-линкованная таблица

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

Можно с этим как-то побороться? Записей всего-то 4000... Или может другой способ...

http://www.sql.ru/forum/1079110/zapros-na-dobavlenie-medlenno-kak-to

Комментарии (0)

afterupdate для таблицы

Понедельник, 24 Февраля 2014 г. 10:16 + в цитатник

Имеется таблица1 с полями
id - тип счетчик
файл1 - тип вложение
дата прикрепления первого файла - тип дата
файл2 - тип вложение
дата прикрепления второго файла - тип дата

Требуется, чтобы при прикреплении файлов в таблицу автоматически сохранялась дата прикрипления.
Пробовал как в обучающем видео микрософта, через макросы.
Таблица1: после обновления
если Updated(файл1)=истина то
изменить запись
задать поле
имя [дата прикрепления первого файла]
значение= date()
конец изменения записи
конец блока "Если"

Но ничего не происходит.Методом опытним путем определил что условие Updated(файл1)=истина не выполняется при прикриплении файла

Пробовал через VBA
Нажимаю создать модуль
пишу
Sub таблица1_AfterUpdate()
И получаю ошибку:
Microsoft Visual Basik for Applications
Complete error:
Expected:identifier

Буду очень признателен за помощь! Хочется разобраться что к чему

http://www.sql.ru/forum/1079095/afterupdate-dlya-tablicy

Комментарии (0)

Набор записей активной формы, выгрузка в файл..

Понедельник, 24 Февраля 2014 г. 09:40 + в цитатник

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

Я так понимаю что наборы записей в DoCmd.OutputTo не запихнешь
поэтому делаю примерно так:

recSource =Screen.ActiveForm.RecordSource
If Right(recSource, 1) = ";" Then recSource = Left(recSource, Len(recSource) - 1)
    
    If  Screen.ActiveForm.FilterOn = True Then
        filter = IIf(InStr(1, recSource, "WHERE") > 0, " AND ", " WHERE ") & Screen.ActiveForm.filter
    Else
            filter = ""
    End If
        
    If  Screen.ActiveForm.OrderByOn = True Then
            sort = " ORDER BY " & Screen.ActiveForm.OrderBy
    Else
            sort = ""
    End If
    
    recSource = recSource & filter & sort

    objName =  Screen.ActiveForm.Form.Caption
    Сall CreateQuery(objName, recSource) 'Создание запроса

DoCmd.OutputTo acOutputQuery, objName, acFormatTXT, objName & ".txt"

Но на практике при фильтрации в Form.filter появляются поля типа [Lookup_type].[name] ...
что вызывают ошибку т.к. в самом RecordSource формы таких полей нет...

Хотелось бы спросить есть какие выходы из этой ситуации?

http://www.sql.ru/forum/1079088/nabor-zapisey-aktivnoy-formy-vygruzka-v-fayl

Комментарии (0)

cross query ?

Воскресенье, 23 Февраля 2014 г. 19:42 + в цитатник

Доброе время суток !
Имеются таблица 1 :

Order_Rec	Item_Rec	Shipped_Qty	Shipping_Date
1	10	100	2-10-2013
1	11	50	2-10-2013
1	10	10	2-20-2013
1	11	0	2-20-2013
...	...	...	...

нужно отобрацить в виде

Order_Rec	Item_Rec	2-10-2013	2-20-2013	...
1	10	100	10	...
1	11	50	0	...
...	....	...	...	...

опенофис бэйз

http://www.sql.ru/forum/1079022/cross-query

Комментарии (0)

Запрос: вывод строки таблицы с максимальной длиной текстового поля

Воскресенье, 23 Февраля 2014 г. 17:54 + в цитатник

Здравствуйте. Помогите с запросом:
Имеется таблица, в котором есть некое текстовое поле. Необходимо вывести строку таблицы, в которой это текстовое поле имеет максимальную длину.

http://www.sql.ru/forum/1079013/zapros-vyvod-stroki-tablicy-s-maksimalnoy-dlinoy-tekstovogo-polya

Комментарии (0)

Изменение параметров страницы PDF ???

Воскресенье, 23 Февраля 2014 г. 12:32 + в цитатник

Добрый день уважаемые форумчане.
В Access 2007 в меню на вкладке "Внешние данные" есть кнопка "экспорт выделенного объекта в файл PDF"
При экспорте активной формы страница книжная и форма не помещается.
Как изменить параметр страницы на альбомную при помощи VBA ??

http://www.sql.ru/forum/1078983/izmenenie-parametrov-stranicy-pdf

Комментарии (0)

Сменить свойства у папки

Суббота, 22 Февраля 2014 г. 20:37 + в цитатник

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

Скажите, как можно
Сменить свойства у папки.

На вкладке Безопасность,
Для группы Пользователи поставить
галку Полный доступ?

http://www.sql.ru/forum/1078936/smenit-svoystva-u-papki

Комментарии (0)

Дублирование записей с помощью MJet

Суббота, 22 Февраля 2014 г. 16:10 + в цитатник

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

Надо развернуть таблицу (столбцы в строки)

Для этого делаю
- дублирование записей (декартовое произведение)
- анализ счетчика
- агрегирования по ключу

Как создать виртуальную дублирующую таблицу c помошью MJet
и чем создать счетчик записей ?
(запрос к книге Excel - могу определить таблицу так Лист1$A1:A100, счетчик как сделать ????)

в Oracle это выглядить так

select Level as F1
  from DUAL
connect by Level=100

Результат

F1
- - - - -
1
2
3
4
...
...
100

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

http://www.sql.ru/forum/1078908/dublirovanie-zapisey-s-pomoshhu-mjet

Комментарии (0)

Печать в PDF

Суббота, 22 Февраля 2014 г. 12:33 + в цитатник

Приветствую всех! Мужскую часть форума с наступающим праздником!

Возникла некоторая проблема. Для "печати" Вордовского документа в PDF использую виртуальный принтер PDFCreator.

+

...

obWord.Documents.Open strCurrPatch
'Максимизируем окно  Word
obWord.WindowState = 1
'obWindow.Visible = True
obWord.Visible = True
obWord.Activate

strCurrPatch = DLookup("strCurrPatch", "tblProject") & "\PDF\"

MyPDFCreator 1, strCurrPatch, "Измер"

Const wdPrintAllDocument = 0
Const wdPrintDocumentContent = 0
Const wdPrintAllPages = 0

cPrinter = obWord.ActivePrinter
obWord.ActivePrinter = "PDF Creator"
obWord.Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
obWord.ActivePrinter = cPrinter

Set obWord = Nothing
Set obWindow = Nothing

DoEvents

MyPDFCreator 0, "", ""

...



Function MyPDFCreator(UseAutosave As Integer, AutosaveDirectory As String, AutosaveFilename As String)
'Изменение настроек PDF Creator

Const PatchUseAutosave = "HKEY_CURRENT_USER\Software\PDFCreator\Program\UseAutosave"
Const PatchAutosaveDirectory = "HKEY_CURRENT_USER\Software\PDFCreator\Program\AutosaveDirectory"
Const PatchAutosaveFilename = "HKEY_CURRENT_USER\Software\PDFCreator\Program\AutosaveFilename"

Dim MyReg As Object
Set MyReg = CreateObject("WScript.Shell")
MyReg.RegWrite PatchUseAutosave, UseAutosave, "REG_SZ"
MyReg.RegWrite PatchAutosaveDirectory, AutosaveDirectory, "REG_SZ"
MyReg.RegWrite PatchAutosaveFilename, AutosaveFilename, "REG_SZ"
Set MyReg = Nothing

End Function

Для предотвращения появления окна с предложением выбрать место сохранения файла, приходится "лезть" в реестр. Но получается так, что параметры реестра возвращаются в дефолтные раньше, чем происходит формирование и сохранение PDF файла. При приостановке работы кода все работает замечательно. Скажу сразу - DoEvents не помогает. Что еще можно предпринять?

http://www.sql.ru/forum/1078888/pechat-v-pdf

Комментарии (0)

закладка формы не работает при отмене события?

Суббота, 22 Февраля 2014 г. 00:05 + в цитатник

Привет всем! Прошу проверить работоспособность закладки набора записей формы в следующей конструкции. Форма с подформой - в подформе по событию двойного клика на области выделения запускается фильтр основной формы:

Public bmk As Variant 'в общем модуле

Private Sub Form_DblClick(Cancel As Integer)
bmk = Me.Parent.Bookmark
Me.Parent.Filter = "[Контакт]=" & Me.Контакт
Me.Parent.FilterOn = True
Me.Parent.OnCurrent = "[Event procedure]"
End Sub

в основной форме событие Текущая запись такая:

Private Sub Form_Current()
If Not Me.FilterOn And Not IsEmpty(bmk) Then Me.OnCurrent = "": Me.Bookmark = bmk
End Sub

При проверке форма не переходит на нужную запись, почему, не понятно пока. НО! Если Me.OnCurrent = "" убрать, то всё работает. Но причём здесь это свойство? Или это глюк? Прошу проверить аналогию.
============================================================================================================
"О, сколько нам открытий чудных готовит просвещения дух, и опыт - сын ошибок трудных, и гений - парадоксов друг, и случай - бог изобретатель" (Пушкин, однако).

http://www.sql.ru/forum/1078853/zakladka-formy-ne-rabotaet-pri-otmene-sobytiya

Комментарии (0)

Свой ribbon. Команда "вывести в формате" недоступна без панели навигации.

Пятница, 21 Февраля 2014 г. 20:07 + в цитатник

Может кто сталкивался и подскажет?

Access 2010

Есть макрос, он только запускает функцию, которая выводит отчет в PDF. В обычном режиме все работает. Есть пользовательский ribbon. Одна из кнопок на ribbon - запуск этого макроса. Если открываю Access с этим ribbon и без панели навигации - нажатие на эту кнопку выдает ошибку "команда недоступна". Если нажать F11, чтобы появилась панель навигации - команда начинает работать нормально, то есть отчет выводится в PDF.
В чем может проблема?

Заранее спасибо.

http://www.sql.ru/forum/1078820/svoy-ribbon-komanda-vyvesti-v-formate-nedostupna-bez-paneli-navigacii

Комментарии (0)

запрос не всегда выводит данные в список

Пятница, 21 Февраля 2014 г. 15:52 + в цитатник

Здравствуйте. Есть БД на аксесс 2013, где есть таблицы:РазделПроектнойДокументации(Код - число, ключ; НаименованиеДокументов - строка,ВидДокументации - строка) и таблица Документы (Код-счетчик, ключ; шифр-строка; Объект-строка; НаименованиеРаздела - число,внеш.ключ из предыдущей таблицы;НазваниеДокумента - строка; примечания -строка - подразделение - число - внеш.ключ изтаблицы Подразделения).Таблица Подразделения:код - счетчик,ключ, Наименование - строка. Таблица Объекты:код - строка,ключ(числовое поле нельзя, т.к. определен формат кода объекта, например - "33469-000",наименованиеЗаказчика - строка, стадия - строка).Есть форма,вкоторой2 поля со списком:
1.Подразделение - для выбора подразделения
2. Объект - для выбора объекта. Ниже идет список, куда из запроса должны выводиться документы по выбранному объекту для выбранного подразделения.
SQL текст запроса, сформированный конструктором:

SELECT Документы.Код, Документы.ШифрДокумента, Документы.Объект, РазделыПроектнойДокументации.НаименованиеДокументов AS РазделДокументации, Документы.НазваниеДокумента, Документы.Примечание, Документы.Подразделение
FROM РазделыПроектнойДокументации RIGHT JOIN Документы ON РазделыПроектнойДокументации.Код = Документы.НаименованиеРаздела
WHERE (((Документы.Объект)=[Forms]![PlanirDocRukPoNapr]![Объект]) AND ((Документы.Подразделение)=[Forms]![PlanirDocRukPoNapr]![Подраздел]));

Проблема в том, что данные из запроса не всегда выводятся в список на форме, при этом много раз проверял - данные в таблицах все есть.
Список на форме обновляю по событию нажатия на после со списком объектов:

Список17.Requery

. В чем ошибка? что неправильно работает?Есть конечно идея, что может в запрос надо передавать значение Forms]![PlanirDocRukPoNapr]![Объект]) ,а что то вроде Forms]![PlanirDocRukPoNapr]![Объект].value...но как это сделать и поможет ли, если сделать...если нужно делать именно Forms]![PlanirDocRukPoNapr]![Объект].value,то как это на VBA сделать или прописать в конструкторе запросов?

http://www.sql.ru/forum/1078771/zapros-ne-vsegda-vyvodit-dannye-v-spisok

Комментарии (0)

Как поймать параметр, введённый вручную, внутри запроса?

Пятница, 21 Февраля 2014 г. 12:20 + в цитатник

Вот есть такой запрос:
Как поймать параметр, введённый вручную, внутри этого запроса?

INSERT INTO Organizations
(ORT_ID, Parent1, Parent2, Code, State, IsSupplier, IsCustomer, IsService, IsActiveBalance, Name, PostalCode, City, StreetType, StreetName, Buildings, FullAddress, INN, BankName, BankAddress, Account, SubAccount, BIK, BankAttributes, OKONH, OKPO, UrADR, ManagerID, MapObj_ID, MapY, X1, Y1, X2, Y2, CoursePercent, SecurInfo, OGRN)
SELECT
ORT_ID, Parent1, Parent2, [НовоеКороткоеИмя_Код] AS NewShortName, State, IsSupplier, IsCustomer, IsService, IsActiveBalance, "New - "+[Name] AS NN, PostalCode, City, StreetType, StreetName, Buildings, FullAddress, INN, Organizations.BankName, Organizations.BankAddress, Account, SubAccount, BIK, BankAttributes, OKONH, OKPO, UrADR, ManagerID, MapObj_ID, MapY, X1, Y1, X2, Y2, CoursePercent, SecurInfo, OGRN
FROM Organizations WHERE Organizations.ORG_ID=[ID_Организации_Из]

Запрос просто клонирует данные Организации с Organizations.ORG_ID=[ID_Организации_Из] в новую Филиал-Организацию с [НовоеКороткоеИмя_Код].
При старте запроса нужно во-первых ввести [ID_Организации_Из] (=Число), потом ввести [НовоеКороткоеИмя_Код] (=Строка). Access очень удобно выдает окошки для ввода.
---
Вопрос! Если таких запросов очень много, то можно ли как-то эту переменную [НовоеКороткоеИмя_Код] ловить на лету (глобально не объявляя) и помнить для дальнейшего использования. Например, это нужно для открытия потом формы с параметром Code=[НовоеКороткоеИмя_Код]. Для INSERT - это просто, можно встать на последнюю запись и всё, но как быть, например, с Update ?

http://www.sql.ru/forum/1078715/kak-poymat-parametr-vvedyonnyy-vruchnuu-vnutri-zaprosa

Комментарии (0)

Отбор данных

Пятница, 21 Февраля 2014 г. 09:44 + в цитатник

Доброго времени суток,
помогите составить запрос, у меня была рабочая версия запроса:

INSERT INTO tblBASE SELECT * FROM tblTempFormat WHERE tblTempFormat.[Код НП] Not In (SELECT [Код НП] FROM tblBASE)

а нужно что то вроде:

INSERT INTO tblBASE SELECT * FROM tblTempFormat " _
                  & "WHERE (tblTempFormat.[Код НП] Not In (SELECT [Код НП] FROM tblBASE)) AND " _
                  & (tblTempFormat.[Код склада] Not In (SELECT [Код склада] FROM tblBASE)) AND " _
                  & (tblTempFormat.[Количество, шт] Not In (SELECT [Количество, шт] FROM tblBASE)) AND " _
                  & (tblTempFormat.[ЦБО] Not In (SELECT [ЦБО] FROM tblBASE)) AND " _
                  & (tblTempFormat.[Дней, компания] Not In (SELECT [Дней, компания] FROM tblBASE)) AND " _
                  & (tblTempFormat.[Дней, ОЕ] Not In (SELECT [Дней, ОЕ] FROM tblBASE)) AND " _
                  & (tblTempFormat.[Дней в расположении] Not In (SELECT [Дней в расположении] FROM tblBASE))"

но последняя конструкция не работает - Ошибка компиляции.

http://www.sql.ru/forum/1078681/otbor-dannyh

Комментарии (0)

помогите новичку разобраться)

Четверг, 20 Февраля 2014 г. 23:07 + в цитатник

Объясните пожалуйста "на пальцах", как это работает:

SELECT T_INSTITUTION_1.name, Sum(T_DATA.GR1) AS [Sum-GR1], Sum(T_DATA.GR3) AS [Sum-GR3]
FROM (T_INSTITUTION INNER JOIN T_DATA ON T_INSTITUTION.ID = T_DATA.ID)
INNER JOIN T_INSTITUTION AS T_INSTITUTION_1
ON T_INSTITUTION.PARENT_ID = T_INSTITUTION_1.ID
WHERE (((T_DATA.ID_Row)=17) AND ((T_DATA.ID_Section)=1))
GROUP BY T_INSTITUTION_1.name;

http://www.sql.ru/forum/1078646/pomogite-novichku-razobratsya

Комментарии (0)

Конвертация из mdb в dbf

Четверг, 20 Февраля 2014 г. 20:15 + в цитатник

Люди добрые подскажите пожалуйста как решить проблемку, состоит она в том, что мне нужно конвертировать из Accessa отчёт, или полную таблицу в отдельный файл, но в dbf формате. Заранее благодарен.

http://www.sql.ru/forum/1078619/konvertaciya-iz-mdb-v-dbf

Комментарии (0)

Кнопка в Access

Четверг, 20 Февраля 2014 г. 19:41 + в цитатник

Здравствуйте! Подскажите пожалуйста как создать кнопку в форме. Говорю сразу, у себя в бд я не нашла мастера кнопок. В меню "элементы управления"( так нам говорил учитель) я также не нашла, как создать кнопку.
Цитата: " В примечание формы добавьте объект Кнопка( вкладка ленты конструктор- ПИ Элементы управления)". Ну так вот, там нету у меня. Может еще как-то можно?

http://www.sql.ru/forum/1078610/knopka-v-access

Страницы: 353 ... 20 19 [18] 17 16 .... 1 Календарь

LiveInternet

О проекте