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

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)

создание multi page tiff

Четверг, 02 Марта 2017 г. 22:09 + в цитатник

Добрый вечер.

ситуация следующая: есть папка в которую с определенной периодичностью сыпятся одностраничные tiff файлы. можно ли средствами access создавать из них многостраничные tiff файлы?

Спасибо

http://www.sql.ru/forum/1251941/sozdanie-multi-page-tiff

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

API дефрагментации дисков

Четверг, 02 Марта 2017 г. 18:53 + в цитатник

Здраствуйте!
Может, кто сталкивался с программным использованием такого функционала...
В api-viewere по категориям я не нашел, набрёл на какой-то сайт Микрософта с большим списком функций, там тоже не обнаружил (потом и сайт потерялся...).

Крайне желательно - с адаптированным мануалом под VBA. Иначе там такие танцы с бубнами, что мама не горюй...
Спасибо

http://www.sql.ru/forum/1251930/api-defragmentacii-diskov

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

Проверить сумму полей на ленточной форме до апдейта

Среда, 01 Марта 2017 г. 15:21 + в цитатник

Здравствуйте,
я в аксессе не очень от слова не очень, прошу не пинать, если путаюсь в терминологии.
В общем существует небольшое приложение - т.е. ленточная форма для обработки/добавления для ручного ввода разных тех.данных
Код товара - название -...- квота.
Квоту пользователь вбивает вручную, задача среди прочего состоит в том, чтобы проверить сумму квот для позиций. Если юзер введет квоту, которая доведет сумму квот по этой позиции до > 100, надо выдать сообщение об ошибке и откатить изменения.

Я наивно думал создать на форме скрытое поле с содержанием Сумма("квота"), и создавать ошибку, когда сумма превысит 100, но оно конечно так не работает.
можно это как-то по дзену решить? буду благодарен за ссылки

http://www.sql.ru/forum/1251736/proverit-summu-poley-na-lentochnoy-forme-do-apdeyta

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

Запись пути в ячейку

Среда, 01 Марта 2017 г. 09:12 + в цитатник

Привет, форумчане
Задача: при нажатии кнопки выбрать путь (в данном случае к расположению шаблонов - ) и записать его в соотв ячейку таблицы
Реализация:

    
    Dim Filename As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку"
        .InitialFileName = DLookup("dir", "pdir", "[dir_name] = 'Шаблоны'")
        result = .Show
        If (result <> 0) Then
            Filename = Trim(.SelectedItems.Item(1))
            Me.TempDir = Filename
            CurrentDb.Execute "update PDir set dir = " & Filename & " where PDir.Dir_Name = 'Шаблоны'"
        End If
    End With

При выполнении вылетает ошибка 3075: Ошибка синтакисиса (пропущен оператор) ....

Если прописать не путь, а любое текстовое значение:

    
    Dim Filename As String
    Dim result As Integer
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Выберите папку"
        .InitialFileName = DLookup("dir", "pdir", "[dir_name] = 'Шаблоны'")
        result = .Show
        If (result <> 0) Then
            Filename = Trim(.SelectedItems.Item(1))
            Me.TempDir = Filename
            CurrentDb.Execute "update PDir set dir = 'Какое-либо Значение' where PDir.Dir_Name = 'Шаблоны'"
        End If
    End With

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

http://www.sql.ru/forum/1251683/zapis-puti-v-yacheyku

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

Не могу вывести картинку по ссылке в текстовом поле

Вторник, 28 Февраля 2017 г. 21:35 + в цитатник

в access 97 только один раз работает следующий код в форме в текущей записи:

If Nz(Me!Фотография, "0") = "0" Then
Me!Фото.Picture = ""
Else
Me!Фото.Picture = Me!Фотография
End If

при повторном открытии БД выдаёт ошибку: "ошибка вывода 2220".
помогите пожалуйста разобраться!

http://www.sql.ru/forum/1251657/ne-mogu-vyvesti-kartinku-po-ssylke-v-tekstovom-pole

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

Помогите с поиском повторяющихся значений в таблице ACCESS

Вторник, 28 Февраля 2017 г. 13:30 + в цитатник

Всем привет : помогите плиз а то взорвется мозг :)
Есть таблица с 2умя полями :
(Телефон ; Дата)
Суть в том что надо посчитать количество одинаковых телефонов , с условием того чтобы они входили в промежуток с "дата - 5 дней" до даты указанной в поле .
Ответ вывести В формате:
(Телефон ; Дата ; Количество )

Грубо говоря экселевская функция счетеслимн. :(
Уже схожу с ума помогите плиз )))

http://www.sql.ru/forum/1251583/pomogite-s-poiskom-povtoryaushhihsya-znacheniy-v-tablice-access

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

Что случилось с accessoft.ru?

Вторник, 28 Февраля 2017 г. 13:05 + в цитатник

Был такой полезный сайт accessoft.ru - и вдруг не стало... редиректит на какой-то левый билетовпариватющий сайт.
Никто не в курсе, что там случилось, вроде тамошний админ Алексей всегда сайт поддерживал?

http://www.sql.ru/forum/1251577/chto-sluchilos-s-accessoft-ru

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

Интерактивный объект (элемент). Карта, адреса, выделение.

Вторник, 28 Февраля 2017 г. 01:25 + в цитатник

Здравствуйте!

С чего нужно начать, что по изучать, может готовые решения есть, что бы сделать следующее?

Есть таблица1 адресов с координатами по WGS84, есть Карта города JPG. Хочу сделать элемент для формы, в котором изображена карта (с возможностью масштабировать колесом мыши), сам снимок карты привязать к координатам. Нужна такая функция: кликая по карте задается первая точка, кликая в другое - 2ая, ещё n...-ое кол-во раз, что бы образовалась область, т.е. точками указывается периметр (сам периметр лучше тоже наглядно отображать тамже). После чего нажав на кнопку, все адреса которые по координатам попадают в эту область (имеющееся в таблице1), записались в таблицу2.

http://www.sql.ru/forum/1251506/interaktivnyy-obekt-element-karta-adresa-vydelenie

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

помогите с запросами. HELP

Понедельник, 27 Февраля 2017 г. 18:36 + в цитатник

Ничего не понимаю в запросах, очень нужна помощь.
1) Показать всех студентов, кто учится с Петей в группе.
2) Поставить всем зарплату как у Кати.

http://www.sql.ru/forum/1251470/pomogite-s-zaprosami-help

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

Запрос на удаление. Не возможно удаление записей из указанных таблиц.

Понедельник, 27 Февраля 2017 г. 16:36 + в цитатник

Здравствуйте!

Есть 2 таблицы:
1. CRMSectorF с полями: IDSector (числовое, обязательное, совпадения допускаются); ID2GisAdr (числовое, обязательное, совпадения допускаются).
2. TA с полями: ID Адреса (числовое, не обязательное); Тригер (числовое, не обязательное).

Есть запрос на удаление записей:
DELETE CRMSectorF.*, CRMSectorF.IDSector, TA.Тригер
FROM CRMSectorF INNER JOIN TA ON CRMSectorF.ID2GisAdr = TA.[ID Адреса]
WHERE (((CRMSectorF.IDSector)=[TempVars]![S1]) AND ((TA.Тригер)=False));

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

http://www.sql.ru/forum/1251444/zapros-na-udalenie-ne-vozmozhno-udalenie-zapisey-iz-ukazannyh-tablic

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

Отлов ошибки соединения ОDBC на VBA

Понедельник, 27 Февраля 2017 г. 12:01 + в цитатник

Здравствуйте. Появилась необходимость в БД Access 2013+SQL Server реализовать запись с таблицу ошибок соединения с сервером через DSN. Таблицу я сделал, запись локальных ошибок приложения в эту таблицу тоже - с указанием пользователя, имени хоста, даты, времени. А как отловить и записать ошибку DSN - если оборвалось соединение, истекло время ожидания и т.п? Таблица для записи ошибок локальная внутри приложения БД. Помогите пожалуйста

http://www.sql.ru/forum/1251395/otlov-oshibki-soedineniya-odbc-na-vba

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

ошибка #Name? в отчете

Воскресенье, 26 Февраля 2017 г. 21:17 + в цитатник

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

=Nz([Forms]![Period_Form].[PeriodBeg],DMin("dataP","Memo"))

с отчетом все окей, но при печати пишет
#Name?
с чего бы это.

не хотел Mishele причинить еще раз неудобства, она замучалась сегодня со мной :)

http://www.sql.ru/forum/1251353/oshibka-name-v-otchete

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

как вывести в поле результаты суммирования таблицы

Суббота, 25 Февраля 2017 г. 16:12 + в цитатник

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

http://www.sql.ru/forum/1251219/kak-vyvesti-v-pole-rezultaty-summirovaniya-tablicy

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

Поле со списком и поля в таблице

Суббота, 25 Февраля 2017 г. 15:11 + в цитатник

Здравствуйте люди добрые, помогите с полями.

В общем мне нужно что бы поле со списком которое содержит информацию из таблицы(ID, название), при вводе названия которое не существет в таблице и соответственно в поле добавлялось в эту таблицу со следующим после последнего id.

Модератор: Тема перенесена из форума "Visual Basic".

http://www.sql.ru/forum/1251213/pole-so-spiskom-i-polya-v-tablice

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

Вызов отчета с помощью хранимой процедуры

Четверг, 23 Февраля 2017 г. 16:44 + в цитатник

На форме есть кнопка, с помощью которой хочу вызвать отчет "check_report" со своими параметрами.
Но как их туда внедрить?
Если до открытия присвоить, - понятно, что нельзя таким образом.
а если после открытия отчета, то уже говорит, что поздно.
Как мне поменять?

Private Sub momartva_print_Click()
Set dbsReport = CurrentDb
Set qdf = dbsReport.QueryDefs("sproc_report_check")
    Call OpenProcSql_In ................. здесь вызывается функция связи с ODBC
           qdf.SQL = "EXEC proc_report_check @date_1='" & Format(Me.date_1, "yyyymmdd") _
              & "', @date_2='" & Format(Me.date_2, "yyyymmdd") & "'"
                qdf.ReturnsRecords = True
            DoCmd.OpenReport "check_report", acViewPreview
            Reports![check_sia_rep].RecordSource = "sproc_report_check"
    Call OpenProcSql_Out ................. здесь прерывается связъ с ODBC
End Sub

В интернете я искала литературу по связи Access и Sql, но что-то не нашла то, что мне нужно по части открытия форм с нужным списком, открытие конкретной и новой записи. Может у кого-нибудь есть нормальная ссылка, чтобы ясно было написано, что для чего и что к чему?

http://www.sql.ru/forum/1251089/vyzov-otcheta-s-pomoshhu-hranimoy-procedury

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

Здравствуйте. Помогите ботану разобраться...

Четверг, 23 Февраля 2017 г. 16:27 + в цитатник

access 2010. Есть три таблицы: Номера баллонов, подразделения, выдача баллонов. Принцип такой: производится заправка баллонов, регистрируется номер баллона, дата заправки, подразделение кому выдан. Проблема: в течении одного дня один и тот же номер баллона может быть заправлен несколько раз и выдан в любое подразделение. Как создать запрос в виде списка всех баллонов, а главное в каком подразделении они находятся (последняя заправка).Баллон может находится только в одном подразделении. в SQL я не силён. Заранее благодарен.

http://www.sql.ru/forum/1251087/zdravstvuyte-pomogite-botanu-razobratsya

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

Слетает фильтр формы при requery и при нажатии F5

Четверг, 23 Февраля 2017 г. 15:31 + в цитатник

Добрый день!

Подскажите, пожалуйста, что это может быть.

Есть форма у которой источник данных запрос.

При загрузке у неё фильтр вот такого вида "[Статус_заказа]='Открыт'"

При программном Requery и, даже, при нажатии F5 стал отключаться фильтр. При этом

Form.FilterOn = true
Me.Filter = "[Статус_заказа]='Открыт'"

Даже кнопка фильтра в верхнем меню выделена как будто фильтр включен.

Если нажать на эту кнопку и выключить фильтр, а сразу за этим нажать на кнопку и включить, то опять записи фильтруются правильно.

Появилось после добавления привязанного запроса в запрос с данными для формы и полей в форму.

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

http://www.sql.ru/forum/1251081/sletaet-filtr-formy-pri-requery-i-pri-nazhatii-f5

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

Microsoft Access 2010 на Windows 7

Среда, 22 Февраля 2017 г. 18:54 + в цитатник

Добрый вечер народ. Помогите пожалуйста восстановить базу данных access… Вчера появилось сообщение «Microsoft Access обнаружена ошибка и необходимо закрыть». Пользуюсь Microsoft Access 2010 на Windows 7.

http://www.sql.ru/forum/1251016/microsoft-access-2010-na-windows-7

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

св-ва БД, ошибка 3270

Среда, 22 Февраля 2017 г. 15:37 + в цитатник

Господа, приветствую!

Есть нерешенный вопрос.
В проекте, резко, перестало работать...даже не знаю, что точно.

С чего началось.
Решил импортировать все объекты в новую бд. Все прошло успешно.
Для информации, проделывал это несколько раз и с РАЗНЫМИ проектами...результат тот же.
И так.
После импорта, иду в редактор vba, и компилирую проект. Все ок.
Закрываю БД. Открываю бд и получаю ошибку 3270. Свойство не найдено.
Ну как бы понятно на что ругается.
На старте устанавливаются свойства БД. Спецклавиши, статусбар и т.п. НО в этом месте есть обработка ошибки, да и код, стандартнее некуда

+

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
' бьет ошибку в следующей строке
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then  ' Свойство не найдено.
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Неизвестная ошибка.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

т.е. ошибку не обрабатывает а тупо выбрасывает в редактор...

Думал порушился оффис...И даже переустановил...ситуация не меняется.
При этом! старые файлы из проектов работают нормально.
Все это наблюдается только для вновь созданных БД и импортированных в них всех объектов.
Пробовал создавать и через Акс и просто через контекстное меню. Результат один...

Поискав, видел советы, выставить DAO. ... перед свойствами переменных для них.
Не помогает.

Увидел одну особенность....
в коде теперь при написании DoCmd.Close строка автоматом меняется на DoCmd.CLOSE
И мне кажется это не спроста...
Кто встречался с такой проблемой?
Подскажите...

http://www.sql.ru/forum/1250992/sv-va-bd-oshibka-3270

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

отвязанный reordset не удается сохранить данные в поле

Среда, 22 Февраля 2017 г. 15:09 + в цитатник

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset

    sql = "SELECT Сотрудники.Код, '' AS Рест, '' AS Брак FROM Сотрудники"


    rs.Source = sql
    rs.CursorLocation = adUseClient
    rs.LockType = adLockBatchOptimistic
    rs.CursorType = adOpenStatic
    
    rs.Open sql, cn
    rs.ActiveConnection = Nothing
    Set Me.Recordset = rs

на форме при внесении значения в поля "Рест" или "Брак " вылазит ошибка:
Макрос или функция, связанные со свойством "До обновления" (BeforeUpdate) или "Условие на значение" (ValidationRule) этого поля, не позволяют приложению 'Microsoft Access' сохранить данные в этом поле.

на этих событиях ничего нет. как победить вообще не понятно. прошу помощи сообщества.

http://www.sql.ru/forum/1250989/otvyazannyy-reordset-ne-udaetsya-sohranit-dannye-v-pole

Страницы: 353 ... 247 246 [245] 244 243 .... 1 Календарь

LiveInternet

О проекте