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

Нравится

Создание формы Поданные заявления
Воскресенье, 31 Января 2016 г. 10:09 + в цитатник
От имени входящего в базу данных абитуриента можна отправлять заявления и на этой же форме их просматривать. Помогите пожалуйста, уже целый день сижу
Заранее спасибо

http://www.sql.ru/forum/1198144/sozdanie-formy-podannye-zayavleniya
Нравится

Что означает "Shared" в команде "Open"?
Воскресенье, 31 Января 2016 г. 01:02 + в цитатник
Открываю файл командой:

Open "mus.txt" For Binary Access Read Write Shared As #1


- и завешиваю код на Stop.

В проводнике кликаю файл, он открывается в Notebook-е, вижу содержимое, дописываю пару символов. При закрытии Notebook-а - он спрашивает "Сохранить изменения?", соглашаюсь.

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

Почему так, ведь "Access Read Write Shared"?

http://www.sql.ru/forum/1198125/chto-oznachaet-shared-v-komande-open
Нравится

Вывод уникальных записей
Суббота, 30 Января 2016 г. 21:27 + в цитатник
Доброе время суток
Есть таблица:
col1 col2 col3 col4
1 a b c
2 a c e
3 a t c
4 a c c
5 a b e
6 a g c
7 a g c
нужно через sql вывести уникальные записи например:
col1 col2 col3 col4
1 a b c
2 a c e
4 a c c
5 a b e
7 a g c
Как это можно реализовать?

http://www.sql.ru/forum/1198110/vyvod-unikalnyh-zapisey
Нравится

TRANSFORM SELECT PIVOT
Суббота, 30 Января 2016 г. 17:02 + в цитатник
Коллеги, приветствую !
Имеется вот такой запрос, который вычисляет движение товара, хотелось бы его допилить, чтобы он ещё и остаток сразу вычислял, т.е. получал результат 'prihod'+'vozvrat'-'realiz'-'spisanie' и втыкал его дополнительный столбец, либо вместо всех движений товара был один результат.
TRANSFORM sum(a.Quantity)
SELECT a.prodID, b.prodName, b.prodUnit, b.prodPrice
FROM operations AS a, products AS b
WHERE b.basID=22 AND a.prodID=b.prodID AND a.operDate <#01/30/2016#
GROUP BY a.prodID, b.prodName, b.prodUnit, b.prodPrice
PIVOT operName IN ('prihod','vozvrat','realiz','spisanie')


Кто знает как можно такое реализовать... ?

http://www.sql.ru/forum/1198081/transform-select-pivot
Нравится

Акцесс и ККМ Ярус-М2100К
Суббота, 30 Января 2016 г. 14:47 + в цитатник
Приветствую, Форумчане!

Кто-нибудь сталкивался с таким кассовым аппаратом с подключением к приложению на Акцессе?

http://www.sql.ru/forum/1198070/akcess-i-kkm-yarus-m2100k
Нравится

Проблема с составным индексом
Пятница, 29 Января 2016 г. 22:31 + в цитатник
Есть таблица, в которой штук 20 полей (одно из них - ключевое). Делаю составной индекс из 10 (максимально возможное количество) полей (ключевое в них не входит, разумеется), в свойствах индекса указываю "Уникальный индекс - Да". Для проверки срабатывания уникальности копирую одну из строк набора данных и вставляю её и ... она, блин, добавляется без проблем. Как так? Добавляется строка полностью идентичная (кроме поля ключа) уже имеющейся, типа уникальный индекс этому добавлению ничуть не мешает. В чем засада?

http://www.sql.ru/forum/1198018/problema-s-sostavnym-indeksom
Нравится

Как заставить VBA-проект "уснуть" на время?
Пятница, 29 Января 2016 г. 20:09 + в цитатник
Мой VBA-проект вообще не использует формы (бывает и такое!). Какой самый простой способ заставить его "уснуть" на некоторое время - на секунду, например? И чтобы он в это время не грузил процессор.

http://www.sql.ru/forum/1197997/kak-zastavit-vba-proekt-usnut-na-vremya
Нравится

Вывод отчётов Access в шаблон Word
Пятница, 29 Января 2016 г. 18:59 + в цитатник
Ребят, проблемка, как в шаблон ворда вывести информацию. база аксес: https://dropmefiles.com/NBKDH
вместо жёлтых полей, таблиц в ворде нужно подставить из БД

http://www.sql.ru/forum/1197988/vyvod-otchyotov-access-v-shablon-word
Нравится

Экспорт в EXCEL
Пятница, 29 Января 2016 г. 17:43 + в цитатник
пытаюсь экспортировать в готовый файл который отформатирован как мне надо с определенной строки.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "LagerListeDIB_Export", ZielFile, False, "Tabelle1!A8:L150000"

Выдает ошибку 3010 Таблица "Tabelle1!A8:L150000" уже сущестбует

как ее обойти??

http://www.sql.ru/forum/1197971/eksport-v-excel
Нравится

Подключение к запросам из Excel
Пятница, 29 Января 2016 г. 15:33 + в цитатник
Приветствую!
Комрады, обращаюсь за практикой. Потому что в нете ничего путного на эту тему не нашел, видимо, имеют место частные случаи, о которых я, по неопытности, не знаю.

Есть Access с тремя запросами. Там все работает, все хорошо.
Есть Excel, в который через "Получение из внешних данных - из Access" я хочу "положить" данные из этих запросов. Я же правильно понимаю предназначение этого функционала?
Подключаюсь (все через гуи), выбираю запрос. Имею следующую картину:
1. Из одного запроса данные тянутся абсолютно сорректно
2. Из второго отчета записей возвращается больше, чем возвращает сам отчет в Access
3. От третьего отчета подтягиваются только заголовки полей.
В чем может быть причина? Структура запросов (она почти одинаковая), количество выгружаемых данных (25к строк в наибольшем), что-то еще?
_____________________
А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

http://www.sql.ru/forum/1197942/podkluchenie-k-zaprosam-iz-excel
Нравится

получение сообщений MS SQL в коде VBA
Пятница, 29 Января 2016 г. 14:50 + в цитатник
Получение серверных сообщений в коде VBA
Пытаюсь воспроизвести элементарную обработку сообщений сервера по мотивам
http://stackoverflow.com/questions/3013447/how-to-retrieve-all-errors-and-messages-from-a-query-using-ado

Sub Test2()
  Dim conn As ADODB.Connection
 
  Set conn = New ADODB.Connection
  conn.Provider = CurrentProject.Connection.Provider
  conn.ConnectionString = CurrentProject.Connection.ConnectionString
  conn.Open

  Dim rs As ADODB.Recordset
  Set rs = conn.Execute("print 'Foo'" & vbCrLf & "print 'Bar'" & vbCrLf & "raiserror ('xyz', 10, 127)")

  Dim error As ADODB.error

  For Each error In conn.Errors
       MsgBox error.Description
   Next

  While Not (rs Is Nothing)
    For Each error In conn.Errors
        MsgBox error.Description
    Next
    Set rs = rs.NextRecordset
  Wend
  
End Sub


НО! Я ничего не получаю. Хотя, вроде, по утверждениям MS сообщения и ошибки все должны быть в Errors.

Выполнение запроса
print 'Foo'
print 'Bar'
raiserror ('xyz', 10, 127)
в MSSMS возвращает
Foo
Bar
xyz

Если
raiserror ('xyz', 10, 127) поменять на raiserror ('xyz', 16, 127) - ошибка в колекции появляется.

http://www.sql.ru/forum/1197933/poluchenie-soobshheniy-ms-sql-v-kode-vba
Нравится

создание новой "пустой" б.д., на основе прилинкованной
Пятница, 29 Января 2016 г. 13:59 + в цитатник
система состоит из двых б.д. : основная (формы,запросы и т.д.) и б.д. таблиц, которые прилинкованы в основной.
Задача: Используя основную б.д., создать новую б.д. таблиц, той же структуры, но без данных.
Решение: 1)создаю копию б.д. таблиц с временным именем с помощью метода FileCopy
2) "чищу" ее (удаляю данные)

Проблемма: При выполнении FileCopy выдается ошибка #70 "Permission denied"
Предпологаемая причина: к копируемой б.д. нет доступа, т.к. она открыта
Посоветуйте как устранить проблемму.
Спасибо.

http://www.sql.ru/forum/1197920/sozdanie-novoy-pustoy-b-d-na-osnove-prilinkovannoy
Нравится

Как удалить запросом ВБА строчки в таблице если критерий пустое поле
Пятница, 29 Января 2016 г. 11:16 + в цитатник
Добрый день.
Прошу подсказать как удалить строчку в таблице если критерий пустое поле.
  • Все попытки выдает ошибку.

    CurrentDb.Execute "delete * from НазваниеЗадания where НаименованиеТемы = " & (пустое поле в текстовом формате)

    спасибо!

    • http://www.sql.ru/forum/1197879/kak-udalit-zaprosom-vba-strochki-v-tablice-esli-kriteriy-pustoe-pole
    Нравится

    Оптимизация
    Пятница, 29 Января 2016 г. 06:38 + в цитатник
    Добрый день всем.
    Подскажите пожалуйста как ускорить выполнению данного кода?
    +
    For i = 1 To rs.RecordCount 'цикл по записям рекордсета из excel
 If DCount("[kod_upr]", "[NCI_UPR_1214]", "[NCI_UPR_1214].[kod_upr]='" & rs.Fields(6) & "'") > 0 
 And DCount("[nStrEd]", "[NCI_StrEd_18]", "[NCI_StrEd_18].[nStrEd]=" & rs.Fields(3)) > 0 Then
rs2.AddNew
rs2.Fields("kod_kurator") = rs.Fields("Код Кураторов") '0
rs2.Fields("kod_manager") = rs.Fields("Код Менеджера") '1
rs2.Fields("type_activ") = rs.Fields("Вид деятельности ОД/ИД/Прибыль/Возмещаемые") '2
rs2.Fields("kod_18") = rs.Fields("Код Контрагента (18 справочник)") '3
rs2.Fields("NumDogKurator") = rs.Fields("№ договора от Куратора") '4
rs2.Fields("kod_25") = rs.Fields("№ договора САП (25 справочник)") '5
rs2.Fields("nameUslugi") = rs.Fields("Наименование услуги") '6
rs2.Fields("kod_upr") = rs.Fields("Код управления") '7
rs2.Fields("kod_12") = rs.Fields("Код Центров затрат (12 справочник)") '8
rs2.Fields("kod_52") = rs.Fields("Код Вида услуг (52 справочник)") '9
rs2.Fields("kod_33") = rs.Fields("Код Целевой программы (33 справочник)") '10
rs2.Fields("kod_39") = rs.Fields("Код Месторождения (39 справочник)") '11
rs2.Fields("kod_47") = rs.Fields("Код элементов затрат (47 справочник)") '12
rs2.Fields("kod_13") = rs.Fields("Код прочих доходов и расходов (кроме прочих р-ций,13 справочник)") '13
rs2.Fields("kod_103") = rs.Fields("Код Вида производств (103 справочник)") '14
rs2.Fields("kod_24") = rs.Fields("Код Вида деятельности (24 справочник)") '15
rs2.Fields("kod_AFE") = rs.Fields("Код AFE (справочник АФЕ)") '16
rs2.Fields("recoverable") = rs.Fields("Возмещаемые (если агентский договор прописывать № договора )") '17
rs2.Fields("kod_Cdelka") = rs.Fields("Код типа сделки (справочник сделок)") '18
rs2.Fields("kod_StatBud") = rs.Fields("Код статьи бюджета (справочник Статей бюджета)") '19
rs2.Fields("numberLot") = rs.Fields("Номер лота") '20
rs2.Fields("ZKprotocol") = rs.Fields("Протокол ЗК") '21
rs2.Fields("kod_edizm") = rs.Fields("Единица измерения") '22
rs2.Fields("kod_urovuslug") = rs.Fields("Уровень обслуживания(Эконом/Стандарт/Премиум)") '23
rs2.Fields("cost") = rs.Fields("Тариф за единицу в месяц (без НДС, руб)") '24
rs2.Fields("valuta") = rs.Fields("Валюта договора") '25
rs2.Fields("procNDS") = rs.Fields("Процент НДС") '26
rs2.Fields("coefficient") = rs.Fields("Целевой коэффициент") '27
rs2.Fields("volume01") = rs.Fields("Объем обслуживаемых единиц (1)") '28
rs2.Fields("sum01") = rs.Fields("Сумма в месяц, рублей, без НДС (1)") '29
rs2.Fields("volume02") = rs.Fields("Объем обслуживаемых единиц (2)") '30
rs2.Fields("sum02") = rs.Fields("Сумма в месяц, рублей, без НДС (2)") '31
rs2.Fields("volume03") = rs.Fields("Объем обслуживаемых единиц (3)") '32
rs2.Fields("sum03") = rs.Fields("Сумма в месяц, рублей, без НДС (3)") '33
rs2.Fields("volume04") = rs.Fields("Объем обслуживаемых единиц (4)") '34
rs2.Fields("sum04") = rs.Fields("Сумма в месяц, рублей, без НДС (4)") '35
rs2.Fields("volume05") = rs.Fields("Объем обслуживаемых единиц (5)") '36
rs2.Fields("sum05") = rs.Fields("Сумма в месяц, рублей, без НДС (5)") '37
rs2.Fields("volume06") = rs.Fields("Объем обслуживаемых единиц (6)") '38
rs2.Fields("sum06") = rs.Fields("Сумма в месяц, рублей, без НДС (6)") '39
rs2.Fields("volume07") = rs.Fields("Объем обслуживаемых единиц (7)") '40
rs2.Fields("sum07") = rs.Fields("Сумма в месяц, рублей, без НДС (7)") '41
rs2.Fields("volume08") = rs.Fields("Объем обслуживаемых единиц (8)") '42
rs2.Fields("sum08") = rs.Fields("Сумма в месяц, рублей, без НДС (8)") '43
rs2.Fields("volume09") = rs.Fields("Объем обслуживаемых единиц (9)") '44
rs2.Fields("sum09") = rs.Fields("Сумма в месяц, рублей, без НДС (9)") '45
rs2.Fields("volume10") = rs.Fields("Объем обслуживаемых единиц (10)") '46
rs2.Fields("sum10") = rs.Fields("Сумма в месяц, рублей, без НДС (10)") '47
rs2.Fields("volume11") = rs.Fields("Объем обслуживаемых единиц (11)") '48
rs2.Fields("sum11") = rs.Fields("Сумма в месяц, рублей, без НДС (11)") '49
rs2.Fields("volume12") = rs.Fields("Объем обслуживаемых единиц (12)") '50
rs2.Fields("sum12") = rs.Fields("Сумма в месяц, рублей, без НДС (12)") '51
rs2.Fields("totalVolume") = rs.Fields("Объем обслуживаемых единиц") '52
rs2.Fields("totalSum") = rs.Fields("Сумма, в рублях, без НДС") '53
rs2.Update
End If
If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
End If

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

    Данные из вычисляемого поля
    Пятница, 29 Января 2016 г. 05:32 + в цитатник
    Здравствуйте!
    Прохожу по полям свободной формы для записи данных в таблицу
    frm.Controls(fldPrefix & Right(f.Name, Len(f.Name) - Len(tblPrfx))).Value

    Почему то возвращает "", хотя перед сохранением поле отображает данные

    http://www.sql.ru/forum/1197834/dannye-iz-vychislyaemogo-polya
    Нравится

    Выпадающий список по двойному щелчку
    Четверг, 28 Января 2016 г. 23:32 + в цитатник
    Здравствуйте!
    У меня есть подчиненная форма с запросом, который выдаёт выборку с таблиц: клиенты, услуги и статус услуг.
    после прозвона статус может измениться.
    Хотелось бы сделать чтоб по двойному счелчку по статусу появлялся выпадающий список с вариантами статусов, а после выбора происходило его изменение.
    Подскажите, возможно ли это реализовать и как?

    http://www.sql.ru/forum/1197812/vypadaushhiy-spisok-po-dvoynomu-shhelchku
    Нравится

    selection смазывает (портит) шрифт в поле таблицы
    Четверг, 28 Января 2016 г. 22:58 + в цитатник
    Всем привет.
    Умучился искать решение. Подскажите пожалуйста, кто знает.
    Win 7, Access 2010. ClearType включен и в винде, и в Access. Везде шрифт Calibri, но пробовал и другие, Arial например. Если в поле таблицы выбрать часть или весь текст, он выглядит так, как будто ClearType не включен - пиксилезирован, нечеткий, прочитать что-то трудно - приходится напрягать глаза.
    При этом без selection всё выглядит прекрасно.
    Пробовал и со стандартной темой, и с другими.

    Как это исправить?

    И еще один попутный вопрос.
    Как в ListBox сделать так, чтобы там нельзя было вводить текст - только выбирать из списка, как в стандартном виндовом ListBox'е?

    Спасибо!

    http://www.sql.ru/forum/1197803/selection-smazyvaet-portit-shrift-v-pole-tablicy
    Нравится

    Получить значение по номеру поля.
    Четверг, 28 Января 2016 г. 17:17 + в цитатник
    Наверно элементарно, но никак не соображу.
    Как получить значение по номеру поля. Имя поля неизвестно. Что то типа

    Set rs = CurrentDb.OpenRecordset("SELECT * FROM tabl")
    a = rs(4)

    не проходит.

    http://www.sql.ru/forum/1197741/poluchit-znachenie-po-nomeru-polya
    Нравится

    Комментарии в запросах
    Четверг, 28 Января 2016 г. 14:41 + в цитатник
    Комрады, приветствую!
    Можно ли и как комментировать строки в запросах в Access в представлении SQL?
    _____________________
    А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

    http://www.sql.ru/forum/1197708/kommentarii-v-zaprosah
    Нравится

    Автоматическое подключение
    Четверг, 28 Января 2016 г. 14:17 + в цитатник
    Как-то можно сделать автоматический коннект SQL server при запуске Access?

    http://www.sql.ru/forum/1197701/avtomaticheskoe-podkluchenie

    Поиск сообщений в rss_sql_ru_access_programming
    		Страницы: 353 ... 188 187 [186] 185 184 ..
    .. 1 Календарь

    О проекте