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

еще раз обращусь за помощью по нерешенному вопросу.
Читал много, искал "везде", включал/выключал мозги, не помогло.
Нужно решение по переключению флажка по записям. Т.е. установил значение истина на одной записи, а через некоторое время устанавливаю на другой, а в предыдущей надо, чтобы галочка снялась "автоматом".

Объясню для чего это нужно. Есть отчет, в заголовке будет отображаться имя, выбранное галочкой, завтра я буду выводить отчет по другому имени и не хотелось бы, чтобы в заголовке наложились имена.

http://www.sql.ru/forum/1084673/vybor-zapisi-flazhkom

Добрый день!

Подскажите пожалуйста как запросом удалить в именах таблиц префикс. Допустим XXX_table1 привести к виду table1.
Спасибо!

http://www.sql.ru/forum/1084660/izmenenie-nazvaniya-tablic-v-bd-ms-access

Приветствую, Форумчане!

Приведенный в Факе пример достаточно хорош, но вот столкнулся с проблемой... Мой запрос содержит текстовое поле. Оно к тому же не уникально

SELECT ItemCode, SumOfQuantity FROM MYZAP
ORDER BY ItemCode

Посоветуйте, как пронумеровать с сортировкой по ItemCode

http://www.sql.ru/forum/1084649/numeraciya-strok-v-zaprose-po-tekstovomu-ne-unikalnomu-polu

Переношу базу из mdb в mssql + adp. Есть форма, в ней подчиненная ленточная форма. В mdb бала реализована подсветка текущей строки через условное форматирование с помощью функции.

Dim lngId As Integer

Public Function fnA(cid As Integer) As Long
  fnA = 0
On Error Resume Next
  If Me.Dynaset.RecordCount > 0 Then
    If Me.Dynaset.AbsolutePosition > -1 Then
        If Me.Dynaset("id").Value = cid Then fnA = 1 Else fnA = 0
    End If
  End If
End Function

Private Sub Form_Current()
    If Not Me.Recordset is Nothing Then
        lngId = Nz(Me.idTB, 0)
        Me.idTB.ControlSource = Me.idTB.ControlSource
    End If
End Sub

Private Sub Form_Open(Cancel As Integer)
  Dim cntrl As control
  
  For Each cntrl In Me.ОбластьДанных.Controls
    If cntrl.ControlType = acTextBox Then
      cntrl.FormatConditions.Delete
      cntrl.FormatConditions.Add acExpression, acEqual, "fnA([id])<>0"
      cntrl.FormatConditions(0).BackColor = 8965045
      cntrl.FormatConditions(0).Enabled = True
    End If
  Next
End Sub

В mdb эта конструкция отлично работала, а в adp при попытке показать в форме данные после фильтра - падает аксесс без объяснения причин. Если закомментировать все в Form_Current, то подсвечивается всегда только первая строка в форме и аксесс не падает.

http://www.sql.ru/forum/1084622/podsvetka-stroki-v-lentochnoy-forme-v-adp

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

Есть таблица с 3 полями и несклькими сотнями тысяч записей:

Code Value PairNum
2176003404 11111110.3 21760034042166997532
2166997532 11111110.3 21760034042166997532
2166967636 11111110.3
2166711761 11111110.3
5166329800 11111110.3
2166746199 11111110.3
1169514593 11111110.3
1169669242 11111110.3
2166855746 11111110.3
2166675558 11111110.3
2166329340 11111110.3
5163683343 11111110.3
7161911174 11111110.3
2166920704 11111110.3
1169755756 11111110.3
2176068034 11111110.3
1169946251 11111110.3
1169809489 11111110.3
5166915447 11111110.3
5166911676 11111110.3
5166923464 11111110.3
2166887730 11111110.3
2166810443 11111110.3
5166810495 11111110.3
5166839234 11111110.3
2166972517 11111110.3
2166965185 11111110.3
1157176243 11111110.31
1169524494 11111110.31
1169915034 11111110.31
2166416839 11111110.31
2166533655 11111110.31
2166886998 11111110.31
2166901246 11111110.31
2166513038 11111110.31
1169577794 11111110.31
5156279377 11111110.31
1169922863 11111110.31
2176055820 11111110.31
2166755034 11111110.31
6162760179 11111110.31

Надо последовательно найти 2 одинаковых значения Value и записать в PairNum Code(N) & Code(N+1)
Результат должен выглядеть так:

Code Value PairNum
2176003404 11111110.3 21760034042166997532
2166997532 11111110.3 21760034042166997532
2166967636 11111110.3 21669676362166711761
2166711761 11111110.3 21669676362166711761

Разумеется количество Value может быть нечетным и какие-то строки будут с PairNum=null

Предложите, пожалуйста, самый быстрый алгоритм.

http://www.sql.ru/forum/1084610/povtoryaushhiesya-zapisi

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

http://www.sql.ru/forum/1084600/autofit-kolonok-v-otkrytoy-s-pomoshhu-docmd-openview-vushke

Добрый день, уважаемые гуру.
Подскажите, пожалуйста в таком вопросе:

Есть таблица "СКЛАД" с полями "Дата выгрузки" "ИмяДляВыгрузки" "ОКЕИ" и т.д.
Поле "Дата выгрузки" - формата Дата, краткий формат даты.
Есть форма, которая должна формировать отчет в Excell из данных этой таблицы на основе шаблона.
Экспорт данных в Excell идет по нажатию кнопки:

+

Private Sub Кнопка1_Click() Dim app As Object Dim XLT As Object Dim newrow As Object Dim strDOT As String Dim MyTable As DAO.Recordset Dim i As Integer Me.Refresh 'Открываем эксель, в нем книгу на основе шаблона Set app = CreateObject("Excel.Application") app.Visible = True strDOT = CurrentProject.Path & "\" & "Шаблоны\MX-1.xltx " Set XLT = app.Workbooks.Open(strDOT) 'Создаем набор записей Set MyTable = CurrentDb.OpenRecordset("SELECT [СКЛАД].[ИмяДляВыгрузки], [СКЛАД].[Серия], [СКЛАД].[ОКЕИ], [СКЛАД].[Дата выгрузки] FROM [СКЛАД] WHERE ([СКЛАД].[Дата выгрузки]=[Forms]![СКЛАД - Отчет MX-1]![ФормаМХ-1ДатаВыгрузки]);") i = 29 Rowss = 1 'Цикл по нашему набору записей Do While Not MyTable.EOF 'смотрим, если строк больше чем мы задали в шаблоне (строк непосредственно выделенных под данные в шаблоне) If Rowss >= 19 Then 'то добавляем строку XLT.Worksheets("стр1").Rows(Rowss).Insert 'не забываем, как называется наш лист в Excel в шаблоне(в нашем случае - "стр1", если по другому, то изменяем) 'Запомним нашу строку Set newrow = XLT.Worksheets("стр1").Rows(Rowss) 'и вставим туда копию предыдущей строки 'для того если вдруг у вас там есть объединенные ячейки или какие-то нужные данные 'так как новая строка создастся без всяких объединений и значений XLT.Worksheets("стр1").Rows(Rowss - 1).Copy newrow Rowss = Rowss + 1 End If 'Начиная с 29-ой строки вставляем в соотв-ие столбцы соотв-ие значения из нашего набора записей app.Parent.Range("d" & i).SELECT app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("[ИмяДляВыгрузки]"), "")) app.Parent.Range("e" & i).SELECT app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("[Серия]"), "")) app.Parent.Range("i" & i).SELECT app.Parent.ActiveCell.FormulaR1C1 = CStr(Nz(MyTable.Fields("[ОКЕИ]"), "")) i = i + 1 MyTable.MoveNext Loop MyTable.Close End Sub

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

SELECT [СКЛАД].[ИмяДляВыгрузки], [СКЛАД].[Серия], [СКЛАД].[ОКЕИ], [СКЛАД].[Дата выгрузки] FROM [СКЛАД] WHERE ([СКЛАД].[Дата выгрузки]=[Формы]![СКЛАД - Отчет MX-1]![ФормаМХ-1ДатаВыгрузки])

Если же в условиях запроса поставить WHERE ([СКЛАД].[Дата выгрузки]=Date() то выгрузка на сегодня происходит, т.е. загвоздка как я понял именно в том что запрос не может взять дату из формы.

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

http://www.sql.ru/forum/1084579/vyborka-dannyh-iz-tablicy-po-date-vvedennoy-v-forme

Подскажите, пожалуйста.
У меня есть база на Access 2010 объёмом 400Мб. Есть задача - перенести базу на MySQL. Акцесс предполагается использовать теперь только как обработчик, а данные хранить в MySQL.

Почему поставили такую задачу? Потому что в данный момент с этой базой работают несколько компов в локальной сети и сейчас из-за объёма базы скорость выполнения некоторых запросов занимает где-то 5 секунд, а где-то все 30 сек. Хотя тот же самый запрос в mysql (по опыту) занял бы не больше секунды.

В общем-то данные из акцесса я перенёс в mysql.
Access через ODBC соединил с mysql. Вместо ранее связки access-access получилась связка access-obdc-mysql. Это всё находится на одном компьютере.

В чём казус:
Делаю из акцесса поиск по primary key
SELECT * FROM users WHERE user_id=519967

Время выполнения:
то, что было:
access-access 5c
то, что я сделал, переведя на mysql:
access-odbc-mysql 125c

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

Однако если я сделаю запрос непосредственно в самом mysql, то запрос выполняется мгновенно (за 0.0009с), что по опыту и в принципе логично, т.к. поиск-то идёт по первичному ключу.

Когда акцесс ищет внутри своей акцессовской базы, он почему-то занимается поиском методом перебора от начала таблицы к концу, хотя в свойствах таблицы поле user_id указано как ключевое (в акцессе это пишется так: Индексированное поле: Да (Совпадения не допускаются))

Как быть? Можно ли чтобы связка access-odbc-mysql работала мгновенно?
Или это в принципе невозможно и нужно полностью отказываться от акцесса?

http://www.sql.ru/forum/1084490/skorost-zaprosa-access-odbc-mysql

Доброго времени суток!

Задача
Нужно из Access экспортировать отчет в Excel, содержащий несколько полей из одной (главной) таблицы и несколько из другой таблицы со связью многие ко многим (конкретно в моем случае, у одной организации может быть несколько сфер деятельности). Нужно это корректно отобразить в excel в виде списка, то есть поле - значение вот так:

Adress _119991, Москва, Ленинские горы, дом 1
Industry _Информационные и коммуникационные технологии
________ Медицина, фармацевтика и биотехнологи
________ Энергоэффективность и энергосбережение

Спасибо!

http://www.sql.ru/forum/1084484/eksport-otcheta-iz-access-v-excel

Что можно сделать, чтобы избежать такой вид в отчете. Почему-то при выводе в pdf выводятся показывает неверно некоторые символы.
На рисунке слева показан вид печати в pdf (с ошибками), а справа, вид печати прямо в отчете (без ошибок).
Может быть шрифт влияет, не знаю, но почему-то именно в тех полях портит, где нельзя наугад гадать, а что же там написано.

http://www.sql.ru/forum/1084475/pechat-v-pdf-pechataet-ne-to-chto-nuzhno-v-nekotoryh-mestah

Добрый день!

У меня вот такой вопрос: Можно ли в Access 2007 сделать выборку по нескольким параметрам из одной таблицы?
и если можно, то как? спасибо

http://www.sql.ru/forum/1084465/vybor-dannyh-po-neskolkim-usloviyam

Друзья, помогите, никак не могу справиться с ошибкой. Нужно что бы на форме "Расписание Главная" подсчитывалось число уроков у определенного класса, на примере биологии покажите как это делать. Например у пятого класса 5 уроков биологии в неделю, нужно что бы число 5 отображалось в поле Биология. Спасибо.

http://www.sql.ru/forum/1084415/podschet-chisla-predmetov-v-raspisanii-urokov

Условие:
На склад привозят товар из разных организаций и увозят в разные организации. Движение товаров сопровождается накладной и доверенностью. Накладную выписывает сторона отдающая товар, доверенность принимающая товар. Одна накладная и доверенность может сопровождать несколько товаров. В накладной указывается:
номер, дата, организация поставщик, организация получатель, а
также следующая информация о каждом товаре:
- наименование товара,
- кол-во,
- цена,
- стоимость.
В доверенности указывается: номер, дата, организация поставщик, организация получатель, номер платежного поручения, Ф.И.О. принимающего лица, номер накладной.
Необходимо разработать программу учета движения товаров. Для этого требуется:
Разработать программу ввода и коррекции информации.
Разработать программу для вывода по запросам следующей информации:
- сколько товара и на какую сумму прибыло из определенной организации за определенный промежуток времени.
- сколько товара и на какую сумму отправлено в определенную организацию за определенный промежуток времени и кто ее получил.
- сколько товара и на какую сумму находилось на складе в определенный день.


Мне нужно чтобы с помощью запросов выводилось сколько товара и на какую сумму прибыло из определенной организации за определенный промежуток времени. Я вывожу в конструкторе запроса наименование из таблицы справочник товаров, количество из таблицы получаемые товары, вычисляемое поле стоимость=цена*количество(из таблицы получаемые товары), название из таблицы поставщики. Раз нужно за определенный промежуток времени, значит нужно взять дату из таблицы накладная, но она не влезает в 1 запрос, значит запрос должен быть на основе запроса. Подскажите, как это сделать.
Схема данных прилагается.

http://www.sql.ru/forum/1084315/zaprosy

Cdate не задачу не осилила :(

http://www.sql.ru/forum/1084249/tue-18-feb-2014-11-13-32-gmt-kak-preobrazovat-takuu-stroku-v-date

Есть небольшая работа: Сделать на MS Access 2003 форму с галереей изображений

Подробнее:

Есть основная таблица, клиентов, и связанная с ней таблица фотографий. Для каждого клиента может быть несколько фотографий, но в форме должна отображаться только одна, с возможностью перелистывания.

Деньги небольшие, несколько сотен рублей, но и работа небольшая.
Связь: caveeagle(собака)mail.ru (Виктор)

Вопрос: на этом форуме такой запрос допустим? Если тут не будет откликов - куда ещё постучаться, учитывая что работа копеечная, и связываться с большими биржами нет резона?

Запостить здесь условия поподробнее?

http://www.sql.ru/forum/1084238/frilans-na-access-vba-sdelat-formu-s-galereey-izobrazheniy

Создал макрос при отсутствии в списке. Для двух Полей Со Списком. У одного поля со списком всё работает, а следующий не хочет вводить данные в базу, пишет ошибку "Выбранный текст не соответствует ни одному из элементов списка".
Если нужна будет база для проверки, то могу залить на яндексДиск.

http://www.sql.ru/forum/1084152/oshibka-polesospiskom

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

Private Sub Кнопка25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Bt1.Caption = DLookup("[Date]", "TM", "[id] = 8")
End Sub

http://www.sql.ru/forum/1084100/sobytie-navedenii-ukazatelya-myshi-na-button

Добрый день!
У меня есть модуль в котором я присваиваю номер документу. Не получается обновить запись на форме, а когда ставлю Requery
переходит на 1 запись. Подскажите, как обновится на форме и при этом остаться на той же записи.

Private Sub номер_постановления_Click()
Dim strSQL As String, stLinkCriteria As String, fionar As String, dolnar As String
Dim db As Database
Dim rs As DAO.Recordset
If IsNull(Me.номер_постан) Or Me.номер_постан = "" Then
stLinkCriteria = " Year([дата_рассмотрения])=" & "'" & Year(Me.дата_рассмотрения) & "'"
        Me.номер_постан = CStr(Nz(DMax("[Номер]", "qryN", stLinkCriteria), 0) + 1)
        strSQL = "INSERT INTO постановление ([номер_постан],[номер_протокола],[основание],[период],[год],[дата_протокола],[ап]) VALUES " & _
"('" & Me.номер_постан.Value & "', '" & _
  Me.номер_протокола.Value & "', '" & _
  "протокол" & "', '" & _
  Me.период.Value & "', '" & _
  Me.год.Value & "', '" & _
  Me.дата_составления.Value & "', '" & _
    Me.ап.Value & "');"
  CurrentDb.Execute strSQL
    End If
 Requery
End sub

http://www.sql.ru/forum/1084076/obnovlenie-zapisi

Доброго времени суток!

прошу помочь в решении следующего вопроса.
Имеется ленточная форма, в которой 4 поля и checkbox. Мне необходимо сделать чтобы 2 поля записи по умолчанию были заблокированы и разблокировались только при наличии галочки в checkbox.

Функцию реализовывал через оператор IF. Блокируются нужные поля, но во всей форме, а мне необходимо чтобы эта функция работала для записей по отдельности (т.е наверное как то прописать событие нужно для текущей записи... не могу разобраться). Может кто сможет помочь? За ранее благодарен!

http://www.sql.ru/forum/1084051/vydelenie-poley-zapisi-po-checkbox-v-lentochnoy-forme

Добрый день!

Сначала был скомпилированный файл размером ~8 Mb – все было хорошо.
После присоединения к нему базы данных за год (81Mb) на некоторых компьютерах антивирус запрещает запуск. Проверил Касперским и Semantic End Point – вирусов нет.

Подскажите, что можно сделать?

Спасибо!



Скачать с Google диска (89Mb)

Версия без базы - скачать

http://www.sql.ru/forum/1084044/ne-slishkom-li-bolshoy-fayl