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

Нравится

Подключение к БД Access через Excel: "Ошибочный пароль".
Вторник, 22 Марта 2016 г. 00:11 + в цитатник
Привет всем!
Помогите, пожалуйста.
Пытаюсь подключится с зашифрованной БД из Excel. Пароль 100% правильный, но получаю ошибку "Ошибочный пароль". С чем это может быть связано?

Sub DBConnetct()
    Dim MyDatabase As DAO.Database
    Dim rsCountry As DAO.Recordset
    Dim dbpath As String
    Dim wrb As Workbook
    Dim sht As Worksheet
    Dim c As Integer

    dbpath = "C:\TestDB.accdb"
    Set MyDatabase = DBEngine.OpenDatabase(dbpath, False, False, ";pwd=123")
    Set rsCountry = MyDatabase.OpenRecordset("SELECT * FROM tCountry")
    
    Set wrb = Workbooks.Add
    Set sht = wrb.Sheets(1)
    
    With sht
        .Name = "Country"
        .Range("A2").CopyFromRecordset rsCountry
        For c = 1 To rsCountry.Fields.Count
            sht.Cells(1, c).Value = rsCountry.Fields(c - 1).Name
        Next c
    End With
End Sub

http://www.sql.ru/forum/1206294/podkluchenie-k-bd-access-cherez-excel-oshibochnyy-parol
Нравится

Не удается вставить картинку в отчет
Понедельник, 21 Марта 2016 г. 11:52 + в цитатник
Access 2003 + Windows 8
Не работает отчет в котором были картинки в JPG
Попробовал в новый чистый отчет в режиме конструктора вставить JPG картинку - отказывается, пишет что этот формат не поддерживается, как так-то? На моем компе где XP все работает, что делать?

http://www.sql.ru/forum/1206187/ne-udaetsya-vstavit-kartinku-v-otchet
Нравится

Ошибка при объединении двух фильтров
Понедельник, 21 Марта 2016 г. 10:20 + в цитатник
Добрый день! Где-то я намудрил

Dim flt1 As String
Dim flt3 As String
'.....
'.....
flt1 = "[Кем занят] Like '" & Me.Поле30.Text & "*'"
flt3 = "[Дата заезда] Like #" & Me.Поле34 & "#"
 
'.....
'.....
        Me.Filter = Left(flt1, Len(flt1) - 1) And Right(flt3, Len(flt3) - 1)
        Me.FilterOn = True


Так все работает:
Me.Filter = flt1
        Me.FilterOn = True


в чем лажа? Заранее спасибо.

http://www.sql.ru/forum/1206171/oshibka-pri-obedinenii-dvuh-filtrov
Нравится

как применить module к кнопке
Понедельник, 21 Марта 2016 г. 09:54 + в цитатник
есть модуль, нужно запустить его с кнопки в форме, как это сделать

http://www.sql.ru/forum/1206161/kak-primenit-module-k-knopke
Нравится

Логирование
Воскресенье, 20 Марта 2016 г. 08:01 + в цитатник
Добрый день, пытаюсь сделать некое логирование ошибок при экспорте данных чтобы в итоге получить файл с неправильными значениями, но что не совсем получается. Загрузку делаю в отдельную таблицу. Помогите распутаться с условиями.
+

For i = 1 To rs.RecordCount

s1 = "_" & rs.Fields(6) & "_"
s2 = "_" & rs.Fields(3) & "_"

If InStr(s1214, s1) > 0 Then  'точка
    If InStr(s18, s2) > 0 Then 'штрих
        With rs2
            .AddNew
            .Fields("kod_kurator") = rs.Fields(0)
            .Fields("kod_manager") = rs.Fields(1)
            .Fields("type_activ") = rs.Fields(2)
            .Fields("kod_18") = rs.Fields(3)
            .Fields("kod_25") = rs.Fields(4)
            .Fields("nameUslugi") = rs.Fields(5)
            .Fields("kod_upr") = rs.Fields(6)
            .Fields("kod_12") = rs.Fields(7)
            .Fields("kod_52") = rs.Fields(8)
            .Fields("kod_33") = rs.Fields(9)
            .Fields("kod_39") = rs.Fields(10)
            .Fields("kod_47") = rs.Fields(11)
            .Fields("kod_13") = rs.Fields(12)
            .Fields("kod_103") = rs.Fields(13)
            .Fields("kod_24") = rs.Fields(14)
            .Fields("kod_AFE") = rs.Fields(15)
            .Fields("recoverable") = rs.Fields(16)
            .Fields("kod_Cdelka") = rs.Fields(17)
            .Fields("kod_StatBud") = rs.Fields(18)
            .Fields("numberLot") = rs.Fields(19)
            .Fields("ZKprotocol") = rs.Fields(20)
            .Fields("kod_edizm") = rs.Fields(21)
            .Fields("kod_urovuslug") = rs.Fields(22)
            .Fields("cost") = rs.Fields(23)
            .Fields("valuta") = rs.Fields(24)
            .Fields("procNDS") = rs.Fields(25)
            .Fields("coefficient") = rs.Fields(26)
            .Fields("volume01") = rs.Fields(27)
            .Fields("sum01") = rs.Fields(28)
            .Fields("volume02") = rs.Fields(29)
            .Fields("sum02") = rs.Fields(30)
            .Fields("volume03") = rs.Fields(31)
            .Fields("sum03") = rs.Fields(32)
            .Fields("volume04") = rs.Fields(33)
            .Fields("sum04") = rs.Fields(34)
            .Fields("volume05") = rs.Fields(35)
            .Fields("sum05") = rs.Fields(36)
            .Fields("volume06") = rs.Fields(37)
            .Fields("sum06") = rs.Fields(38)
            .Fields("volume07") = rs.Fields(39)
            .Fields("sum07") = rs.Fields(40)
            .Fields("volume08") = rs.Fields(41)
            .Fields("sum08") = rs.Fields(42)
            .Fields("volume09") = rs.Fields(43)
            .Fields("sum09") = rs.Fields(44)
            .Fields("volume10") = rs.Fields(45)
            .Fields("sum10") = rs.Fields(46)
            .Fields("volume11") = rs.Fields(47)
            .Fields("sum11") = rs.Fields(48)
            .Fields("volume12") = rs.Fields(49)
            .Fields("sum12") = rs.Fields(50)
            .Fields("totalVolume") = rs.Fields(51)
            .Fields("totalSum") = rs.Fields(52)
            .Fields("NumDogKurator") = rs.Fields(53)
            .Update
        End With
    j = j + 1
    isum = isum + rs2.Fields("totalSum")
    End If
    If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
    Next i ' Выходит next without for. Переношу if над Next появляется Else without if
    End If

Else

Adds = "update logtable set schifrKA='" & s2 & "', commentKA='неверное значение' "
DoCmd.RimSQL Adds
End If

If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
Else

Adds = "update logtable set UPR='" & s1 & "', commentUPR='неверное значение' "
DoCmd.RimSQL Adds

If InStr(s18, s2) > 0 Then 'штрих

If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
    Else
Adds = "update logtable set schifrKA='" & s2 & "', commentKA='неверное значение' "
DoCmd.RimSQL Adds
End If

If i < rs.RecordCount Then rs.MoveNext 'если переменная цикла не добралась до конца то двигаем рекордсет eXcel на следующую запись
Next i
End If

rs.Close
idone = 1
MsgBox "Загрузка в план прошла успешно." & vbNewLine & "Добавлено строк :" & j & vbNewLine & "Общая сумма добавленных записей :" & isum

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

Не получается скрыть область навигации
Воскресенье, 20 Марта 2016 г. 02:20 + в цитатник
Всем привет.
Не могу скрыть область навигации в своей БД. В параметрах снял соответствующую галочку (Текущая база данных - Навигация - Область навигации), но область навигации все равно отображается.

Благодарю за ответы.

http://www.sql.ru/forum/1206048/ne-poluchaetsya-skryt-oblast-navigacii
Нравится

Excel VBA не любит Access, ...
Воскресенье, 20 Марта 2016 г. 01:16 + в цитатник
... или у меня сегодня лыжи не едут?

Пытался в качестве библиотеки EXCEL VBA проекта подключить MDB-шку, говорит невкусно!

Ладно, подключил библиотеку Access, далее:
    With New Access.Application
        .OpenCurrentDatabase Workbooks(1).Path & "\FileName.mdb"
        .Visible = True
        .DoCmd.OpenForm "frmName"
        Set frm = .Forms("frmName").Form
    End With


Access, форма открываются, вопросов нет.

А вот при попытке подписаться на события интерфейса Form:
Private WithEvents frm As Access.Form

опять получаю фиг вам на строке:
Set frm = .Forms("frmName").Form

Без подписки на события - все гуд.
(модуль правильный)

Как побороть сию напасть?
Нужно в лист книги данные возвернуть в три не смежные ячейки.

Спасибо.

http://www.sql.ru/forum/1206043/excel-vba-ne-lubit-access
Нравится

Ограничение по базе
Воскресенье, 20 Марта 2016 г. 00:41 + в цитатник
Привет всем!
Так вышло, что в "наследство" досталась Аксесс база 2007, всё работает, но есть сомнения:
- 2Г это в прошлом?
- идёт постоянный поток в виде скана документов, хранятся как pdf - страшно?
(пока всё ОК)
Заранее благодарю ВС

http://www.sql.ru/forum/1206039/ogranichenie-po-baze
Нравится

Overflow при использовании dlookup
Суббота, 19 Марта 2016 г. 03:20 + в цитатник
Доброго времени суток всем.
Уважаемые знатоки, подскажите пожалуйста, решение.

Есть образец базы, mdb, ещё формата Access 2000 (в прицепе).
У клиента есть реестр дисконтных карточек, причём их номера состоят из 12-ти символов.
Необходимо, что бы при вводе номера новой карточки программа проверяла его уникальность, и если такой номер уже введён, то, допустим, выдавала сообщение "Номер занят". А если такого номера в реестре ещё нету - появлялось сообщение "Номер свободен".
Таблица с номерами карточек "ТСкидкаРег", поле с номерами - "КодКарты" (тип поля - Числовой, размер - Действительное, точность - 18, с запасом).
В форме с реестром карточек FDiscontSpisok по нажатию кнопки "Новая карточка" открывается форма FRegDiscontKDir с полем для ввода нового номера Штрихкод (поле свободное). Вводим новый номер, жмём кнопочку "Регистрировать".
И по нажатию выполняется:

Private Sub Рег_Click()
Код& = Nz(DLookup("[КодКарты]", "ТСкидкаРег", "[КодКарты] =" & [Forms]![FRegDiscontKDir]![Штрихкод]), 0)
If Код = 0 Then
MsgBox "Номер свободен", vbOKOnly, "Предупреждение"
Else
MsgBox "Номер занят", vbOKOnly, "Предупреждение"
End If
End Sub

Этот способ отлично работает при числах до десяти цифр включительно. Но если вводим номер из 12-ти символов (по условию) - новый
номер обрабатывает правильно (Номер свободен). А если такой номер из 12-ти символов уже существует - выдаёт ошибку Overflow.

Пробовал изменить тип поля для номера карточки на текстовый и, соответственно, менял строку на
Код& = Nz(DLookup("[КодКарты]", "ТСкидкаРег", "[КодКарты] ='" & [Forms]![FRegDiscontKDir]![Штрихкод]& "'"), 0)
Результат - точно такой же, Overflow.
Перерыл кучу справок, форум, подозреваю, что как то надо явно указать тип данных - но ничего пока не получилось.
Спасите, просветите...

С уважением.

http://www.sql.ru/forum/1205938/overflow-pri-ispolzovanii-dlookup
Нравится

Ошибка "Subscript out of range" при попытке разделения базы
Суббота, 19 Марта 2016 г. 01:03 + в цитатник
Всем привет.
Помогите, пожалуйста, советом или подскажите в каком направлении двигаться. Есть БД (accdb) с интерфейсом, написанным на VBA. При попытке разделения базы получаю ошибку "Subscript out of range". Какие могут быть этому причины?

http://www.sql.ru/forum/1205929/oshibka-subscript-out-of-range-pri-popytke-razdeleniya-bazy
Нравится

Проблема совместимости макросов Access 2007 и Access 2010
Пятница, 18 Марта 2016 г. 20:44 + в цитатник



Сделал фильтрацию по спискам согласно этому уроку, но не могу понять как это можно сделать в access 2007, ибо на работе стоит 2007 и нужно это сделать на 2007, там вроде тоже имеются подобные функции можете помочь. Конкретно не понятно как создать условия (например "Иначе")

http://www.sql.ru/forum/1205909/problema-sovmestimosti-makrosov-access-2007-i-access-2010
Нравится

Access->сервер Sharepoint Web App->Access
Пятница, 18 Марта 2016 г. 17:26 + в цитатник
Ребята, привет.
Я пришла по этому линку http://www.sql.ru/forum/1038450/razmestit-bazu-dannyh-access-na-servere

Сергей Лалов, большое спасибо за информацию, очень хорошо все разжевано.

У меня проблема с работой базы Access на сервере.

Имеется в наличии база, которая переселилась на сервер Sharepoint Web app.
Пользователи (подрядчики и заказчики) будут иметь Web доступ к сформированным запросам и web формам. Пользователи могут менять данные в таблицах.
Команде разработчиков дам локальные копии баз с запросами и скриптами VBA, локальные копии приложения имеют Linked Tables, то есть когда изменения проиходят на Sharepoint Web App (подрядчик поменял дату сдачи проекта), эти изменения обновляются на локальных компьютерах у моих ребят кнопочкой обновить. Эта часть работает нормально. Таблицы обновляются, VBA работает с удаленными таблицами, хоть и медленно.
Проблема: Когда создается Новая, ранее не существующая тблица на сервере Sharepoint Web app, как сделать так чтобы она появилась на локальных приложениях, без загрузки базы с Web app по новой?
Допустим, нам нужно добавить новую таблицу, поставщики в базу. Мы создаем ее на Sharepoint Web app, а потом мои ребята будут юзать VBA для формирования отчетов. Но в локальных базах я эту новую таблицу не вижу.

http://www.sql.ru/forum/1205877/access-server-sharepoint-web-app-access
Нравится

запуск процедуры
Пятница, 18 Марта 2016 г. 16:07 + в цитатник
Добрый день!

Как запустить процедуру и подождать ровно 5 сек. и если работа процедуры не завершена, то прекратить принудительно?
5 секунд вполне достаточно.

http://www.sql.ru/forum/1205865/zapusk-procedury
Нравится

Программа Склад на Access 2003
Пятница, 18 Марта 2016 г. 09:51 + в цитатник
Добрый день,

Дело в том, что мне с работы поручили создать простую программу "склад-касса" с возможностью
запрашивать отчеты о движениях по выбранному интервалу, то есть выбранные даты.

Я пишу на VBA Excel, и вот что у меня получается:

  • Рисунок 1

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

    Но проблема в том, что файл уже весит 847 МБ. и то мы еще не начали вводить. И это для одного
    поставщика. Создав 50 таких поставщиков или клиентов папка весит 50-60 ГБ ((((((

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

    Относительна Программы:

    1. Поставщики, Товары (Приход, возврат, задолженность, оплата)
    2. Клиенты (Выгрузка, возврат, задолженность, оплата)
    3. Касса (Приход (Клиенты-Оплата), Приход (Другое), Расход)
    4. Отчеты (Склад, Касса, Долги поставщикам, Долги Клиенты)


    Единственно что важно, это календари, что бы выбрать интервал.

    Люди добрые, помогите пожалуйста.
    С меня подарок.

    • http://www.sql.ru/forum/1205795/programma-sklad-na-access-2003
    Нравится

    как перевернуть таблицу с помощью transform PIVOT
    Четверг, 17 Марта 2016 г. 17:33 + в цитатник
    qdfSRC 1tab
    SELECT UserName1 AS Users, Format([DateClosed],"mmmm") AS [M], [DealStage], 1 AS ord, Year(DateClosed) AS Y
FROM qdfDeals
WHERE Year(DateClosed)=2014 AND DealStage IN ('Реализация*','Отказ','Получен запрос','Выслано предложение','Подтвержден подгот-ка*');


    2 tab которую надо перевернуть
    SELECT Y, '', 'Поступившие заявки' AS Pokaz,M, Count(1) AS Count FROM  qdfSRC  GROUP BY Y, M
	UNION ALL SELECT Y,Users, 'Поступившие заявки' AS Pokaz,M, Count(1) AS Count FROM  qdfSRC  
GROUP BY Y,Users, M
Order BY M

    http://www.sql.ru/forum/1205726/kak-perevernut-tablicu-s-pomoshhu-transform-pivot
    Нравится

    Помогите с формой!!!
    Четверг, 17 Марта 2016 г. 17:02 + в цитатник
    Имеется к примеру 3 таблицы: ЗИП (код; назв), УстЗИП (код; ЗИП; кол; апп), Аппараты (код; апп). таблицы связаны между собой. Нужна форма, в которой была бы возможность вводить данные ремонта к аппарату в форме, не одной строкой с ЗИПом, а произвольное (например добавлением клавишей "Insert".

    Заранее благодарю.

    http://www.sql.ru/forum/1205717/pomogite-s-formoy
    Нравится

    CommandBar.Name = пробел
    Четверг, 17 Марта 2016 г. 13:05 + в цитатник
    Добрый день.
    В результате каких-то катаклизмов в далёком прошлом в базе завёлся CommandBar, у которого имя = пробел (space).
    Наткнулся я на него в процессе профилактического импорта базы в новую базу, т.е. на нём оно падает.
    Так вот, это меню не даёт почти ничего с собой сделать.
    Из графического интерфейса удалить нельзя.
    Методы .Delete (Method 'Delete' of object 'CommandBar' failed), .Name = "asdf" (Method 'Name' of object 'CommandBar' failed) не работают.
    Можно сделать ему .Visible - появится пустая панелька, с которой вроде тоже ничего нельзя сделать.

    Как-то можно от него избавиться?

    http://www.sql.ru/forum/1205653/commandbar-name-probel
    Нравится

    Как выбрать узел в TreeView по key
    Четверг, 17 Марта 2016 г. 11:48 + в цитатник
    День добрый.
    Как выбрать узел в TreeView по key типа: Me.TreeView1.SelectedNode = Me.Key.Value
    Туплю что то. Спасибо

    http://www.sql.ru/forum/1205636/kak-vybrat-uzel-v-treeview-po-key
    Нравится

    Как сделать отношение кол-ва записей за месяц к общему количеству записей за год в %
    Четверг, 17 Марта 2016 г. 00:58 + в цитатник
    Строка отчета «Поступило заявок всего» Реализация + отказа. Количество всех записей таблицы Заявки с разбивкой по месяцам.
    1.2. Процент в таблице отчета по строке «Поступило заявок всего» - это отношение количества записей за месяц к общему количеству записей за год в процентном выражении.
    1.3. Строка отчета « Светлана» - количество всех записей таблицы Заявки с разбивкой по месяцам со значением поля «Менеджер проекта» из таблицы Сотрудники = « Светлана».
    1.4. Процент в таблице отчета по строке « Светлана». – это отношение количества отобранных записей (записей со значением « Светлана») за месяц к общему количеству записей за месяц.
    1.5. Так далее для всех значений поля «Менеджер проекта» из таблицы Сотрудники.


    Здесь результат показывает общая кол-во заявок «Поступило заявок всего» за месяц берется за 100%
    Надо что общая кол-во за январь месяц разделить на общую кол-во за год * 100% (в каждом месяце)))
    TRANSFORM MIN(N)
SELECT ord, DealStage
FROM (SELECT DealStage,M,ord,Count(1) AS N FROM SRC GROUP BY M,DealStage,ord

UNION ALL

SELECT T.DealStage,T.M & "%",T.ord,Round(Count(1)/Min(S.N)*100)
FROM SRC AS T INNER JOIN (SELECT M,Count(1) AS N FROM SRC GROUP BY M) S ON T.M=S.M
GROUP BY T.M,T.DealStage,T.ord

UNION ALL

SELECT DealStage,'ИТОГО',ord,Count(1) FROM SRC GROUP BY DealStage,ord

UNION ALL

SELECT T.DealStage,'ИТОГО%',T.ord,Round(Count(1)/Min(S.N)*100)
FROM SRC T,(SELECT Count(1) AS N FROM SRC) S
GROUP BY T.DealStage,T.ord

UNION ALL

SELECT 'Поступившие заявки',M,1,Count(1) FROM SRC GROUP BY M

UNION ALL

SELECT 'Поступившие заявки',M & '%',1,100 FROM SRC GROUP BY M

UNION ALL

SELECT 'Поступившие заявки','ИТОГО',1,Count(1) FROM SRC 

UNION ALL

SELECT 'Поступившие заявки','ИТОГО%', 1, 100 FROM SRC
)  AS X
GROUP BY ord, DealStage
ORDER BY ord
PIVOT M IN (
'Январь','Январь%',
'Февраль','Февраль%',
'Март','Март%',
'Апрель','Апрель%',
'Май','Май%',
'Июнь','Июнь%',
'Июль','Июль%',
'Август','Август%',
'Сентябрь','Сентябрь%',
'Октябрь','Октябрь%',
'Ноябрь','Ноябрь%',
'Декабрь','Декабрь%',
'ИТОГО','ИТОГО%'
);

    http://www.sql.ru/forum/1205588/kak-sdelat-otnoshenie-kol-va-zapisey-za-mesyac-k-obshhemu-kolichestvu-zapisey-za-god-v
    Нравится

    DBF >> Access >> Excel
    Среда, 16 Марта 2016 г. 17:50 + в цитатник
    Добрый день!
    Имеем: dbf файлы обновляемые каждую ночь, базу access где установлены связи с данными dbf и сводную таблицу в экселе созданную из запросов в акцессе.
    В один день на одном из компов отдела эксель перестает обновляться как положено, кириллица пропала в таблицах. Лезу вглубь и обнаруживаю что акцесс на данной машине не распознает кириллицу из DBF (access 10), еще компов пять в сети распознают (W7 + офис 10, XP + офис 3 + офис 10)
    Установлен на проблемной машине W7 + офис 2003 и 2010. Открываю акцессом 2003, распознает. Закрываю, не обновляется, лезут каракули вместо кириллицы. Оставляю dbf открытым в акцессе - обновляется все отлично. Читал про изменения реестра в Jet \ 4.0 \ Engines \ Xbase на 2 или ноль но стоит и так 2 замена на 0 ничего не дает. На исправной машине jet вообще отсутствует. Посоветуйте что можно сделать. Спасиб.

    http://www.sql.ru/forum/1205545/dbf-access-excel

    Поиск сообщений в rss_sql_ru_access_programming
    		Страницы: 353 ... 197 196 [195] 194 193 ..
    .. 1 Календарь

    О проекте