Добрый день!
Прошу в помощи решения небольшой задачки. А именно:
Есть таблица(personal) с записями. На её основе сделана форма (personal). Также имеется форма Form1 с списком (источник: таблица). Требуется: открыть форму (personal) с конкретной записью кликнув требуемую строку списка в Form1.
По подсказкам делаю макрос [personal]![code]=[Формы]![personal]![code]. В итоге форму открывает, но абсолютно пустую. Где я туплю?

http://www.sql.ru/forum/1152322/makros-otkrytiya-formy

Здравствуйте.
Есть таблица с продажами по датам. Даты в формате " 04.04.2015 0:14:57 "
Нужно ее преобразовать просто в дату формата " 04.04.2015 "
В запросе пишу следующее: Format([ДатаВремя];"dd.mm.yyyy") визуально получается то что нужно, но полученное данное получается текстом, а нужно что бы было датой. Подскажите как решить данную программу?

http://www.sql.ru/forum/1152309/preobrazovanie-daty

Добрый день!
Случилась такая беда - в один прекрасный день перестали работать все формы пакета Microsoft Forms 2.0 в MS Access. "Отсутствует элемент управления". При попытке добавить новый элемент управления из той же библиотеки Форм2.0 говорит, что "Ms Access не поддерживает данный элемент управления!"
Ищу направления в которых можно копать. Кто разбирается - помогите пожалуйста!
Элементы Activex проверял на регистрацию. Не работает как минимум на трех машинах.
Никто ничего не менял. ПО не устанавливалось и не обновлялось. Все прекрасно работало несколько лет подряд. Возможен ли вариант с вирусом?
Спасибо

http://www.sql.ru/forum/1152285/microsoft-forms-2-0

Если кому не влом дайте ваш адрес электронной почты, мне для тестирования рассылок
(с новым годом, с 8 марта, 23 февраля, с днюхой) нужно набрать 15 адресов.
если сюда не охота выкладывать свой емэйл - пришлите мне на почту.
serz58@yandex.ru
--------------------------
Программа почти готова, теперь надо протестировать на ошибки, так что надо дня три порассылать поздравления и проверить её работоспособность.
------------------------------
С уважением ваш час

http://www.sql.ru/forum/1152275/ya-delau-programmu-avtomaticheskoy-rassylki-pozdravleniy

Господа, снова с просьбой помочь...
У меня 2007, у человека тоже 2007
У человека в цикле по письмам в папке входящие выпадает с ошибкой.Писем порядка 4000, выпадает гдето на 1800м

Private OL_ItemMail As Outlook.MailItem

'спиcок писем в папке "входящие"
Function EmailInbox()
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim InitiationMaill As Long, HEARINGMaill As Long
Dim myItems As Outlook.Items
Dim n As Long

   On Error GoTo EmailInbox_Error
 
er = 1
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")

er = 2
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")

er = 3
' получаем ссылку на папку Входящие
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = OL_FolderMail.Items 

er = 4
' перебираем все письма в папке
For Each OL_ItemMail In myItems 
    
    With OL_ItemMail
er = 50
        If .UnRead Then ' фильтр по непрочитанным
              ' здесь идет обработка писем
        End If
    End With
' на 1800 письме после следующей строки сразу выпадает в ошибку
Next
    
   On Error GoTo 0
   Exit Function

EmailInbox_Error:
' здесь обработка ошибок    
End Function

Почему не доходит до конца колекции писем?
У меня на компе работает.У человека нет...

http://www.sql.ru/forum/1152207/outlook-oshibka-proverki-pisem

Добрый день!

В adp-проекте реализовываю запрос с объединением в vba модуле. Выдает ошибку, что дескать не совпадает количество и качество полей в запросах, хотя они там точно совпадают, за исключением, возможно, некоторых NULL-значений.
В студии запрос исправно выполняется и выдает верный результат, а в адп капризничает.
Может кто подскажет, что не так?

Приведу текст запроса, который формирую в vba-модуле.

sql = "(SELECT СчетаТовары.Товар AS [Информ продукт], '' AS [Периодичность выхода / Доставка], "
sql = sql & "СчетаТовары.Количество AS [кол-во], СчетаТовары.Поставка AS Доставка, "
sql = sql & "[СчетаТовары].[Цена] AS Цена, [СчетаТовары].[Цена]*[СчетаТовары].[Количество] AS Итого, "
sql = sql & "СчетаТовары.НДС, [СчетаТовары].[Цена]*[СчетаТовары].[Количество]/100*[СчетаТовары].[НДС] AS [Сумма НДС], "
sql = sql & "[СчетаТовары].[Цена]*[СчетаТовары].[Количество]+[СчетаТовары].[Цена]*[СчетаТовары].[Количество]/100*[СчетаТовары].[НДС] AS Всего, СчетаТовары.Примечание "
sql = sql & "FROM [Счета] INNER JOIN [СчетаТовары] ON Счета.КодСчета = СчетаТовары.КодСчета "
sql = sql & "WHERE ((([Счета].КодСчета)=" + strKey + ") AND (СчетаТовары.Количество)<>0) )"
'sql = sql & " UNION "
sql = sql & "(SELECT 'Итого' AS [Информ продукт], '' AS [Периодичность выхода / Доставка], '' AS [кол-во], '' AS [Доставка], '' AS [Цена], " + sW1 + " AS [Итого], "
sql = sql & "'' AS [НДС], " + sW2 + " AS [Сумма НДС], " + sW3 + " AS [Всего], '' AS [Примечание]"
sql = sql & "FROM [Счета] "
sql = sql & "WHERE ((([Счета].[КодСчета])=" + strKey + ") ) ); "

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

http://www.sql.ru/forum/1152159/problema-v-union

Имеется БД "школьная библиотека".
Необходимо: 1.:
Исправить код, чтобы при вычете из сегодняшней даты - даты поступления получалось значение класса. (Сейчас имеем код, что ниже. Код при вычите из даты 01.09.2015 даты поступления, говорит, что ученик не перевелся в класс выше.)
Select DateDiff("yyyy",Читатели.[Год поступления],Date()) AS Класс

Необходимо: 2.:
Реализовать возможность сравнения нынешнего класса, честно говоря не знаю с каким параметром. И если класс это 1,2,3 или 4, то начальный уровень. Если класс это 5,6,7,8 или 9, то основной уровень. Если же класс это 10 или 11, то полный уровень.

В делфи это было бы примерно так: if Читатели.[Класс]=1 to 4 then начальный уровень.
В аксессе же, полагаю должно быть что-то подобное: where Читатели.[Класс]=1 to 4 then начальный as Уровень.

http://www.sql.ru/forum/1152136/nuzhna-pomoshh-v-rabote-s-access-bd-shkolnaya-biblioteka

День добрый.
На главной форме форме несколько субформ. По событию любой субформы Form_Current() передаю в свободное поле главной формы ID записи.
Столкнулся с тем, что если в субформе одна запись то событие Form_Current() происходит один раз, при открытии главной формы.
Дальше она как бы уже текущая и передать ID не получается. Посоветуйте, как красиво обыграть такую ситуацию. Спасибо.

http://www.sql.ru/forum/1152086/vopros-po-sobytiu-form-current

Здравствуйте, помогите пожалуйста. Как формировать запрос на количество, по первым 4 буквам и символам? Спасбио

http://www.sql.ru/forum/1152057/vyruchayte-tovarishhi

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

Задача. При изменении записи мне необходимо её скопировать и перевести курсор на новую запись.

Решение.
1. Обработка события Dirty.

Private Sub Form_Dirty(Cancel As Integer)
    If IsNull(idDataScrewMetiz) Then
        mbRecordNew = True
    Else
        mbRecordNew = False
        mbActiveControlValueOld = Me.ActiveControl.Value
        Set mActiveX = Me.ActiveControl
        If MsgBox("Внести изменения?", vbYesNo) = vbYes Then
            mbRecordEdit = True
            CopyRecord
        Else
            mbRecordEdit = False
        End If
    End If
    Cancel = False
End Sub

2. Добавлтние записи и перевод курсора на неё.

Private Sub CopyRecord()
    Dim AdoRstCopy As ADODB.Recordset
    Dim i As Long

    Set AdoRstCopy = Me.RecordsetClone
        With Me.Recordset
            AdoRstCopy.AddNew
            For i = 1 To AdoRstCopy.Fields.Count - 1
                On Error Resume Next
                AdoRstCopy.Fields(i) = .Fields(i)
            Next i
            AdoRstCopy.Update
            midDatascrewmetiz = AdoRstCopy.Fields(0)
            .Requery
            .FindFirst "idDatascrewmetiz=" & CStr(midDatascrewmetiz)
            If .NoMatch Then MsgBox "Record not found."
        End With
    Set AdoRstCopy = Nothing
End Sub

В этой процедуре не находится запись с заданным midDatascrewmetiz, хотя она существует (только что была добавлена).

Скажите, пожалуйста, по какой причине это происходит?

http://www.sql.ru/forum/1152049/perehod-na-zadannuu-zapis

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

http://www.sql.ru/forum/1152039/kak-napisat-vyrazhenie

Вот цитата из документации к access 2007:

-- Multiple-field constraint:

CONSTRAINT name     {PRIMARY KEY (primary1[, primary2 [, …]]) |     UNIQUE (unique1[, unique2 [, …]]) |     NOT NULL (notnull1[, notnull2 [, …]]) |     FOREIGN KEY [NO INDEX] (ref1[, ref2 [, …]]) REFERENCES foreigntable [(foreignfield1 [, foreignfield2 [, …]])]     [ON UPDATE CASCADE | SET NULL]     [ON DELETE CASCADE | SET NULL]}

Вот мой DDL:

CREATE TABLE PeriodicData (
	rowId COUNTER CONSTRAINT Ct_rowid PRIMARY KEY,
	theChild INTEGER,
	calcYear SMALLINT,
	CONSTRAINT Ct_nonul NOT NULL (theChild, calcYear)
);

При попытке сохранить запрос выделяет слово NOT и выдает следующее:

Microsoft Access
Ошибка синтаксиса в предложении CONSTRAINT. (NOT)

Что я делаю не так?

http://www.sql.ru/forum/1152010/create-table

Господа.
Есть форма.В ней две подчиненные - ленточные.С контролом рисунок в строках.
По сути - в подформах товары.Переносятся из одной подформы во вторую.Для облегчения ориентации - картинки товаров.
Для рисунка - подтягиваются картинки из хранилища картинок.
При клике по рисунку открывается увеличеная картинка в отдельной форме.

Собственно проблема:
У меня на машине(Акс 2007)
При клике по контролу рисунка открывается нужный увеличенный рисунок - все ОК

Через РДП на сервере(Акс 2010) - при клике по рисунку - открывает картинку не с той строки.
Т.е. - Текущая строка не та, на которой кликал по рисунку.
Если предварительно кликнуть по любому полю этой строки, то все нормально. - Но это же не решение...
Не нашел в свойствах контрола рисунка, чего либо типа доступа. Т.е. он не может быть недоступен...
Рылся на форуме, совет:
If (Me.Form.Recordset.AbsolutePosition <> Me.Form.CurrentRecord) Then Me.Form.Recordset.AbsolutePosition = Me.Form.CurrentRecord
не помог - ловит строку - помоему вообще случайную, никакой зависимости не нашел.
Ближе к моей проблеме ничего не нашел.

Встречал ли кто сие безобразие у себя на пути? И как его можно побороть?

http://www.sql.ru/forum/1152000/opytnym-v-2007-2010-ili-rdp

Здравствуйте Уважаемые форумчане, как не как нужна Ваша помощь. Нужно разбить поле из 6 цифр на 3 столбца по запросу. Пример структуры 500203
5 | 002 | 03
5 002 и 03 это ключи других таблиц. Как это сделать? Спасибо за внимание!

http://www.sql.ru/forum/1151940/razdelenie-polya-na-stolbcy

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

Я бьюсь уже 2 недели и окончательно понял, что ни чего не понимаю и не умею в акцессе. Для кого то возможно это вообще на полчаса работы, а я уже себе башку сломал. Скажу сразу всякие формулы, отношения и пр. я очень туго понимаю....хотя связи вроде понятно, но вот условия для меня темный лес.

заранее Спасибо!!!
Только прошу не кидаться терминами и не посылать меня читать умные книги, потому что это нужно сделать быстро, ну и я все равно ни пойму скорее всего большую часть.

P.S.: не могу ни как прикрепить таблицы

http://www.sql.ru/forum/1151936/pomogite-sdelat-bazu-ya-chaynik

К ней меню никак не прилепить?
Она всё собой закрывает.
Только вариант с кнопками на ней?

Или есть лазейка?

http://www.sql.ru/forum/1151933/v-access-modalnovsplyvaushhaya-forma

У меня база формата 2003, доступ к ней осуществляется через Jet 4.0, а документации по access SQL есть только для access 2007.

Вопрос, отличается ли синтаксис для 2007 от синтаксиса для 2003, и должен ли он вообще отличаться?

http://www.sql.ru/forum/1151884/baza-2003-jet-4-0-i-sintaksis-sql-2007

Добрый день!
Такая проблема. В базу данных аксесс каждый день водятся данные 10 лет. Объем нужной мне таблицы составляет около 800 т строк. Уникальное поле - номер партии. Маска поля позволяла вводить только 7 символов. Недавно была выпущена тысячная партия, для чего пришлось менять маску с 7 на 8 символов. При сохранении выдавалась ошибка. Тогда я скопировал весь массив частями в эксель, изменил маску ввода и снова вставил все в аксесс. и возникла такая проблема. Ранее при создании запроса, в графе уровень если поставить условие <"0", то выводились только пустые ячейки, строки с буквами т и п не выводились. После вставки из экселя при создании данного условия, не выводится ни одной строчки. что я сделал, удалил данные из аксесс, в экселе выделил пустые ячейки данного столбца и нажал кнопку делет, ведь при вставке пустых ячеек из аксесс в эксель, эксель их считает как текстовые. Вставил заново. Все равно выдает 0 строк. Поменял условие на Is null. Все стало показываться. дальше больше. Перестали показываться внесенные уже после изменения маски через форму базы данные. как только поменял условие на <0, новые данные стали показываться верно, но не показываются старые данные. В общем при вставке из экселя столбик уровень вставляется видимо как текстовый и я не пойму как вставить пустые ячейки пустыми

http://www.sql.ru/forum/1151862/perenos-iz-excel-v-access-pustye-yacheyki

Коллеги,
прошу подсказать как из таблицы

origin|destination|net_stock
AU|GE|1
AU|FR|2

получить вот такой результат

path_id|net_stock
AU to GE|1
AU to FR|2

т.е. надо объединить построчно текст в столбцах ORIGIN и DESTINATION (текст) в новый стоблец


sharp data on #datablog
http://uadata.blogspot.com

http://www.sql.ru/forum/1151836/sozdanie-novogo-stolbca-na-osnove-obedinenie-dvuh-drugih

Здравствуйте, делаю группировку результатов запроса, находя для каждого Госномера последнюю (максимальную) дату

SELECT DISTINCT ТО.Госномер, Max(ТО.Дата) AS [Max-Дата]
FROM ТО
GROUP BY ТО.Госномер;

Затем в редакторе пробую построить запрос, который бы отбирал те госномера, пробег у которых сверх 1000км после ТО.

SELECT  Путёвка.Госномер, Путёвка.Расстояние_км, Путёвка.Дата, Запрос2.[Max-Дата]
FROM Путёвка, Запрос2
WHERE (((Путёвка.Госномер)=[Запрос2].[Госномер]) AND ((Путёвка.Дата>=Запрос2.[Max-Дата] )));

Мой запрос выводит записи только одного госномера, на дату ТО первого госномера.

http://www.sql.ru/forum/1151822/vlozhennyy-zapros-gruppirovka