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

Нравится

По-страничные итоги в отчете
Понедельник, 18 Мая 2015 г. 15:03 + в цитатник
Здравствуйте, в отчете с группировкой по учреждению необходимо выводить итоги на каждой странице.
Option Compare Database
Option Explicit
Dim S As Currency, S1 As Currency
Private Sub Report_Open(Cancel As Integer)
S = 0
S1 = 0
End Sub

Private Sub ВерхнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
S = 0
S1 = 0
End Sub

Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Me![Итог] = S1
End Sub

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
S = S + Me![Сумма]
S1 = S
If Me.ПримечаниеУчреждение. НЕ ОТОБРАЖАЕТСЯ НА СТРАНИЦЕ Then
Me.НижнийКолонтитул.Visible = False
Else
Me.НижнийКолонтитул.Visible = True
End If
End Sub

Просмотрела материал по Товарной накладной-12 на этом форуме, но в моем случае не известно сколько будет листов. Как реализовать: Если на текущем листе не отображается ПримечаниеУчреждения, то отобразить НижнийКолонтитур?

http://www.sql.ru/forum/1157176/po-stranichnye-itogi-v-otchete
Нравится

Из одной таблицы в другую
Понедельник, 18 Мая 2015 г. 14:41 + в цитатник
У меня бд кадрового учета. Возникла такая проблема, при увольнение сотрудники удаляются из базы. А нужно, чтобы они сохранялись, но становились неактивными или заблокированными. Подскажите как лучше сделать

http://www.sql.ru/forum/1157168/iz-odnoy-tablicy-v-druguu
Нравится

Проблема с запросом sql
Понедельник, 18 Мая 2015 г. 14:31 + в цитатник
Всем привет. У меня тут вышел казус. Суть такова:нужно написать sql запрос что бы он выводил недостающие навыки у соискателей для должности. вот схема БД ]
написал противоположный запрос этому,думал что там кое что поменять и будет работать как надо но поменять не знаю что
SELECT Навыки.Название, Вакансии.Название, Соискатели.Фио
FROM Соискатели, Трудоустройство, Вакансии, ТребуемыеНавыки, навыки
WHERE Соискатели.Код=Трудоустройство.Соискатель and Трудоустройство.Вакансия=Вакансии.Код and Вакансии.Код=ТребуемыеНавыки.Вакансия and ТребуемыеНавыки.Навык=Навыки.Код;

помогите пожалуйста,а то я целый день уже голову ломаю,если что то я эти запросы делаю для ADO так что можно хоть похожий пример скинуть,гуглил,думал подзапросом сделать-невышло

http://www.sql.ru/forum/1157163/problema-s-zaprosom-sql
Нравится

Проблемы с кодировкой при чтении из txt
Понедельник, 18 Мая 2015 г. 14:20 + в цитатник
Использую такой код
  Dim txte As String
   k1 = FreeFile
   Open "C:\SedMO\TEMP\InPut\EMLadr.txt" For Input Access Read As #k1
    Line Input #k1, txte
    MsgBox txte
    Close #k1

в итоге получаю кракозябру.
В кокой кодировке исходный txt я не знаю.

http://www.sql.ru/forum/1157161/problemy-s-kodirovkoy-pri-chtenii-iz-txt
Нравится

помогите бывалые кодеры и просто неравнодушные)
Понедельник, 18 Мая 2015 г. 11:07 + в цитатник
Вобщем ситуация такая иммеем БД написанную не мной. следовательно разбираться в коде очень муторно. Нужно на время сделать так чтобы в одно поле вместо автозаполнения можно было забивать руками а потом опять вернуть всё на место. вопрос как?)

http://www.sql.ru/forum/1157111/pomogite-byvalye-kodery-i-prosto-neravnodushnye
Нравится

Прописать риббон в свойства базы
Понедельник, 18 Мая 2015 г. 10:01 + в цитатник
Здравствуйте.
Подскажите, как программно прописать Риббон в свойствах базы (Файл-Свойства-Текущая база - Риббон)?
Сам риббон лежит в таблице USysRibbons и его можно выбрать руками в свойствах базы. Но надо устанавливать программно.

http://www.sql.ru/forum/1157088/propisat-ribbon-v-svoystva-bazy
Нравится

Алгоритм для расчета пени в VBA
Понедельник, 18 Мая 2015 г. 09:41 + в цитатник
Есть ранжированный по датам запрос, где находятся выставленные платежи (1) и проплаты (2).
Дата выставленного платежа и есть день с которого начисляем пеню.

Картинка с другого сайта.

Ч-з код ВБА хочу посчитать пеню на текущий день и долг, которые необходимо выгрузить в таблицу

Картинка с другого сайта.

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

В целом понимаю, что на каждую дату в таблице необходимо считать баланс и при долге вычислять пеню.

Нижеприведенный код не претендует на правильность, просто выбранное направление движения в расчете.
+
Oplatit = 0
Oplata = 0

Set rcdPlateji = CurrentDb.OpenRecordset("Пеня2")
rcdPlateji.MoveFirst 'на первую запись
Do While Not rcdPlateji.EOF 'просмотр всего запроса Пеня2

    KodStudend = rcdPlateji![КодСтудента]
    PenjaSumm = 0
    Do While rcdPlateji![КодСтудента] = KodStudend ' просмотр всех платежек для студента

                    If rcdPlateji![ТипПлатежки] = 1 Then
                    Oplatit = Oplatit + rcdPlateji![СуммаПлатежа]
                    OplataPo = rcdPlateji![ДатаПлатежа]
                    Else
                    Oplata = Oplata + rcdPlateji![СуммаПлатежа]
                    PlategkiOt = rcdPlateji![ДатаПлатежа]
                    End If
                    
                    If Dolg > 0 And Oplata > 0 Then
                    KOlDni = DateDiff("d", OplataPo, PlategkiOt)
                    Penja = Dolg * KOlDni * 0.001
                    PenjaSumm = Penja + PenjaSumm
                    Dolg = Oplatit - Oplata
                    End If

    rcdPlateji.MoveNext
    Loop

Loop



ПС: сам по образованию не программист, ищу похожие образцы кода и пытаюсь адаптировать к своим нуждам. В данном случае застрял((.

http://www.sql.ru/forum/1157084/algoritm-dlya-rascheta-peni-v-vba
Нравится

Показываются не все поля в таблице.
Воскресенье, 17 Мая 2015 г. 16:32 + в цитатник
В прилагаемой базе всего одна таблица. В конструкторе вижу 9 полей. При просмотре таблицы - только 2. Проверял на разных машинах - результат такой же. В чем может быть дело?

http://www.sql.ru/forum/1156994/pokazyvautsya-ne-vse-polya-v-tablice
Нравится

Запрос все поля кроме одного
Воскресенье, 17 Мая 2015 г. 11:34 + в цитатник
У меня есть запрос
SELECT Заказ.Код, Заказ.[Дата заказа], Заказ.[Дата сдачи заказа], Заказ.Заказчик, Заказ.Техзадание, Заказ.[Сумма заказа], Заказ.[Комментарий к сумме заказа], Заказ.[Вид платежа], Заказ.Вложение, Заказ.Предоплата, Заказ.Расходы, Заказ.Статус, Заказ.КоммКсуммеЗаказа
FROM Заказ
WHERE (((Заказ.Статус) Like [Forms]![поСтатусу]![Статус]));


в нем отбираются записи по заданному полю Like. Как сделать наоборот,
чтобы запрос выводил все записи, кроме заданного, т.е. с точностью до наоборот:
исключал заданное поле из выборки, а остальные выводил.

http://www.sql.ru/forum/1156970/zapros-vse-polya-krome-odnogo
Нравится

Выборка записей, подходящих под период
Воскресенье, 17 Мая 2015 г. 01:22 + в цитатник
Здравствуйте. Помогите, пожалуйста, написать запрос.
В Access имеется таблица "Архив", в которую заносятся Практиканты, начало практики и окончание. Нужно составить запрос для выборки тех записей, период которых содержит введённое пользователем число.
Например, пользователь ввёл число 05.05.2015, и выводятся все записи, в которых практиканты были заняты в этот день.
Public Дата As Date
Dim Command3 As New OleDbCommand("Select * From Архив WHERE " & Дата & " between [Начало_практики] and [Окончание_практики]", Connector)

http://www.sql.ru/forum/1156953/vyborka-zapisey-podhodyashhih-pod-period
Нравится

Вывод большего числа при запуске запроса
Суббота, 16 Мая 2015 г. 19:05 + в цитатник
Здравствуйте. В запросе нужно сделать условие, чтобы выводились числа, которые больше X числа, это X число нужно вводить на клавиатуре при запуске запроса.
К примеру, у меня есть числа 3,4,15,64,72, если при запуске запроса я введу 6, то мне должно вывести числа 15,64,72.
Как это сделать? Прошу, помогите.

http://www.sql.ru/forum/1156913/vyvod-bolshego-chisla-pri-zapuske-zaprosa
Нравится

Условие отбора по третьей букве
Суббота, 16 Мая 2015 г. 18:10 + в цитатник
Как в запросе задать отбор по третьей букве? Чтобы выводило, к примеру, книги в которых третья буква "А".
Заранее спасибо.

http://www.sql.ru/forum/1156906/uslovie-otbora-po-tretey-bukve
Нравится

Поиск файла в папке - не удача
Суббота, 16 Мая 2015 г. 17:12 + в цитатник
Кто может прояснить ситуацию.
кладу в одну папку файл и программу проверки его наличия.
Результат работы проверки - Файла нет!
Хотя он есть.

Option Compare Database
Option Explicit
Dim FSO As FileSystemObject


Private Sub Кнопка0_Click()
Set FSO = CreateObject("Scripting.FileSystemObject")
If (FSO.FileExists(CurrentProject.Path & "RKC16051.DBF")) Then
MsgBox "Файл есть!"
Else
MsgBox "Файла нет!"
End If
End Sub

http://www.sql.ru/forum/1156896/poisk-fayla-v-papke-ne-udacha
Нравится

отчеты с данными из многих запросов
Суббота, 16 Мая 2015 г. 11:59 + в цитатник
Здравствуйте, подскажите, пожалуйста: можно из запроса вставлять в отчет данные, если этот запрос не является источником записей?
Я попыталась вставить поле =[имя запроса]![имя поля], но пишет #Имя?
Мне нужно в одном отчете вставить кучу данных их кучи запросов, как это сделать? Чаще по одному полю из запроса, но запросов много.

Можно вопросы глупые, но только сегодня столкнулась с отчетами в аксесе.
Если это важно, то у меня аксес 2003.

http://www.sql.ru/forum/1156859/otchety-s-dannymi-iz-mnogih-zaprosov
Нравится

Выбор и обращение к нескольким строкам таблицы
Суббота, 16 Мая 2015 г. 10:16 + в цитатник
Создана форма с режимом "разделенная форма".
Как сделать так, чтобы можно было в таблице формы выбирать строки через "ctrl"?
Выбрано несколько строк через Shift. Как теперь обратиться к выбранным строкам?
Картинка с другого сайта. https://yadi.sk/i/W1Dj4tAwgfQiN

http://www.sql.ru/forum/1156852/vybor-i-obrashhenie-k-neskolkim-strokam-tablicy
Нравится

хранение програмного модуля в отдельном текстовом файле, либо в формате vbs
Пятница, 15 Мая 2015 г. 18:52 + в цитатник
Уважаемые коллеги, добрый день!

Подскажите пожалуйста, возник один в бо'льшей степени теоретический вопрос.
Есть ли возможность исполнять программный код модуля из стороннего файла к примеру в формате txt либо в более приближенном к vba в формате .vbs?
Это нужно для того, чтобы постоянно не рассылать клиентскую часть аксесса при малейшем изменении кода, а просто заходить в файлик и дописывать/изменять универсальную функцию. Идея не нова думаю и не первому мне в голову приходила. Подскажите, есть ли возможность инициализировать и исполнить код из нашей горячо почитаемой программы аксесс? Если да, то в какую сторону копать?)

http://www.sql.ru/forum/1156787/hranenie-programnogo-modulya-v-otdelnom-tekstovom-fayle-libo-v-formate-vbs
Нравится

Добавление записей в связанные запросы
Пятница, 15 Мая 2015 г. 18:10 + в цитатник
Добрый день

есть проблема

У меня вот такой запрос
SELECT     dbo.tbl_Passport_KO.K_ID, dbo.tbl_Passport_KO.Collection_ID, dbo.tbl_Passport_KO.Atribute_ID, 
                      dbo.tbl_Passport_KO.Min, dbo.tbl_Passport_KO.Max, 
                      dbo.tbl_Passport_KO.Min_Speed, dbo.tbl_Kontr.K_Name, dbo.tbl_Brands.Brand_Name
FROM         dbo.tbl_Passport_KO INNER JOIN
                      dbo.tbl_Kontr ON dbo.tbl_Passport_KO.K_ID = dbo.tbl_Kontr.K_ID INNER JOIN
                      dbo.tbl_GoodsCollection ON dbo.tbl_Passport_KO.Collection_ID = dbo.tbl_GoodsCollection.Collection_id INNER JOIN
                      dbo.tbl_Brands ON dbo.tbl_GoodsCollection.Brand_id = dbo.tbl_Brands.Brand_ID

Раньше у меня был Access 2003 + SQL 2008
Сейчас Access 2010 + SQL 2008

Раньше я выполнял этот запрос в Access 2003 и мог спокойно добавить новые позиции, и обновлять.
А в Access 2010 не могу ничего добавить, пишет "Невозможно присоединение элемента к полю счетчика K_ID"

Можете подсказать в чем проблема.
Андрей

http://www.sql.ru/forum/1156782/dobavlenie-zapisey-v-svyazannye-zaprosy
Нравится

как построить запрос
Пятница, 15 Мая 2015 г. 16:05 + в цитатник
Доброе время суток.
в базе есть две таблицы, одинаковых по структуре

tbl1
ID FIO
1 Петров
2 Иванов
3 Сидоров
4 Макаров

tbl 2
ID FIO
1 Сидоров
2 Ковалев
3 Макаров
4 Пупкин
Подскажите как построить запрос чтобы в результате получилось:
Rezult
Петров
Сидоров
Иванов
Макаров
Ковалев
Пупкин

http://www.sql.ru/forum/1156751/kak-postroit-zapros
Нравится

Помогите! из xml в таблицу
Пятница, 15 Мая 2015 г. 14:42 + в цитатник
Добрый день.
Ситуация такая.
1. Есть xml-файлы с именем типа: IPS1C-MD-2015032313323764663030.xml и IPS1C-MR-2015032313323764663030.xml
2.Есть на SQL Server таблицы md и mr
В первый раз эти таблицы получили открыв xml сначала в ексель, потом импортировали их в sql

Задача состоит в том, чтобы пользователь при получении файлов xml загружал их в md и mr
сейчас мы делаем следующее:
1. Подцепились к SQL таблицам через Access
2. Сохраняем xml в xls
2. Импортируем xls в таблицы access.
3. Добавляем записи из таблиц access в таблицs sql md и mr

Помогите сделать импорт из xml таблицы сразу в access минуя excel.
Вариант : "ImportXML MyFile, acStructureAndData" импортирует 2 таблицы

http://www.sql.ru/forum/1156726/pomogite-iz-xml-v-tablicu
Нравится

Сложение строк в подчиненном запросе
Пятница, 15 Мая 2015 г. 13:14 + в цитатник
2 таблицы (Люди и номера телефонов к примеру), отношение "многие-к-одному"
Требуется получить строку для каждой из записей таблицы Люди в которой через запятую будут перечислены все связанные с ним записи из другой таблицы

Например:
Люди
1 Иванов
2 Петров

Телефоны
1 11111111 1
2 22222222 1
3 33333333 1
4 44444444 2
5 55555555 2

Результат:
1 Иванов "11111111,2222222222,333333333"
2 Петров "4444444444,555555555"

Как построить такой запрос? Заранее благодарен.

http://www.sql.ru/forum/1156708/slozhenie-strok-v-podchinennom-zaprose

Поиск сообщений в rss_sql_ru_access_programming
Страницы: 353 ... 139 138 [137] 136 135 ..
.. 1 Календарь

О проекте