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

Поиск сообщений в rss_sql_ru_access_programming

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

 

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

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 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 ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.

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

Получить всех родителей для записи?

Пятница, 15 Мая 2015 г. 12:39 + в цитатник
Давненько не брал в руки Access подзабылось многое, в конструкторе как-то не соображу..

Есть записи в таблице элементов
item_id (код элемента), tree_cat_id (код родительской категории в дереве категорий), item_name (название элемента)

и есть таблица с деревом родителей.
tree_id (код категории), tree_parent_id (код родительской категории), tree_name (название категории)

Уровень вложенности категорий может различаться (от 1 до 7)

Посоветуйте решение задачи - как собрать всех родителей для элемента?

http://www.sql.ru/forum/1156693/poluchit-vseh-roditeley-dlya-zapisi


Не получается просуммировать значения полей в запросе

Пятница, 15 Мая 2015 г. 10:47 + в цитатник
Добрый день.
Пожалуйста подскажите

Сделал запрос допустим с 4 полями, где Поле1 и Поле2 вычисляемые. И исходя из значение через функцию IIF сделал ранжирование по баллам (то есть определенному значению поля1 и поля 2, присваивается значения (от 1 до 10) в Поле 3 и Поле 4 соответственно).
Затем я хочу просуммировать поля3 и Поле4, но получается пустое значение.
В чем может быть ошибка?

Вот выражение поля3 для примера: IIf([Поле1]>=100;10;IIf([Поле1]>=80;9;IIf([Поле1]>=70;8;IIf([Поле1]>=60;7;IIf([Поле1]>=50;6;IIf([Поле1]>=40;5;IIf([Поле1]>=35;4;IIf([Поле1]>=25;3;IIf([Поле1]>=20;2;IIf([Поле1]>=10;1;IIf([Поле1]>0;0;IIf([Поле1]<=0;-2;-3))))))))))))

http://www.sql.ru/forum/1156662/ne-poluchaetsya-prosummirovat-znacheniya-poley-v-zaprose


Табличная форма. Заливка одной строки по условия программно.

Пятница, 15 Мая 2015 г. 10:46 + в цитатник
Подскажите, есть ли возможность (если есть, то как) в АКС 2010 залить одну строку нужным цветом в табличной форме по условию, например если значение поля равно... ?
Стандартное условное форматирование, как я понимаю, для табличной формы не работает.

http://www.sql.ru/forum/1156661/tablichnaya-forma-zalivka-odnoy-stroki-po-usloviya-programmno


Запрос выполняется в ручном режиме, но не выполняется программно. В чём дело?

Пятница, 15 Мая 2015 г. 10:45 + в цитатник
Столкнулся с такой проблемой. Запрос выполняется в ручном режиме, но не выполняется программно.
Access 2003. Запрос называется qSpr_03_Dop_Adress4_add Текст запроса.
INSERT INTO tbl_AdressDop ( КодОКПО, Адрес4б, Адрес4a )
SELECT tblAdressR.КодОКПО, tblAdressR.Индекс, ([Улица]+" ") & [ДомКвартира] AS Адрес4a
FROM tblAdressR;

В программе подряд идут два запроса
    CurrentDb.Execute "qSpr_03_Dop_Adress4_del"
    CurrentDb.Execute "qSpr_03_Dop_Adress4_add"

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



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

http://www.sql.ru/forum/1156660/zapros-vypolnyaetsya-v-ruchnom-rezhime-no-ne-vypolnyaetsya-programmno-v-chyom-delo


Добавить значение в таблицу из формы

Пятница, 15 Мая 2015 г. 03:50 + в цитатник
Есть 2 таблицы. "Номенклатура" и "Заказы на склад".
Есть кнопочная форма.(во вложении).
Как реализовать, чтобы при установке галочки в пункте "поступление",
данные о количестве номенклатуры из формы попадали в таблицу "Номенклатура" в соответствующие поля?
А при снятии данной галочки, количество возвращалось в исходное.

http://www.sql.ru/forum/1156637/dobavit-znachenie-v-tablicu-iz-formy


List box и значения

Четверг, 14 Мая 2015 г. 14:49 + в цитатник
Всем привет!

Есть такая интересная особенность, попытаюсь описать
Есть listbox, row source типа select payment_name,payterm_id from contract
Пользователь видит только названия условия платежа в списке и их выбирает.
При выборе в соседнее текстовое поле подтягивается payterm_id c помощью кода

Private Sub payment_terms_AfterUpdate()
If Not IsNull(payment_terms) Then
PayTerm_id.Value = payment_terms.Recordset!Id
Else:
PayTerm_id.Value = ""
End If
End Sub

Вопрос в том, что если выбрать значение из listbox когда форма только открылась (то есть к полю payment_terms) еще не обращались, то в текстовое поле с id всегда передается id=1 (id самой первой записи), а не той, что была выбрана. Но если щелкнуть по полю еще раз и выбрать это же значение, то payment_id попадет в текстовое поле корректное. В чем может быть причина?
Заранее спасибо!

http://www.sql.ru/forum/1156539/list-box-i-znacheniya


Загрузка данных из Excel

Четверг, 14 Мая 2015 г. 13:20 + в цитатник
Загружаю данные в базу с листа Excel, (лист1), столбцы 0,1,2

Для загрузки использую Calc, из пакета LibreOffice (OOO)

Set OpenOffice = CreateObject("com.sun.star.ServiceManager")
Set OOO_Desktop = OpenOffice.createInstance("com.sun.star.frame.Desktop") 


Гружу, по очереди обращаясь к ячейкам.
что-то типа
   Pp = 1
  For Pp = Pp To 200000
     STR_KOD = ""
    Set OOO_Range = OOO_Sheet.getCellByPosition(0, Pp)
    If OOO_Range.Value = 0 Then
      STR_KOD = OOO_Range.GetString
    Else
      STR_KOD = OOO_Range.Value
    End If

      RST_KOD_TIPA.AddNew

   If Nz(STR_KOD) <> "" Then
   RST_KOD_TIPA("KOD_TIPA_IZVESHENIYA") = STR_KOD
   End If


Загрузка занимает много времени.
Пару минут.
Можно ли ка-то ускорить процесс?

http://www.sql.ru/forum/1156507/zagruzka-dannyh-iz-excel


Запрос Access

Четверг, 14 Мая 2015 г. 10:28 + в цитатник
Добрый день, как поправить запрос чтобы не было лишних записей?
Пытаюсь получить список групп определенной кафедры
SELECT *
FROM  Кафедра, Учебный_план, ООП, Группа
WHERE Группа.Учебный_план=Учебный_план.Код and Учебный_план.ООП=ООП.Код and ООП.Кафедра=16;

http://www.sql.ru/forum/1156470/zapros-access


Сумма в перекрестном запросе

Четверг, 14 Мая 2015 г. 10:27 + в цитатник
Здравствуйте, нужно получить сумму перекрестном запросе по столбцам ed.name в отдельной строке.
TRANSFORM Sum(count_obr.[Count-UCHET_ED]) AS [Sum-Count-UCHET_ED]
SELECT count_obr.CODE, count_obr.SPV01502.name, count_obr.Выражение1
FROM count_obr
GROUP BY count_obr.CODE, count_obr.SPV01502.name, count_obr.Выражение1
PIVOT count_obr.ed.name;

Спасибо!

http://www.sql.ru/forum/1156468/summa-v-perekrestnom-zaprose


Access 2007, не могу разобраться со сложным SQL запросом.

Четверг, 14 Мая 2015 г. 09:28 + в цитатник
Проблема в следующем. Есть база данных оценок, которые выставили судьи за выступления (соответственно, там же и данные по выступлениям и коллективам).

Итоговый протокол формируется достаточно сложным для меня запросом. Вот он:
+ Запрос

SELECT * FROM (
    SELECT Общие_Оценки.Выступление,

    min (Выступления.Название) as Выступление_название,
    min (Коллективы.Название) as Коллектив_название,
    min (Номинации.Название) as Номинация_название,

    sum (Общие_Оценки.Количество_судей) as Судьи,
    round(max (Школа_исх),2) as Школа,
    round(max (Уровень_техники_исх),2) as Уровень_техники,
    round((3.5 - (round(max(Мастерство_штраф),2) * 3.5 / 10)),2) + 
    	round((round(max (Мастерство_бонус),2) * 1.5 / 6),2) as Мастерство,
    round(max (Сложность_исх),2) as Сложность,
    (Школа + Уровень_техники + Мастерство + Сложность) as Итого_техника,
    round(max (Исполнитель_исх),2) as Исполнитель,
    round(max (Постановщик_исх),2) as Постановщик,
    round(max (Уровень_артистизма_исх),2) as Уровень_артистизма,
    (Исполнитель + Постановщик + Уровень_артистизма) as Итого_артистизм,
    (Итого_техника + Итого_артистизм) as Итог

    FROM 
        (SELECT Оценки.Выступление, 

        count(Судьи.Судья_артистизма) as Количество_судей,
        sum ((CSng(nz(Оценки.Техника_школа_арсенал,0))+
        	CSng(nz(Оценки.Техника_школа_сложность,0))+
        	CSng(nz(Оценки.Техника_школа_логика,0))) / 6.0) / Количество_судей 
        	AS Школа_исх, 
        sum ((CSng(nz(Оценки.Техника_уровень_слаженность,0))+
        	CSng(nz(Оценки.Техника_уровень_качество,0))+
        	CSng(nz(Оценки.Техника_уровень_темп,0))) / 7.5) / Количество_судей 
        	AS Уровень_техники_исх, 
        sum (CSng(nz(Оценки.Техника_мастерство_бонус,0))) / Количество_судей 
        	AS Мастерство_бонус,
        sum (CSng(nz(Оценки.Техника_мастерство_штраф,0))) / Количество_судей 
        	AS Мастерство_штраф,
        sum ((CSng(nz(Оценки.Техника_сложность,0))) / 2.5) / Количество_судей 
        	AS Сложность_исх, 
        sum ((CSng(nz(Оценки.Артистизм_исполнитель_образ,0))+
        	CSng(nz(Оценки.Артистизм_исполнитель_исполнение,0))+
        	CSng(nz(Оценки.Артистизм_исполнитель_артистизм,0))+
        	CSng(nz(Оценки.Артистизм_исполнитель_бонус,0))) / 10.0) / Количество_судей 
        	AS Исполнитель_исх, 
        sum ((CSng(nz(Оценки.Артистизм_постановщик_сюжет,0))+
        	CSng(nz(Оценки.Артистизм_постановщик_выразительность,0))+
        	CSng(nz(Оценки.Артистизм_постановщик_композиция,0))+
        	CSng(nz(Оценки.Артистизм_постановщик_костюм,0))+
        	CSng(nz(Оценки.Артистизм_постановщик_бонус,0))) / 12.5) / Количество_судей 
        	AS Постановщик_исх, 
        sum ((CSng(nz(Оценки.Артистизм_уровень,0))) / 2.5) / Количество_судей 
        	AS Уровень_артистизма_исх

        FROM (Судьи INNER JOIN Оценки ON Судьи.Код = Оценки.Судья)

        GROUP BY Оценки.Выступление, Судьи.Судья_артистизма) as Общие_оценки 
    INNER JOIN 
	(Коллективы INNER JOIN 
		(Выступления INNER JOIN 
			Номинации ON Выступления.Номинация = Номинации.Код) 
	ON Выступления.Коллектив = Коллективы.) 
    ON Выступления.Код = Общие_оценки.Выступление

    GROUP BY Общие_оценки.Выступление) as Список_оценок
ORDER BY Номинация_название, Итог DESC, Итого_техника DESC, Итого_артистизм DESC;



Причина его появления в том, что в базе хранятся исходные оценки судей, а в протокол нужно свести не просто средние, а ещё и приведённые к определённому интервалу. При этом, одно выступление оценивают несколько судейских бригад (по разным аспектам) из нескольких судей.

Выступления группируются по номинациям и сортируются по итоговым оценкам.

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

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

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

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

На самом деле, даже просто если подскажете, как вокруг этого написать SELECT TOP 3, уже будет достаточно.
Помогите, пожалуйста.

http://www.sql.ru/forum/1156452/access-2007-ne-mogu-razobratsya-so-slozhnym-sql-zaprosom


Перемещение контрола

Четверг, 14 Мая 2015 г. 08:13 + в цитатник
Добрый день!

В событии формы Resize перемещаю Tab Control

Me.Tab1.Top = 6000

При выполнении этого кода получаю ошибку: "Текущая запись отсутствует!"

В чем причина?

http://www.sql.ru/forum/1156437/peremeshhenie-kontrola


Задача по учету ресурса составного агрегата - ?

Четверг, 14 Мая 2015 г. 07:34 + в цитатник
Никак не могу определиться с решением задачи по учету ресурса:

Имеется составной агрегат у которого имеется ресурс в часах наработки и годах эксплуатации.
В свою очередь агрегат состоит из множества (до 50) агрегатов, которые имеют также ресурсы, но отличные от ресурса "родителя" и уже более разноплановые - часы наработки, годы, циклы, работа в разных режимах и т.п.
Необходимо по наработке "родителя" учитывать остаток ресурса и остатки ресурсов подчиненных агрегатов и самое главное не просахатить их превышение.
Помогите кто чем может, заранее благодарен.

http://www.sql.ru/forum/1156433/zadacha-po-uchetu-resursa-sostavnogo-agregata


Как реализовать такое?

Среда, 13 Мая 2015 г. 15:02 + в цитатник
Доброго времени суток господа.
Имеем таблицу вида
CellF1F2F3F4
1111111520
222218954
333349394549

К этой таблице привязана форма ввода данных с одноименными полями Cell,F1,F2,F3,F4. Очень хочется сделать проверку на ввод данных в поля F1,F2,F3,F4. А именно запретить ввод одинаковых (ошибочных) значений в эти поля для одного Cell. В данном примере для cell=3333 ошибка, т.к. F1=F4. Пока что смог придумать только сравнивать общее количество значений F* и количество уникальных для одного cell. Но в форме хотел сделать подсвечивание таких полей. Как посоветуете реализовать?

http://www.sql.ru/forum/1156332/kak-realizovat-takoe


Форма входа

Среда, 13 Мая 2015 г. 10:37 + в цитатник
Хотелось бы сделать форму входа в БД. Чтобы на форме были кнопки входа простого юзера без прав и админа. Подсказали что можно через кнопочную форму. 2007 версия. Прошу помощи)

http://www.sql.ru/forum/1156245/forma-vhoda


Вопрос по выгрузке из MSA 2003 в шаблон экселя (через ВБА)

Среда, 13 Мая 2015 г. 00:42 + в цитатник
Всем привет!

Ребята, подскажите пожалуйста, как осуществить выгрузку в данном случае:
Имеется MDB база, есть шаблон с листом под названием 1.
Этот лист эксель 2003, содержит инфу типа:

автор
Поле1 Поле4
Статус1 Статус4

Поле2 Поле5
Статус2 Статус5

Поле3 Поле6
Статус3 Статус6


Поскольку Поля в экселе = объединенные ячейки, я в шаблоне им присвоила имена (Вставка-Присвоить-Имя (пишем имя) - Добавить-Ок).

В Аксессе запросом отбирается определенное кол-во записей (пусть будет 15). Поля: Поле и Статус
Мне надо сделать, чтобы 1-я строка вставляла в шаблон экселя Поле=Поле1 и Статус=Статус1, далее 2-я строка Поле=Поле2 и Статус=Статус2 и тд.

Для начала реализую на 1 лист, потом додумаю.
Что делаю:
1) Формируем рекордсет, все как положено.
2) Кодом ВБА пишу

Dim i As Integer
For i = 1 To rs1.RecordCount
xlApp.Sheets(1).Range("Поле(i)").value = rs1![Поле]
 xlApp.Sheets(1).Range("Статус(i)").value = rs1![Статус]


Но ВБА меня не понимает :(
Помогите пжл найти решение...

http://www.sql.ru/forum/1156210/vopros-po-vygruzke-iz-msa-2003-v-shablon-ekselya-cherez-vba


Недопустимая ссылка на объект Database в чем может быть проблема?

Вторник, 12 Мая 2015 г. 20:36 + в цитатник
Здравствуйте! Сразу скажу, что не являюсь программистом, но по долгу службы пришлось создать базу данных Access с самоучителем в руках.
Теперь немного о базе. Создана в Access 2007. Тип клиента adp (если я правильно понимаю). Представляет собой базу задач исполнителей. Состоит из таблиц: задачи, подзадачи по направлениям деятельности, подзадачи по исполнителям и нескольких таблиц выполненных работ по направлениям деятельности. Связи таблиц по номеру подзадачи. База разделенная. Файл с таблицами хранится на сервере. У пользователей файлы с формами и запросами. Операционка у всех Windows 7.
Проблема в том, что иногда, неизвестно по каким причинам, появляется ошибка "Недопустимая ссылка на объект Database". Приходится обзванивать всех пользователей, просить выйти из базы, открывать файл с таблицами на сервере. Появляется сообщение о поврежденности базы и попытке ее восстановить. Жму "ОК", появляется сообщение, что база восстановлена, После чего она снова нормально работает. Но иногда теряются некоторые данные или вместо них в полях написано "ошибка".
Подскажите, пожалуйста, в чем может быть проблема и как от нее избавиться? Заранее благодарен.

http://www.sql.ru/forum/1156186/nedopustimaya-ssylka-na-obekt-database-v-chem-mozhet-byt-problema


Access 2003 прокрутка колёсиком кода модулей.

Вторник, 12 Мая 2015 г. 19:59 + в цитатник
Переустановил access - пропала прокрутка.
Я к ней так привык, что уже считал, что это так было всегда, а оказалось - фигвам.

http://www.sql.ru/forum/1156182/access-2003-prokrutka-kolyosikom-koda-moduley


Не отображается календарь

Вторник, 12 Мая 2015 г. 13:33 + в цитатник
Добрый день!

после установки MS office 2010 в Access перестал отображаться ActiveX календарь. Как я понимаю, надо что-то дополнительно установить? Если да, то что?
Спасибо

http://www.sql.ru/forum/1156115/ne-otobrazhaetsya-kalendar


Группировка по часам

Вторник, 12 Мая 2015 г. 12:36 + в цитатник
Здравствуйте. Есть таблица вида:

КодТовараПродажаВремя
1524.04.2015 13:36:04
1424.04.2015 13:56:04
1124.04.2015 14:16:04
1524.04.2015 14:26:04
1424.04.2015 14:36:04
1124.04.2015 15:26:04
1524.04.2015 15:36:04
1424.04.2015 15:46:04
1124.04.2015 15:56:04


Нужно преобразовать колонку время, в ней нужно округлить минуты и секунды в меньшую сторону, что бы таблица стала иметь вид:

КодТовараПродажаВремя
1524.04.2015 13:00:00
1424.04.2015 13:00:00
1124.04.2015 14:00:00
1524.04.2015 14:00:00
1424.04.2015 14:00:00
1124.04.2015 15:00:00
1524.04.2015 15:00:00
1424.04.2015 15:00:00
1124.04.2015 15:00:00

http://www.sql.ru/forum/1156096/gruppirovka-po-chasam


При распечатке чек автоматический открыть денежный ящик

Вторник, 12 Мая 2015 г. 08:25 + в цитатник
Стояла какая-та программа на кассе. При распечатке чека автоматически открывался денежный ящик. Но та программа по многим параметрам не устроила нас. Сделали сами на аксессе. Распечатываем чек, но ящик автоматически не открывается. Приходится вручную открывать.
Никто команду не знает открытия денежного ящика?
Ящик подключается к чекопринтеру.

http://www.sql.ru/forum/1156060/pri-raspechatke-chek-avtomaticheskiy-otkryt-denezhnyy-yashhik



Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 138 137 [136] 135 134 ..
.. 1 Календарь