Записи Друзья Комментарии
rss sql ru access programming
Аватар rss_sql_ru_access_programming

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

Поиск сообщений в 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 ленты.
По всем вопросам о работе данного сервиса обращаться со страницы контактной информации.
[Обновить трансляцию]

Нравится

При печати отчета пропадают символы
Понедельник, 20 Апреля 2015 г. 13:31 + в цитатник
Уважаемые участники!
Понимаю что наверное проблемы в принтере или в сети, но на всякий случай, может кто нибудь сталкивался:
Приложение на Ms Access 2003, сетевые принтеры KYOCERA FS-4100DN. При печати отчетов время от времени не печатаются (остается пустое место) символы 3 или 8. Шрифт изначально был Тахома, менял на Тайм Нью Роман и Ариал, всё равно проблема периодически выскакивает. Поддержка принтеров разводит руками.

http://www.sql.ru/forum/1152942/pri-pechati-otcheta-propadaut-simvoly
Нравится

Изменение элемента справочника из формы (поле со списком)
Понедельник, 20 Апреля 2015 г. 13:24 + в цитатник
Ситуация - есть стандартный справочник, код+название. В форме есть поле со списком со ссылкой на этот справочник, связь по коду, отображается название. В какой-то момент название поменялось. Менялось оно не из формы справочника, т.к. на такие изменения там ведется лог. Вопрос - есть ли какие-то возможности поменять название элемента справочника, используя поле со списком, ссылающееся на этот справочник? Самое интересное, что поменялось оно на текст из другого поля этой формы. Т.е. такое впечатление, что скопировали из этого поля текст и вставили в поле со списком, но штатно это не могло пройти, т.к. в настройках поля со списком допускается выбор только элементов, входящих в список. Т.е. подчеркиваю, в поле со списком остался тот же элемент который там и был (по коду), но название у него поменялось. Помню, несколько лет назад сталкивался с проблемой - пользователи случайно удаляли записи из формы, хотя прав на удаление в этой форме у них не было. Оказалось, существует комбинация клавиш (из трех вроде), которая позволяет удалять записи на уровне записей, минуя ограничения формы. Кстати, чтобы найти эту комбинацию, пришлось немало порыться, т.к. в описании стандартных горячих клавиш Access ее нет. Вот думаю - может и это из той же серии, кто как считает?

http://www.sql.ru/forum/1152940/izmenenie-elementa-spravochnika-iz-formy-pole-so-spiskom
Нравится

Сложный запрос на обновление...
Понедельник, 20 Апреля 2015 г. 12:56 + в цитатник
Прошу подсказать как написать SQL-запрос на обновление данных одной таблицы на основе вычислений в другой... Например, есть 2 таблицы Tab1 (с полями Kod и Price) и Tab2 (с полями ID и Price). Задача: в таблице Tab1 найти сумму по полю Price, у которых поле Kod имеет значение 20 и 30, но при этом в сумме должно участвовать только одно значение Price (на представленном рисунке три строки у которых Kod=20, надо чтобы в сумму попало только одно значение, т.е. 4600+3750 и все). И потом поместить полученную сумму в таблицу Tab2, в поле Price, у которого ID=14

Попытка использовать этот запрос не дало результатов
UPDATE Tab2 SET Tab2.Price = (SELECT sum(Tab1.Price) WHERE Tab1.Kod IN (20, 30)) WHERE Tab2.ID=14

во-первых внутренний запрос суммирует все, т.е. 4600+4600+4600+3750, а мне надо только по одному значению т.е. 4600+3750

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

http://www.sql.ru/forum/1152929/slozhnyy-zapros-na-obnovlenie
Нравится

доработка запроса
Понедельник, 20 Апреля 2015 г. 11:55 + в цитатник
Добрый день. Помогите доработать запрос:
(AGF(True,DateDiff('m',[дат_С],[дат_ПО]),[стоим],[износ],([кол_мес]-1))*100)/100 AS dopiz_byd, 
(AGF(False,DateDiff('m',[дат_С],[дат_ПО]),[стоим],[износ],([кол_мес]-1))*100)/100 AS baznow_byd, 
(baznow_byd-[износ]) AS dop_iznos


AGF в Module:
Public Function AGF#(dw As Boolean, ms%, st#, bz#, кол_мес%)
Dim m%, d#, d1#
  d = bz
  For m = 1 To ms
    d1 = (st - d) / ([кол_мес])
    d = d + d1
  Next
  If dw Then AGF = d1 Else AGF = d
End Function


Как заменить:
([кол_мес]-1)

чтоб от кол_мес отнималась сначала -1,
Если же промежуток дат [дат_С],[дат_ПО] больше одного месяца, значит далее -2 и т.д.

http://www.sql.ru/forum/1152921/dorabotka-zaprosa
Нравится

HELP Выражение в запросе на выборку
Воскресенье, 19 Апреля 2015 г. 21:31 + в цитатник
В приложеном примере базы даннях библиотеки есть 3 таблицы: КНИГИ, ЧИТАТЕЛИ, ИСТОРИЯ ВЫДАЧИ. Пытаюсь составить запрос, ипользуя таблицы КНИГИ и ИСТОРИЯ ВЫДАЧИ который покажет какие книги находяться в библиотеке, а не на руках. Как избавиться от повторов в полученой запросом выборке. Есле книга выдавалась два раза, то она и отобразится два раза.

http://www.sql.ru/forum/1152852/help-vyrazhenie-v-zaprose-na-vyborku
Нравится

Помогите создать создать sql запрос в access в delphi 7
Воскресенье, 19 Апреля 2015 г. 12:04 + в цитатник
Надо что бы в колонке Готовность Службы Автоматически ставилось Готовы при соблюдения условия, Что в колонке количество человек с id 4 было больше 2 тогда ставилось готова если меньше 2 тогда не готова и так для каждой службы отдельно точнее там будут другие цифры.

http://www.sql.ru/forum/1152812/pomogite-sozdat-sozdat-sql-zapros-v-access-v-delphi-7
Нравится

Как присвоить значение контролу, адрес и имя которого написано на Me.Надпись0.Caption
Воскресенье, 19 Апреля 2015 г. 09:58 + в цитатник
Из разных форм открывается одна и та же модальная ленточная форма Форма0. Оттуда выбирается нужная запись. Значение этой записи присваивается полю, откуда была открыта эта форма Форма0.
При открытии Форма0, отмечаю кто ее открывает: Forms!Форма0!Надпись0.Caption = "Forms!Форма1!Поле1"
Как использую текст на Me.Надпись0.Caption, присвоит туда значение?
На подобии:
Dim a As Control
a.Name=Me.Надпись0.Caption
a.Value=Me.Поле0.Value

но так ен получается.

http://www.sql.ru/forum/1152802/kak-prisvoit-znachenie-kontrolu-adres-i-imya-kotorogo-napisano-na-me-nadpis0-caption
Нравится

Запрос амортизации, износа
Суббота, 18 Апреля 2015 г. 21:23 + в цитатник
Добрый день! Очень нужна помощь в доработке запроса. Нарыл очень похожую ко мне ситуацию
http://www.sql.ru/forum/851890-1/zapros-na-vyborku

Поясню суть: есть данные
год_ввода = 1977
тип=10
капитальный=ложь
первоначальная_стоимость=510
износ_эксп=15
дата_С=01.03.2015
дата_По=01.05.2015

Нужно применить следующий алгоритм расчета износа за период с 01.03.2015 по 01.05.2015 - 2 месяца:
А) на 01.04.2015:
1) Вычисляем количество лет в эксплуатации
у1=нынешний год - год_ввода = 2015-1977=38
2) Вычисляем количество оставшихся лет эксплуатации
если капитальный=ложь, то
y2 = 100 - у1 = 100-38=62
если капитальный=правда, то y2 = 70 - у1
3) Вычисляем износ на период 01.04.2015
износ_04 = (первоначальная_стоимость - износ_эксп / y2) / 12 = (510-15/62)/12 = 0,6653
где 12 - количество месяцев в году

ЕСЛИ в условие было бы с 01.03.2015 по 01.04.2015 то вот это число износ_04=0,6653 мне и нужно было вывести как результат
ИЗНОС_за_заданный период=износ_04=0,6653
НО так как период больше одного месяца расчет продолжается:

5) износ_с_учетом_04 = износ_эксп + износ_04 = 15 + 0,6653 = 15,6653
6) аналогично пункту 3:
износ_05=(первоначальная_стоимость - износ_с_учетом_04 / y2) / 12 =
(510-15,6653/62)/12 = 0,6644
7) ИЗНОС_за_заданный период = износ_04+износ_05=0,6653+0,6644=1,3297

Под этот алгоритм была сформированна формула в запрос:
Year(Date())-[год_ввода] AS Y1, 
IIf([капитальный]=-1,70-Y1,IIf([тип]=10,100-y1,50-y1)) AS Y2, 
(AGF(True,DateDiff('m',[дата_С],[дата_По]),[первоначальная_стоимость],[износ_эксп],Y2)*100)/100 AS износ_04, 
(AGF(False,DateDiff('m',[дата_С],[дата_По]),[первоначальная_стоимость],[износ_эксп],Y2)*100)/100 AS износ_с_учетом_04, 
(износ_с_учетом_04-[износ_эксп]) AS ИЗНОС_за_заданный период,

http://www.sql.ru/forum/1152778/zapros-amortizacii-iznosa
Нравится

Как поймать закрытие Access?
Суббота, 18 Апреля 2015 г. 16:13 + в цитатник
Здрасте всем экспертам Access

Нужно перехватить закрытие приложения. AutoClose, похоже, в нём не предвидели.
Нарыл вариант создание невидимой формы. И на её закрытие повешать макрос.
Может есть более элегантные решения?

http://www.sql.ru/forum/1152763/kak-poymat-zakrytie-access
Нравится

Передать и открыть HTML код в IE не создавая файл
Суббота, 18 Апреля 2015 г. 09:31 + в цитатник
Здравствуйте!
Есть к примеру такой код, для отображения множества точек на ЯндехКарте:
+ index.html
<!DOCTYPE html>
xmlns="http://www.w3.org/1999/xhtml">

    <title>Много точек</title>
    http-equiv="Content-Type" content="text/html; charset=utf-8" />
    span>src="http://api-maps.yandex.ru/2.0-stable/?load=package.standard&lang=ru-RU" type="text/javascript">
    span>type="text/javascript">
        ymaps.ready(init);
        var myMap, 
            myCollection;

        function init()
		{ 
            myMap = new ymaps.Map ("map", 
				{
					center: [55.76, 37.64],
					zoom: 12,
					behaviors: ['drag', 'scrollZoom', 'routeEditor']
				} ); 

			// точки
			var coords = [	[55.745, 37.59],
							[55.74, 37.60],
							[55.74, 37.61],
							[55.74, 37.62],
							[55.74, 37.63],
							[55.78, 37.59],
							[55.78, 37.69]	];
			var IEHeight = document.body.clientHeight
			var GeoCol = new ymaps.GeoObjectCollection();
			for (var i = 0; i < coords.length; i++) 
			{
				GeoCol.add(	new ymaps.Placemark(coords[i],
							{	
								hintContent: 'hint'
								,balloonContentHeader: 'balloonContentHeader'
								,balloonContentBody: 'balloonContentBody'
								,balloonContentFooter: 'balloonContentFooter'
							} )
							);
			}
			// При наведении на одну из меток подсвечиваем коллекцию целиком.
			GeoCol.events
				.add("mouseenter", function () { GeoCol.options.set("preset", "twirl#redIcon");} )
				.add("mouseleave", function () { GeoCol.options.unset("preset");} );

			myMap.geoObjects.add(GeoCol);
			myMap.setBounds(myCollection.getBounds());
        }
    
</head>


    
id
="map" style="width: 100%; height: 940px"></div>
</body>
</html>

Если его сохранить в файлик с расширением .html и тыркнуть кнопкой - в браузере (у меня в IE) откроется карта.
Этот код формируется на лету (я его собираю на SQL и передаю в Аксесс)
Собственно встала проблема: я не знаю как передать страницу в IE целиком, чтоб он обработал заголовок, скрипты и остальную часть!
Сйчас это происходит таким образом:
Public Function udfYandexApiShowEmployeeRoute(lEmpID As Long)
    Dim IE As Object
    Dim RS As ADODB.Recordset

    Set RS = New ADODB.Recordset
    RS.ActiveConnection = CurrentProject.Connection
    RS.Source = "EXEC dbo.procGetHtml"
    RS.Open
    If Not RS.EOF Then
        'Создаём элемент эксплорера
        Set IE = CreateObject("InternetExplorer.Application")
        IE.navigate "about:blank"
        IE.Document.body.innerHTML = RS![body]
        IE.visible = True
    End If

    Set RS = Nothing
    Set IE = Nothing
End Function

В строке IE.Document.body.innerHTML = RS![body] я передаю код тэга , а IE.Document.head.innerHTML - не существует!
Пробовал всё запихнуть в - тоже почему-то никакого эффекта.

Хотя скрипты рвботают, предавал такое:
<title>Тестирование</title></head>
 текст текст текст</body></html>
исправно верещит.

И вот как быть? Помогите люди добрые...

http://www.sql.ru/forum/1152740/peredat-i-otkryt-html-kod-v-ie-ne-sozdavaya-fayl
Нравится

Имеется ли утилита, которая приводит в порядок код vba?
Пятница, 17 Апреля 2015 г. 17:55 + в цитатник
Подскажите кто знает.
А то такой бардак в коде.

http://www.sql.ru/forum/1152684/imeetsya-li-utilita-kotoraya-privodit-v-poryadok-kod-vba
Нравится

Ошибка в коде ADO
Пятница, 17 Апреля 2015 г. 14:02 + в цитатник
Здравствуйте, уважаемые форумчане!
По нажатию кнопки одиночной формы должно заполнится поле "КодПотомок" определенной записи таблицы "tdDog".
Источник формы - та же самая таблица "tdDog" но другая запись. Наверно ошибка в коде процедуры (привожу ниже). Знатоки, помогите пожалуйста:

Set connDog = CurrentProject.Connection
Set rstDog = New ADODB.Recordset

With rstDog
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "SELECT * FROM tdDog WHERE [Код]=" & [Forms]![fdDog]![КодРодитель], connDog

![КодПотомок] = [Forms]![fdDog]![Код]

.Update
End With

rstDog.Close
Set rstDog = Nothing
Set connDog = Nothing

http://www.sql.ru/forum/1152639/oshibka-v-kode-ado
Нравится

Cканирование документов в Access
Пятница, 17 Апреля 2015 г. 12:49 + в цитатник
Добрый день, уважаемые участники форума!

недавно озадачился следующим вопросом:

нужно в существующую форму добавить кнопку, при нажатии которой будет сканироваться документ на сканере(который у нас в локалке висит (HP laser jet 1536dnf MFP)) и полученный файл\документ будет добавлять\прикладывать в таблицу в access к той записи, которая была открыта в форме.

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

Полазил по форуму с похожими темами, к сожалению ничего не получилось((( Access 2007.

http://www.sql.ru/forum/1152624/ckanirovanie-dokumentov-v-access
Нравится

bde подключение к серверу MSSQL
Пятница, 17 Апреля 2015 г. 09:08 + в цитатник
Здравствуйте,
Не знаю в эту ветку форума пишу или нет....
В общем переставили мне винду, а в месте с ней снесли BDE старого программера, и теперь у меня никак не получается настроить подключение к серверу MSSQL, гуглил - сказали добавь алиаз, вроде добавил - MSSQL, пытаюсь зайти в него, он грит не могу подключится.

Эта штука нужна мне для одной програмки Access, и она без этого подключения пишет - Unknown database Alias: DBAccess

Снёс старый BDE, скачал с сайта производителя моего софта, он вроде как поставил правильный алиаз MSSQL, но когда захожу в админку BDE, не вижу его, а програмка Access всё равно ругается на Unknown database Alias: DBAccess

Вот думаю удалить BDE через реестр, но тут вопросы:
1) Кто-нибудь удалял BDE через реестр? Потому как он мне кучу ключей выдал, и что-то я сомневаюсь что все они к BDE относятся
2) Может есть какой-нибудь другой способ удалить BDE или настроить правильное подключение на уже имеющемся

Модератор: Тема перенесена из форума "Microsoft SQL Server".

http://www.sql.ru/forum/1152570/bde-podkluchenie-k-serveru-mssql
Нравится

Разное состояние кнопки на ленточной форме
Пятница, 17 Апреля 2015 г. 08:46 + в цитатник
Доброе утро!
Нужен совет!
Есть ленточная форма с кнопкой, в зависимости от того есть ли значение в одном из полей ленточной формы делать данную кнопку в этой строке активной, если в другой строке это же поле пустое, то кнопку оставлять enabled =0

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

http://www.sql.ru/forum/1152567/raznoe-sostoyanie-knopki-na-lentochnoy-forme
Нравится

Вместо показа файла в окне веббраузера вызывается Word
Четверг, 16 Апреля 2015 г. 23:07 + в цитатник
MS Access 2010. В форме контрол WebBrouser. Пишу на кнопке
Me.WebBrowser0.Navigate "FILE://C:\TEMP\тест.doc"

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

При попытке в свойствах контрола изменить свойство Специальные выдается, что сервер OLE не был правильно зарегистрирован. Регистрирую его повторно: regsvr32 "C:\windows\system32\shdocvw.dll", выходит сообщение, что файл загружен, но точка входа DLLRegisterServer не найдена.

В свойстве Данные контрола записано
Класс OLE - Microsoft Web Browser
Класс - Shell.Explorer.2

Подскажите пожалуйста как можно заставить вебраузер показывать файлы?

http://www.sql.ru/forum/1152546/vmesto-pokaza-fayla-v-okne-vebbrauzera-vyzyvaetsya-word
Нравится

Можно ли изпользовать DCount на несохраненный запрос
Четверг, 16 Апреля 2015 г. 21:18 + в цитатник 
DCount("[Поле]","Запрос")

А если "запрос" несохраненный запрос, а только формированный на VBA:
Запрос = "SELECT..."

то как можно его использовать для DCount?

http://www.sql.ru/forum/1152538/mozhno-li-izpolzovat-dcount-na-nesohranennyy-zapros
Нравится

Дожили.
Четверг, 16 Апреля 2015 г. 16:52 + в цитатник
MS Access 2013
Поддержка dBASE прекращена, и подключиться к внешней базе данных dBASE больше невозможно.
----------------------------------------------------------------------------------------------------------
и как же выкручиваться, если отчёты в другой организации принимают только в DBF формате?

http://www.sql.ru/forum/1152513/dozhili
Нравится

RowSource
Четверг, 16 Апреля 2015 г. 11:51 + в цитатник
Me.ПолеСоСписком580 - Имеет восьмизначное число (текст) Пример:20102320
Me.[ПолеСоСписком1] - код сцепленный из различной информации где присутствуют шесть симлолов из Me.ПолеСоСписком580 Пример:А01_А_102320_10_111-1



Me.Поле578 = "*Right(Me.ПолеСоСписком580, Len(Me.ПолеСоСписком580) - 2)*"

Me.[ПолеСоСписком1].RowSource = "SELECT [Зак_позиции] FROM ZakPOz WHERE ZakPOz.[Зак_позиции] Like '" & Me.Поле578 & "'"



Проблеме: Me.[ПолеСоСписком1] - не находит совпадения.

http://www.sql.ru/forum/1152451/rowsource
Нравится

Строка поиска в Access
Четверг, 16 Апреля 2015 г. 11:44 + в цитатник
Ребят, в access в строке навигатора есть графа поиск, можно ли как то сделать аналог этой строки на самой форме?
Просто этот поиск очень функциональный, сразу мне по всем полям ищет, хотелось бы на форму добавить)

http://www.sql.ru/forum/1152450/stroka-poiska-v-access

Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 132 131 [130] 129 128 ..
.. 1 Календарь

О проекте