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

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)

статический и динамический набор - наличие данных

Суббота, 15 Декабря 2018 г. 19:42 + в цитатник

всем привет
давно не занимался access'ом, многое подзабыл

access 2007
есть форма, источник записей - таблица
если указать RecordsetType =2 (статический набор), то данные в форме выводятся
если иное - форма пустая
не могу понять причину

https://www.sql.ru/forum/1306755/staticheskiy-i-dinamicheskiy-nabor-nalichie-dannyh

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

Автоматическое создание полей со списком

Суббота, 15 Декабря 2018 г. 00:04 + в цитатник

Задача такая: нужно что бы при выборе значения в поле со списком появлялось новое поле со списком и т.д. Как я поняла, осуществляется переход по записям. Объясните как это сделать.

https://www.sql.ru/forum/1306736/avtomaticheskoe-sozdanie-poley-so-spiskom

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

access 2010 runtime, как идентифицировать источник ошибки

Пятница, 14 Декабря 2018 г. 15:10 + в цитатник

Подскажите, если runtime-версия выдала ошибку Runtime error, из которой однозначно невозможно догадаться об источнике (строке vba-кода) которая её породила, - какой бест-практикс по поиску источника ошибки?
Ошибка к сожалению не воспроизводится на обычной версии 2010.

Есть способ программно (в On Error..Resume) определить строку/программный блок кода, где вывалилось?

https://www.sql.ru/forum/1306711/access-2010-runtime-kak-identificirovat-istochnik-oshibki

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

Форматирование ячеек при выводе в Excel

Четверг, 13 Декабря 2018 г. 14:25 + в цитатник

Всем добрый день.
Подскажите пожалуйста, кто знает...

При выводе в Excel значений типа "12-01", "08/03-16" и "29/01" , формат ячейки автоматом преобразуется в дату или ещё в чего-то, а нужен текст. NumberFormat - ом могу преобразовать в число или дату, а как в текст подскажите плиз.

https://www.sql.ru/forum/1306656/formatirovanie-yacheek-pri-vyvode-v-excel

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

Установка курсора на текущую запись после обновления формы

Четверг, 13 Декабря 2018 г. 11:31 + в цитатник

Здравствуйте! Нужно чтобы курсор оставался на текущей записи после обновления формы. На форуме нашел:

Dim MyID As Long
MyID = Me!Код
Me.Parent.Refresh
Me.Recordset.FindFirst "[Код] = " & MyID

Работает если на форме не установлен фильтр, если фильтр установлен не работает.

https://www.sql.ru/forum/1306644/ustanovka-kursora-na-tekushhuu-zapis-posle-obnovleniya-formy

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

MDB + SQL самоблокировка из-за LazyLoad ?

Четверг, 13 Декабря 2018 г. 11:13 + в цитатник

В связке интерфейсной базы MDB c SQL Server используются прилинкованные таблицы.
В одной из ленточных форм с источником строк прилинкованным представлением около 30 тыс. строк. В соответстви с логикой LazyLoad аксесс подгружает записи по мере необходимости и возможности, т.е. если не переходить по записям то загрузит несколько начальных и к SQL Server будет висеть приостановленный процесс:

59	1	AccessFrontEnd	TestDB	SUSPENDED	SELECT	Appa17	535	ASYNC_NETWORK_IO	External ExternalResource=ASYNC_NETWORK_IO			24	TheHost	internal

На форме есть кнопка пересчёта, которая через ADO на SQL Server проводит вычисления и изменяет данные одного из полей, отображаемого в форме и после вызывает .Requery.
И обычно(не всегда) при работе кнопки возникает блокировка:

60	1	AccessFrontEnd	TestDB	SUSPENDED	UPDATE	Appa17	11228	LCK_M_IX	pagelock fileid=1 pageid=289384 dbid=5 subresource=FULL id=lock19a41b42c80 mode=SIU associatedObjectId=72057594064994304	59		24	TheHost	internal	
59	1	AccessFrontEnd	TestDB	SUSPENDED	SELECT	Appa17	340	ASYNC_NETWORK_IO	External ExternalResource=ASYNC_NETWORK_IO		1	24	TheHost	internal

Если перед нажатием кнопки прыгнуть на последнюю запись - такого никогда не происходит.

Причём там же на форме есть кнопка с более сложными и объёмными вычислениями и тоже изменяющая (но другие поля) отображаемые данные, но она никогда не вызывает блокировки. А тут спотыкается на простом запросе:

UPDATE Материалы SET Материалы.тОстБ = 0 FROM Материалы WHERE (((Материалы.тОстБ)<>0));

Как разбираться в проблеме? Что изменить ? что почитать ? Куда копать?

https://www.sql.ru/forum/1306641/mdb-sql-samoblokirovka-iz-za-lazyload

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

Не работает select запрос с 2-мя условиями Where

Среда, 12 Декабря 2018 г. 22:29 + в цитатник

Всем привет!

Такой запрос выводит всех читателей и их даты рождения, которые брали книги:

SELECT name_r, birthday
FROM Readers
WHERE id_reader in (select id_reader from Books_in_use)

а такой запрос (вывести самого молодого читателя) выводит пустые строки:

SELECT name_r, birthday
FROM Readers
WHERE id_reader in (select id_reader from Books_in_use) 
and birthday = (select max(birthday) from Readers)

В чем ошибка?

https://www.sql.ru/forum/1306627/ne-rabotaet-select-zapros-s-2-mya-usloviyami-where

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

обновление подчиненной формы из другой подчиненной формы

Среда, 12 Декабря 2018 г. 13:25 + в цитатник

Привет всем! Проблема:
Есть 2 подчиненных формы SubForm1 и SubForm2. В событии поля формы SubForm1 пишу:

Private Sub К_AfterUpdate()

Dim MyID As Long
MyID = Me!Код

Me.Parent.SubForm2.Refresh

Me.Recordset.FindFirst "[Код] = " & MyID

End Sub

Ругается на Me.Parent.SubForm2.Refresh

https://www.sql.ru/forum/1306601/obnovlenie-podchinennoy-formy-iz-drugoy-podchinennoy-formy

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

определить тип поля

Среда, 12 Декабря 2018 г. 10:43 + в цитатник

Добрый день.
Тип поля счетчик (длинное целое). Иногда слетает индекс, поле становится не ключевым.
Вопрос следующий:
как программно в определенной таблице проверить, является ли ключевым полем (с типом счетчик) поле с конкретным именем? (Да\нет)
Спасибо

https://www.sql.ru/forum/1306586/opredelit-tip-polya

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

Владельцам Office 2010 на Windows XP

Вторник, 11 Декабря 2018 г. 20:37 + в цитатник

Наткнулся недавно вот на такое объявление

Внимание! В ноябрьском обновлении KB4461522 допущена ошибка, приводящая к неработоспособности Office на Windows XP. Нужен файл WindowsXP-FIX.exe для исправления ситуации. Скачать можно: https://clck.ru/EhiDi

У меня Office 2010, но на Windows 7. А как у остальных?

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

https://www.sql.ru/forum/1306573/vladelcam-office-2010-na-windows-xp

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

references - как подключить

Вторник, 11 Декабря 2018 г. 11:58 + в цитатник

Друзья помогите с решением проблемы. Есть офис, установленный локально 16 версии. И есть офис 15 версии, который установлен на citrix ферме. Приложение для работы приходится запускать именно на цитриксе, а пишу основное - локально.
Так вот каждый раз приходится ручками подключать "C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL". Пытался делать так

Public Function CheckReferences()
 
Dim ref As Reference
Dim comp$
For Each ref In CurrentProject.Application.References
    Set ref = References.AddFromGuid("{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}")   ' OFFICE15
    Debug.Print ref.Name, ref.Guid, ref.IsBroken, ref.FullPath
    
    'Office        {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}    False         C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL
    'Office        {2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}    False         C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL
    
    comp = txtCompName
    If ref.Name = "Office" And comp Like "*CTXDCN*" And ref.IsBroken = True Then
        CurrentProject.Application.References.Remove ref    ' îòêëþ÷èì OFFICE16
        Set ref = References.AddFromFile("C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE15\MSO.DLL")   ' OFFICE15
        Exit For
    End If

Next ref
Set ref = Nothing
End Function

https://www.sql.ru/forum/1306545/references-kak-podkluchit

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

Название столбцов в перекрестном запросе

Вторник, 11 Декабря 2018 г. 11:45 + в цитатник

Здравствуйте! Создал перекрестный запрос:

PARAMETERS [Forms]![Список]![Номер] Long, [forms]![Список]![d1] DateTime, [forms]![Список]![d2] DateTime;
TRANSFORM Sum(Основной.кг.кг) AS [Sum-кг_кг]
SELECT Основной.Номер, Основной.Список.ФИО
FROM Основной
GROUP BY Основной.Номер, Основной.Список.ФИО
PIVOT кг.Дата;
работает нормально, изменил последнюю строчку:

PIVOT кг.Дата In ('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31');
так не работает. Подскажите пожалуйста решение.

https://www.sql.ru/forum/1306542/nazvanie-stolbcov-v-perekrestnom-zaprose

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

Дата в полях

Понедельник, 10 Декабря 2018 г. 17:27 + в цитатник

Уважаемые знатоки ,помогите пожалуйста как сделать.

Имеется поле ДатаСегодня и еще 3 поля Дата2,Дата3,Дата4
необходимо сделать при нажатии кнопки Закончить -если в одном из полей Дата2,Дата3,Дата4 нет даты сегодня -вылетало сообщение введите сегодняшнюю дату.В полях разные даты посещения

Спасибо !!!!

https://www.sql.ru/forum/1306504/data-v-polyah

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

как организовать двойной цикл по таблице в VBA?

Понедельник, 10 Декабря 2018 г. 12:04 + в цитатник

Есть база, в которой есть таблица «Table». В ней есть неизменяемые текстовые поля и диапазон чисел (From, To), в поле Count уже посчитано кол-во (To-From+1). Нужно написать процедуру в VBA, которая разобьет каждую запись таблицы на кол-во равное Count, записав в поле Number все значения диапазона.
Понимаю, что тут 2 цикла: по всем записям таблицы и отдельно по записи от 1 до Count, но синтаксис VBA Access вообще не знаю, похожего примера на форумах не нашел.
Во вложении пример исходной и результирующей таблицы.

Буду очень благодарен за совет новичку

https://www.sql.ru/forum/1306482/kak-organizovat-dvoynoy-cikl-po-tablice-v-vba

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

как получить текст запроса из Recordset формы?

Понедельник, 10 Декабря 2018 г. 11:55 + в цитатник

Собственно вопрос в Теме.
Форма на основе запроса (запрос не хранимый).
me.recordset.name возвращает 255 символов, но текст запроса реально больше.

https://www.sql.ru/forum/1306481/kak-poluchit-tekst-zaprosa-iz-recordset-formy

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

Как кодом VBA отобразить в Wordданные из xls-файла ?

Понедельник, 10 Декабря 2018 г. 11:38 + в цитатник

Добрый день, подскажите как кодом VBA отобразить данные из xls-файла, в Word ?
(word - шаблон и xls-источник прилагаются)

Источником может быть и просто TXT файл с разделителями (;)
Поискал на сайте, есть некоторые фрагменты, но к сожалению мне их недостаточно для решения задачи.

Имеется xls-файл, таблица1 (файл прилагается)

ФАМИЛИЯ ИМЯ ОТЧЕСТВО ДОЛЖНОСТЬ
1 Иванов Иван Иванович Менеджер
2 Петров Петр Петрович Водитель
3 Сидоров Иван Сергеевич Экспедитор

Необходимо данные из этого файла VBA кодом передать в Word (прилагается шаблон).

В Word шаблоне тремя способами представлена одна и та же информация:
1. Созданы закладки (Фамилия1, Имя1, Отчество1, Должность1 - пример для первой строки) - в которых необходимо отобразить отобразить данные их xls-файла.
2. Создана таблица1, с такими же по сути ячейками, в которых необходимо отобразить данные их xls-файла.
3. Созданы ПОЛЯ, с одноименными названиями (Фамилия1, Имя1, Отчетсво1, Должность1 - пример для первой строки), в которые необходимо отобразить отобразить данные их xls-файла.

Насколько понимаю есть возможность в Ворде отобразить данные в Закладки, в Таблицы, в ПОЛЯ...,
т.е по сути способами отраженными пунктами п1, п2, п3.

Но как это сделать кодом VBA ?
Кто имеет такой опыт, помогите с идеями и VBA кодом...
Спасибо!

https://www.sql.ru/forum/1306477/kak-kodom-vba-otobrazit-v-worddannye-iz-xls-fayla

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

диаграмма

Понедельник, 10 Декабря 2018 г. 10:30 + в цитатник

при попытке вставить мастером,на автономном компьютере, диаграмму в форму получаю такое сообщение. Что бы это значило?

https://www.sql.ru/forum/1306475/diagramma

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

Помогите советом, ни как не могу справиться с полем список

Воскресенье, 09 Декабря 2018 г. 23:06 + в цитатник

Добрый день форумчане,
Помогите решить для меня сложную задачку. Прикрепляю фото, будет понятней. В форме проекты, добавил форму контакты и форму Истории(в виде таблицы). Форма проекты подчиненная у формы Клиенты, каждый клиент(то есть фирма) имеет свой проект, и своих контактных лиц. Вводя истории нужно указать например кому позвонить (например гл.инженер).
Проблема, не получается сделать список контактов (чтобы при заполнении выбирать) именно по этому клиенту. Хотелось бы, заполняя Историю, нажать на список контакт и выпадает список контактов этого клиента, выбираю, если при следующей записи например разговаривал с другим контактом (например Директором), мог бы выбрать из выпадающего списка его.
Если кто может помочь, заранее спасибо.

https://www.sql.ru/forum/1306466/pomogite-sovetom-ni-kak-ne-mogu-spravitsya-s-polem-spisok

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

Вернуть последнее значение записи с условием

Пятница, 07 Декабря 2018 г. 18:27 + в цитатник

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

+

Private Sub TariffValue()
  Dim s As String
  Dim rst As DAO.Recordset
  
On Error GoTo ErrNumber
  If Me.cbxАдрес.ListIndex = -1 Then GoTo ExitHeare
  s = "SELECT * FROM ТарифыЭлектроЭнергия WHERE ТарифыЭлектроЭнергия.Адрес = " & Me.cbxАдрес & ";"
'Debug.Print s
  Set rst = CurrentDb.OpenRecordset(s, dbOpenSnapshot)
  With rst
    Me.ТарифТ1 = .Fields("ТарифТ1").Value
    Me.ТарифТ2 = .Fields("ТарифТ2").Value
    Me.ТарифТ3 = .Fields("ТарифТ3").Value
  End With
  rst.Close
ExitHeare:
  Set rst = Nothing
Exit Sub
  
ErrNumber:
  If Error <> 0 Then
    MsgBox Err.Description, , _
      "№ " & Err.Number & ". Процедура: TariffValue. Форма: " & Me.Name
    Resume ExitHeare
  End If
End Sub

___________________________________
Использую Microsoft Access 2010, 64 бит.

Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.

https://www.sql.ru/forum/1306421/vernut-poslednee-znachenie-zapisi-s-usloviem

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

Фильтр в подчиненной форме по дате из основной формы

Пятница, 07 Декабря 2018 г. 12:48 + в цитатник

Здравствуйте!
На событие DTPicker CloseUp Пишу:

MyFilter = "[Äàòà]=" & "#06.12.2018#
Me![&#207;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#234;&#227;1].Form.Filter = MyFilter
Me![&#207;&#238;&#228;&#247;&#232;&#237;&#229;&#237;&#237;&#224;&#255; &#244;&#238;&#240;&#236;&#224; &#234;&#227;1].Form.FilterOn = True

Не работает, т.е. отображается пустая подчиненная форма.

https://www.sql.ru/forum/1306398/filtr-v-podchinennoy-forme-po-date-iz-osnovnoy-formy

Страницы: 353 ... 330 329 [328] 327 326 .... 1 Календарь

LiveInternet

О проекте