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

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)

Не отображается меню по умолчанию Access 2007

Пятница, 07 Марта 2014 г. 13:45 + в цитатник

Было создано собственное меню с помощью Ribbon. После это меню было удалено, и нужно было вернуть стандартное меню.
В этом и проблема, что оно теперь не отображается.
Скрины параметров на картинках и меню не отображается.

http://www.sql.ru/forum/1081329/ne-otobrazhaetsya-menu-po-umolchaniu-access-2007

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

Подсчет значений

Пятница, 07 Марта 2014 г. 12:53 + в цитатник

У меня есть таблица где все данные работника и [код филиала] в котором он работает,
есть 2я таблица где есть столбцы [код филиала] , [Город] , [Количество работников филиала] и тд.
как сделать так чтобы во 2ой таблице в столбце количество работников филиала подсчитывал значение из 1ой таблицы из колонки [код филиала]?

http://www.sql.ru/forum/1081316/podschet-znacheniy

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

Добавление столбца во все таблицы

Пятница, 07 Марта 2014 г. 10:32 + в цитатник

Добрый день
помогите составить скрипт для добавления во все таблицы базы данных access столбца "CAT" со значением например "A04"

http://www.sql.ru/forum/1081289/dobavlenie-stolbca-vo-vse-tablicy

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

шрифт в msgbox

Пятница, 07 Марта 2014 г. 10:08 + в цитатник

Подскажите, пожалуйста, можно ли увеличить размер шрифта в msgbox? Спасибо

http://www.sql.ru/forum/1081282/shrift-v-msgbox

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

Несколько экземпляров одного отчета в режиме превью - как?

Четверг, 06 Марта 2014 г. 16:24 + в цитатник

Есть какие-нибудь образцы?

Хочется выводить одновременно на превью несколько однотипных отчетов, меняя им источник данных. В архиве - две базы. reports_nowork.mdb - как хочется, но не получается;
reports_work.mdb - как получается, но не хочется.

Спасибо.

http://www.sql.ru/forum/1081186/neskolko-ekzemplyarov-odnogo-otcheta-v-rezhime-prevu-kak

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

Функции Access

Четверг, 06 Марта 2014 г. 11:05 + в цитатник

Доброго времени суток!

Я в работе в основном пользовался функциями Excel. Хочу все это дело перевести в Access.
Как найти аналог функций Excel в Access? Может есть список аналогичных функций
Например функцию РАБДЕНЬ.

http://www.sql.ru/forum/1081110/funkcii-access

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

Ошибка "Объект не содержит программируемый объект ..."

Четверг, 06 Марта 2014 г. 09:07 + в цитатник

Здравствуйте уважаемые форумчане! Я не особый специалист в Access и столкнулся с такой проблемой:
Создал форму (фРабочая) с двумя подчиненными формами (пВыпуски и пОбъявления), настроил связи между ними, обновления второй подчиненной формы (пОбъявления), но при добавлении записи в пОбъявления выскакивает ошибка "Объект не содержит программируемый объект пОбъявления", при чем запись в эту форму все равно добавляется. Подскажите, пожалуйста, в чем проблема и как от нее избавиться!

http://www.sql.ru/forum/1081099/oshibka-obekt-ne-soderzhit-programmiruemyy-obekt

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

Фильтр по нескольким параметрам

Четверг, 06 Марта 2014 г. 07:17 + в цитатник

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

    Forms!ОказанныеУслуги!.Filter = "месяц = Forms!ПериодСоставления![месяц]"
Forms!ОказанныеУслуги!.FilterOn = True

http://www.sql.ru/forum/1081094/filtr-po-neskolkim-parametram

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

Конкатенация столбцов

Среда, 05 Марта 2014 г. 22:52 + в цитатник

Доброго времени суток!
Имею такую функцию (нашел на форуме тут http://hiprog.com/forum/read.php?id_forum=1&id_theme=3972&page=1) в VBA:

Public Function UnionStr1(ID, Fam) 
    Static IDOld, FamUnion 
        If IDOld <> ID Then 
            IDOld = ID 
            FamUnion = Null 
        End If 
    FamUnion = (FamUnion + ", ") & Fam 
    UnionStr1 = FamUnion 
End Function

Так вот, там селектом:

SELECT Таблица1.№карточки, Таблица1.Наим, Last(UnionStr1([наим],[инвном])) AS номер, Таблица1.цена, Sum(Таблица1.колво) AS [Sum-колво] 
FROM Таблица1 
GROUP BY Таблица1.№карточки, Таблица1.Наим, Таблица1.цена;

из таблицы:

№ карточки	Наименование	Инв. номер	Цена	Количество
0304	Стул	001	135	1
0304	Стул	002	135	1
0304	Стул	003	135	1
0376	Шкаф	765	579	1
0376	Шкаф	766	579	1
0376	Шкаф	767	579	1

происходит выборка с конкатенацией инвентарных номеров в одной строке:

№ карточки	Наименование	Инв. номер	Цена	Количество
0304	Стул	001 002 003	135	3
0376	Шкаф	765 766 767	579	3

Мне нужно сделать такую конкатенацию для 3-4 полей!
Пример:

№ карточки	Наименование	Цвет	Инв. номер	Цена	Количество
0304	Стул	Зеленый Красный	001 002 003	135	3
0376	Шкаф	Черный Коричневый	765 766 767	579	3

Ну, кроме цвета, представьте, что будет еще пару полей.
Заранее спасибо за помощь!

http://www.sql.ru/forum/1081073/konkatenaciya-stolbcov

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

Подскажите пожалуйста с БД

Среда, 05 Марта 2014 г. 21:20 + в цитатник

Приветик всем ребяткам этого чудного форума, подскажите пожалуйста как сделать реляционную базу данных, уже много всякого в интернете прочитала, но что то никак не получается((( Начальник на работе сказал сделай иначе уволю, беда просто(((Может кто подскажет на примере,а дальше я разберусь. Как таблицы создавать я поняла, пользуюсь 2013 аксисом, Так вот там должно быть примерно следующее,как он мне пытался объяснить...3 таблицы...1 таблица- Там должны быть графы: Фио, Адрес, телефон, Дата выдачи, Пояснение
2-я таблица : № ключа, дата, работоспособен или нет(этот ключ как бы действителен 6 месяцев, и вот надо указывать связываясь я как поняла с первой таблицей, и как то рассчитывать 6 месяцев с даты выдачи и автоматически производить вывод, действителен он или нет, бррр, сейчас мозг взорвется)
Ну и 3-я таблица где будут связываться первая и вторая, И в ней должны быть Фио, адрес, Телефон, сам ключ(несколько букв и цифр),пояснение и уже готовый вывод рабочий он или нет... Ребят буду очень благодарна за примерный набросок, данные то я смогу вбить,а вот сама это все построить сомневаюсь, Помогите кому не сложно, Заранее спасибо

http://www.sql.ru/forum/1081062/podskazhite-pozhaluysta-s-bd

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

Ошибка"слишком сложный запрос", вложенный select

Среда, 05 Марта 2014 г. 21:07 + в цитатник

Всем привет..

Есть запрос результатом которого являются даты:
1)первый день последней недели в таблице или предшествующая ему дата
2)последняя дата в таблице
3)первый день последнего месяца в таблице или предшествующая ему дата

Может кто нибудь знает как добиться того же результата запросом попроще?

SELECT(
SELECT Max(qTOResult.DateReg) FROM qTOResult WHERE qTOResult.DateReg <= (SELECT (Max(qTOResult.DateReg) - WeekDay(Max(qTOResult.DateReg) -2))  FROM  qTOResult)) AS DateMin, Max(qTOResult.DateReg) AS DateMax , "CurrentWeek" AS TypePeriod, 1 AS ParamPred
 FROM  qTOResult
UNION ALL
SELECT (
SELECT Max(qTOResult.DateReg) FROM qTOResult WHERE qTOResult.DateReg <=(SELECT DateSerial(Year(Max(qTOResult.DateReg)), Month(Max(qTOResult.DateReg)),1) FROM qTOResult )) AS DateMin, Max(qTOResult.DateReg) AS DateMax, "CurrentMonth" AS TypePeriod, 0 AS ParamPred
 FROM  qTOResult

http://www.sql.ru/forum/1081061/oshibka-slishkom-slozhnyy-zapros-vlozhennyy-select

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

Слияние Word и Access

Среда, 05 Марта 2014 г. 20:20 + в цитатник

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

http://www.sql.ru/forum/1081051/sliyanie-word-i-access

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

защита от копировани

Среда, 05 Марта 2014 г. 19:09 + в цитатник

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

http://www.sql.ru/forum/1081034/zashhita-ot-kopirovani

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

Помогите объединить два запроса в MAccess 2003

Среда, 05 Марта 2014 г. 17:32 + в цитатник

Помогите объединить два запроса в один

Запрос 1:

SELECT T1.F1 AS Заявка, T2.F1 AS Перевозчик
FROM [A13:A13] AS T1, [J9:J9] AS T2 IN 'c:\kjldfkjg\Заявка №P14009 Hyundai.xls'[Excel 8.0;HDR=No];

Запрос 2:

SELECT  T3.[№ п/п], T3.[Номер контейнера], T3.[Описание груза], T3.F5, T3.F6, T3.[Планируемое время разгрузки],  T3.Примечание
FROM [A21:M1000] AS T3 IN 'c:\kjldfkjg\Заявка №P14009 Hyundai.xls'[Excel 8.0;HDR=Yes]
WHERE (((T3.[№ п/п])>0));

В запросе должны получиться поля (т.е. столбцы):

SELECT  T3.[№ п/п], T3.[Номер контейнера], T3.[Описание груза], T3.F5, T3.F6, T3.[Планируемое время разгрузки],  T3.Примечание, T1.F1 AS Заявка, T2.F1 AS Перевозчик

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

http://www.sql.ru/forum/1081001/pomogite-obedinit-dva-zaprosa-v-maccess-2003

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

КЛАДР проблемы с обновлением

Среда, 05 Марта 2014 г. 15:43 + в цитатник

Всем привет!
Продублирую тему с "Разработки информационных систем".

Есть База (не моя), которая импортирует в себя КЛАДР, инсёртится он в одну таблицу+таблица перекодировок: старый, новый код и уровень. Собственно в таблице есть поле: CODE - это одноименное поле в КЛАДР, которое уникально идентифицирует адрес клиента.
При заведении клиента, элементы элементы адреса беруться из КЛАДР, но пишутся в другую таблицу, в которой и хранятся все адреса клиента.
Связь с таблицей, в которую импортирован КЛАДР и основной таблицей адресов клиентов выполняется по этому самому полю CODE.
Вопрос, так как КЛАДР обновляется периодически, то возможно такая ситуация, когда этот код, сохраненный в таблице адресов не будет актуальным, так как в кладр он уже указывает на другой адрес.
Собственно, вопрос:
1. Как обычно поступают, если кладр залили новый, а вот в таблице адресов код другой?
Я никак не могу найти решение, что бы обновить некоторые поля в таблице адресов данными из КЛАДР.

http://www.sql.ru/forum/1080964/kladr-problemy-s-obnovleniem

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

Выделение дробных чисел

Среда, 05 Марта 2014 г. 15:20 + в цитатник

Здравтвуйте.
Есть ряб чисел. Целые и дровные. Как можно отделить дробные от целых?

http://www.sql.ru/forum/1080958/vydelenie-drobnyh-chisel

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

PIVOT, сортировка и выбор последнего значения

Среда, 05 Марта 2014 г. 14:53 + в цитатник

Есть таблица с тарифами их изменениями по датам. Сегодня поменялся один тариф, завтра (в следующем месяце) другой. Тарифы то увеличиваются, то уменьшаются.
Собственно сама тестовая таблица выглядит так:

ОбъектТарификации	ДатаТарифа	Тариф
Объект 1	01.01.2014	100
Объект 2	01.01.2014	100
Объект 3	01.01.2014	100
Объект 4	01.01.2014	100
Объект 5	01.01.2014	100
Объект 6	01.02.2014	200
Объект 1	01.02.2014	200
Объект 7	01.02.2014	200
Объект 2	01.03.2014	300
Объект 6	01.03.2014	300
Объект 7	01.03.2014	300
Объект 1	01.04.2014	150
Объект 5	01.04.2014	150
Объект 7	01.04.2014	150

Должна получиться таблица следующего вида (Объект, последний тариф (в дальнейшем с ограничением по дате), последняя дата изменения тарифа и для визуального контроля тарифы по датам):

ОбъектТарификации	ТекущийТариф	ДатаПослИзмТарифа	01_04_2014	01_03_2014	01_02_2014	01_01_2014
Объект 1	150	01/04/2014	150	___	200	100
Объект 2	300	01/03/2014	___	300	___	100
Объект 3	100	01/01/2014	___	___	___	100
Объект 4	100	01/01/2014	___	___	___	100
Объект 5	150	01/04/2014	150	___	___	100
Объект 6	300	01/03/2014	___	300	200	___
Объект 7	150	01/04/2014	150	300	200	___

Но после запроса с PIVOT получается какая-то ерунда:

ОбъектТарификации	ТекущийТариф	ДатаПослИзмТарифа	01_04_2014	01_03_2014	01_02_2014	01_01_2014
Объект 1	200	01/04/2014	150		200	100
Объект 2	300	01/03/2014		300		100
Объект 3	100	01/01/2014				100
Объект 4	100	01/01/2014				100
Объект 5	150	01/04/2014	150			100
Объект 6	300	01/03/2014		300	200
Объект 7	300	01/04/2014	150	300	200

TRANSFORM Last(Т.[Тариф]) AS [Last-Тариф]
SELECT
       Т.[ОбъектТарификации],
       Last(Т.[Тариф]) AS [Текущий Тариф],
       First(Т.[ДатаТарифа]) AS ДатаПослИзмТариф
FROM (
       SELECT Тарифы.[ОбъектТарификации],
              Тарифы.[Тариф],
              Тарифы.[ДатаТарифа]
       FROM Тарифы
       ORDER BY Тарифы.[ОбъектТарификации], Тарифы.[ДатаТарифа] DESC
         )  AS Т
GROUP BY Т.[ОбъектТарификации]
ORDER BY Т.[ОбъектТарификации], Т.[ДатаТарифа] DESC 
PIVOT Т.[ДатаТарифа];

Пробовал и Last и First - результат всё одно какой-то левый получается. Должен выдавать первое, либо последнее значение, а выдаёт когда как. То среднее - по таблице видно. Даже внутренний запрос с сортировкой сделал. Сам запрос формируется нормально, а при вставке внутрь запроса с PIVOT - опять такая-же чехарда. (Last-First в перврй части Select-а выставлял и одинаковые и разные - Дата вроде выбирается правильно, но тоже под вопросом - может случайно). Непонятно при аггрегированных функциях First и Last появление средних значений, которые и не First и не Last.
Может где что не так разворачиваю?
Подскажите, гуру, где копать.
Индекса по Объекту тарификации и дате не делал. Сортировку, как и группировку указываю явно. Да и запрос этот тестовый, реальный будет отличаться.
Пока делаю на MSAccess в дальнейшем запрос будет крутиться на MSSQL2005, а приложение так-же на Access.

http://www.sql.ru/forum/1080949/pivot-sortirovka-i-vybor-poslednego-znacheniya

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

Ошибка чтения VBA-проекта

Среда, 05 Марта 2014 г. 14:01 + в цитатник

Добрый день!

При попытке запуска файла с расширением accde - выдает сообщение: "Не удается открыть базу данных из-за ошибки чтения её VBA-проекта"

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

Подскажите в чем может быть причина?

Вариант от 28.02.2014 скачать

Вариант от 05.03.2014 скачать

http://www.sql.ru/forum/1080939/oshibka-chteniya-vba-proekta

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

Run-time error '94'

Среда, 05 Марта 2014 г. 13:13 + в цитатник

День добрый.
Помогите найти ошибку. В наследство досталась база, до недавнего времени все работало относительно нормально.
Недавно некорректно стал работать один очень важный запрос на добавление информации, сразу вылетает дэбаггер и указывает на эту строчку:

+

Public Function &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255;(&#207;&#235;&#238;&#249;, &#210;&#224;&#240;&#232;&#244;&#195;, &#210;&#224;&#240;&#232;&#244;&#207;&#238;&#209;&#247;, &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255;, &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, &#210;&#229;&#239;&#235;&#238;&#241;&#247;, &#206;&#242;&#234;&#224;&#231;&#237;&#232;&#234;&#232;, &#207;&#243;&#237;&#234;&#242;, &#207;&#240;&#232;&#224;&#231;&#238;&#226;&#234;&#224;, &#193;&#240;&#232;&#237;&#252;&#234;&#238;&#226;&#241;&#234;&#224;&#255;, &#192;&#245;&#242;&#224;&#240;&#241;&#234;&#232;) As Currency
 
 
 If (IsNull(&#207;&#235;&#238;&#249;) = False) And (IsNull(&#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255;) = False) Then
 If (&#210;&#229;&#239;&#235;&#238;&#241;&#247; = -1) And (&#206;&#242;&#234;&#224;&#231;&#237;&#232;&#234;&#232; = 0) Then
   &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#210;&#224;&#240;&#232;&#244;&#207;&#238;&#209;&#247;, 2)
 Else
Dim g, b, c, d, e As String
 g = "Ãîðîä"
 b = "õ.Ñàäêè"
 c = "ïîñ. Àõòàðñêèé"
 d = "ïîñ.Ïðèàçîâñêèé"
 e = "ñò. Áðèíüêîâñêàÿ"
   If &#207;&#243;&#237;&#234;&#242; = g Or &#207;&#243;&#237;&#234;&#242; = b Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#210;&#224;&#240;&#232;&#244;&#195; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
  If &#207;&#243;&#237;&#234;&#242; = d Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#207;&#240;&#232;&#224;&#231;&#238;&#226;&#234;&#224; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
 If &#207;&#243;&#237;&#234;&#242; = e Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#193;&#240;&#232;&#237;&#252;&#234;&#238;&#226;&#241;&#234;&#224;&#255; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
If &#207;&#243;&#237;&#234;&#242; = c Then &#209;&#242;&#238;&#232;&#236;&#238;&#241;&#242;&#252;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; = Round(&#207;&#235;&#238;&#249; * &#192;&#245;&#242;&#224;&#240;&#241;&#234;&#232; * &#196;&#237;&#229;&#233;&#206;&#242;&#238;&#239;&#235;&#229;&#237;&#232;&#255; / &#196;&#237;&#229;&#233;&#194;&#204;&#229;&#241;&#255;&#246;&#229;, 2)
  
   
 End If
 End If
End Function

После закрытия дэбаггера выдает сообщение, что значение NULL присвоено след числу полей-4117 (ошибка преобразования типа).
Access только начинаю постигать, подскажите что здесь может быть не так?

http://www.sql.ru/forum/1080925/run-time-error-94

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

Как скопировать столбец в ленточной форме?

Среда, 05 Марта 2014 г. 11:51 + в цитатник

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

http://www.sql.ru/forum/1080898/kak-skopirovat-stolbec-v-lentochnoy-forme

Страницы: 353 ... 23 22 [21] 20 19 .... 1 Календарь

LiveInternet

О проекте