Помогите! При выполнении внедренного макроса на кнопке в форме возникает ошибка Return without GoSub. Если поставить любую новую кнопку, все макросы в форме работают. Перестают работать после закрытия базы данных и повторного открытия.

http://www.sql.ru/forum/1086758/makrosy-v-access-2007

Здравствуйте, уважаемые формучане!
Прошу Вас помочь разобраться в следующей задаче:

Есть таблица в MS Access

ONE TWO THREE FOUR FIVE A B A B C A B C D A B D A D

Требуется найти для каждой строки вхождения в другие строки и высчитать разницу в столбец FIVE со знаком "минус" для каждого отличия, вот так:

ONE TWO THREE FOUR FIVE A B -C -D A B C -D A B C D A B D -C A D -B -C

Заранее благодарю за подсказки!

http://www.sql.ru/forum/1086735/vychitanie-strok-i-zapis-raznicy

Комрады, приветствую.
Подскажите, можно ли (и как, если да) реализовать мою задумку.
Простой селект, данные берутся из двух таблиц без связи (так надо). Одной записи в tblClients_Test соответсвует несколько записей в tblOffActions

+

SELECT tblClients_Test.client_id, tblClients_Test.sex, tblOffActions.offer_id, tblOffActions.action_id FROM tblOffActions, tblClients_Test where (((tblOffActions.offer_id)=107));

В результате мы видим повторяющиеся строки с дубликатами из таблицы tblClients_Test и разными значениями из tblOffActions. Все логично.

client_id sex offer_id action_id 1 1 107 да 1 1 107 нет 1 1 107 не знаю 2 1 107 да 2 1 107 нет 2 1 107 не знаю 3 2 107 да

Нужно сделать так

client_id sex offer_id action_id1 action_id2 action_id3 1 1 107 да нет не знаю 2 1 107 да нет не знаю 3 2 107 да нет не знаю

Перекрестный запрос у меня не получается. Мастером строится не то, что нужно, а руками скилла не хватает.
_____________________
А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

http://www.sql.ru/forum/1086733/pravilnyy-select

Есть процедура:

Private Sub Кнопка40_Click()
Set db = CurrentDb
Set rst = db.OpenRecordset("tblTV", DB_OPEN_DYNASET)

If IsNull(Me![Список35].Column(9)) Then
MsgBox "Не введен признак дефекта!"
        Else
             rst.AddNew
    rst!Akt = Me![Список35].Column(8)
    rst!Date = Me![Список35].Column(2)
    rst!idKateg = Me![Список35].Column(9)
        rst!DEdit = Now()
     MsgBox "Запись успешно выполнена."
 End If
 
rst.Close
End Sub

Проблема в том, что вне зависимости от того свободна выделенная ячейка Column(9) или в ней есть запись, условие If выполняется только по ветке Else.
Т.е. если Column(9) занята - выполняются, как и должно быть, команды ветки Else, включая, MsgBox "Запись успешно выполнена", если - свободна,то вместо вывода сообщения "Не введен признак дефекта!", программа останавливается на rst!idKateg = Me![Список35].Column(9).

Помогите найти ошибку! Спасибо!

http://www.sql.ru/forum/1086710/oshibka-v-uslovii-if-then-else

Здравствуйте.
Имеются три следующих таблицы:

Общая таблица участников - в ней находится ФИО, Личная информация, и т. д.
Таблица команд - в ней находится номер первого (второго/третьего и т. д.) участника(=код из общей таблицы участников), название команды
Команды - Жеребьевочный номер, номер команды (=код из таблицы команд), баллы команды

Задача в том, чтобы получить из таблицы команд следующую таблицу (будем считать, что команда состоит из двух человек):

|ФИО 1-ого члена команды|ФИО 2-ого члена команды|Название команды|Номер первого выступления|

После долгой (и безуспешной :)) попытки самостоятельно составить запрос вручную, решил воспользоваться средствами MS Access по конструированию запросов. Но в конструкторе не получается сделать так, чтобы выводились все ФИО, иначе будет ошибка. Получается только по отдельности:

|ФИО 1-ого члена команды|Название команды|Номер первого выступления|

или

|ФИО 2-ого члена команды|Название команды|Номер первого выступления|

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

P. S. сами запросы:

SELECT [Общая таблица участников].Фамилия, [Общая таблица участников].Имя, [Общая таблица участников].Отчество, [Таблица команд].[Название команды], [Команды].[Жеребьевочный номер]
FROM ([Общая таблица участников] INNER JOIN [Таблица команд] ON [Общая таблица участников].Код = [Таблица команд].[Общий номер 1-ого участника]) INNER JOIN [Команды] ON [Таблица команд].Код = [Команды].[Номер пары];

и

SELECT [Общая таблица участников].Фамилия, [Общая таблица участников].Имя, [Общая таблица участников].Отчество, [Таблица команд].[Название команды], [Команды].[Жеребьевочный номер]
FROM ([Общая таблица участников] INNER JOIN [Таблица команд] ON [Общая таблица участников].Код = [Таблица команд].[Общий номер 2-ого участника]) INNER JOIN [Команды] ON [Таблица команд].Код = [Команды].[Номер пары];

http://www.sql.ru/forum/1086671/obedinit-dva-zaprosa

Запрос группировкой:

SELECT id, LAST(func(id)) FROM tbl GROUP BY id

Функция func возвращает строку, превышающую 255 символов. Но в запрос вставляется только левая часть полученной строки длиной в 255 символов. Т.е. на уровне запроса происходит обрезка строк.

Если же убрать агрегатную функцию LAST:

SELECT id, func(id) FROM tbl GROUP BY id

то строка не обрезается, но все символы, после 255-го, представлены иероглифами (состоят из "?")

Чего делать ?

http://www.sql.ru/forum/1086659/zapros-s-gruppirovkoy-urezautsya-stroki-prevyshaushhie-255-simvolov

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

Нашел на форуме подобную задачу, но там с текстовым/числовым полем, где решением явилось "привязка" поля:
=[подчформа].[Form]![полессуммой]
Попробовал с полем с Вложением, не получилось, подскажите, пож-та, как решить?

http://www.sql.ru/forum/1086636/kak-vyvesti-v-glavnuu-formu-pole-s-vlozheniem-iz-podchinyonnoy-formy

Здравствуйте. Делаю в Аксесс форму для ввода данных с подчиненной формой. На главной форме есть список, из которого выбираются значения для некоторых полей подчиненной формы. Структура списка на главной форме:Договор,Документ,примечание. По нажатию на элементе списка главной формы в поля подчиненной формы записываются все три поля:Договор,Документ,примечание и текущая дата в кратком формате. Также в подчиненной форме есть поле "времяНаДокумент" - количество часов, которое потрачено на документ. Проблема в том, что юзеры ставят часы в подчиненную форму не выбрав документ... т.е. ставят в пустое место.... Как сделать проверку заполнения и запретить ввод в поле ВремянаДокумент, поля строки, куда пытаются ввести значение, все пустые?бывает и такой казус: документ выбрали, он записался в форму, ачасы ставят... ниже, в следующую пустую строку... этого надо как то тоже избежать...

http://www.sql.ru/forum/1086609/zapret-vvoda-v-pole-podchinennoy-formy

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

Dim rst As Recordset, rst1 As Recordset
Dim qdf As DAO.QueryDef, prr As DAO.Parameter

Set qdf = CurrentDb.QueryDefs("Запрос3")
qdf.Parameters(0) = "24.03.2014"
Set rst = qdf.OpenRecordset
rst.Filter = "[ID_Stan]='" & 1 & "'"
Debug.Print rst.RecordCount

Set rst1 = rst.Clone
Debug.Print rst1.RecordCount

http://www.sql.ru/forum/1086560/filtraciya-recordset-a

Здравствуйте уважаемые форумчане.
Пишу с надеждой что кто то уже сталкивался с подобной темой.
Дали задание сделать БД по учету входящей и исходящей корреспонденции.
Думаю все видели или сталкивались с журналами (входящие,исходящие) в таких отделах как "канцелярия" или "документационный", где при входящих или исходящих документах они открывают свой журнал примерно формата А3, и вносят ручками данные (входящий номер, дата поступления, краткое содержание, кол-во листов, роспись исполнителя, и тд....).
Теперь так называемый отдел после получения по шапке (из за того, что не смог вовремя и в срок подготовить отчет, и из за того, что один документ полдня искали в своем журнале), хочет вести свою корреспонденцию в электронной базе. А так, как инициатива наказуема, и мое предложение "почему бы не сделать это в акцессе?", начальство единогласно поручило данную задачу переложить на мои плечи.
Мои познания в акцессе закончились после колледжа (защищал курсовую по акцессу). И это было довольно давно.
Прошу Вас помочь, если есть такая возможность.

http://www.sql.ru/forum/1086495/uchet-korrespondencii

Здравствуйте!
БД Access расположена на сервере. Файл БД скомпилирована в mde
Когда пользователи на клиентских ПК пытаются запустить через ярлык mde, то Access не открывается (при этом не появляется никакой ошибки, даже в win-логах ничего нет)
Если открыть оболочку Access и затем через меню "Файл-открыть" выбрать ярлык, то программа успешно запускается!

Вопрос: в чем может быть проблема?

http://www.sql.ru/forum/1086453/ne-otkryvaetsya-mde-cherez-yarlyk

День добрый.
Имеем Access в котором хранятся ряд запросов.
Берем Excel через > Данные из Access выбираем нужный запрос и получаем результат.
Суть проблемы в том, что почему то исключительно один запрос не грузится, пишет следующее:
Не удалось получить данные из БД.
Проверьте сервер или обратитесь к администратору БД. Убедитесь, что имеется доступ к внешней БД, и повторите попытку.

Другие запросы находящиеся с ним в одной БД грузятся без проблем, как в этом же файле Excel, так и в новых.
офис 2010.
Подскажите куда смотреть

http://www.sql.ru/forum/1086428/podskazhite-v-chem-problema

Здравствуйте все!
Возник следующий вопрос.
Я занимаюсь проектированием баз данных в среде M'Access 2003 с применением W'Server 2005. Одним из компонентов баз являются отчеты, формируемые на основе связанных таблиц (для каждого отчета своя одна таблица).

В ряде случаев данные в отчетах должны быть упорядочены по одному или нескольким полям.
Сделать это можно двумя способами: 1. задать требуемые упорядочения в запросе соответствующего отчета; 2. задать требуемые упорядочения в разделе Сортировка и группировка соответствующего отчета.

Вопрос: какой из этих способов в среднем более эффективен (по критерию быстродействия и, возможно, по иным критериям)?
Заранее признателен.

http://www.sql.ru/forum/1086392/uporyadochenie-dlya-otchetov-v-access

Добрый день!
Имеется список записей в ленточной форме, при нажатии какой-либо записи необходимо, чтобы открывалась "карточка" этой записи в форме в режиме диалогового окна, разумеется - с фильтром.
Решал данную задачу таким образом:

Dim curr_bill As String
curr_bill = "[НомерСчета] = " & "'" & Me![НомерСчета] & "'"

DoCmd.OpenForm "cont_finance_rus_CENTER_bill_profile", acNormal, , curr_bill

Вместе с тем, такой подход требует, чтобы поле НОМЕРСЧЕТА содержало уникальные значения, что в данном случае невозможно. пытался замкнуть переменную curr_bill на код записи (автоматический счетчик, который уникален), но данный фильтр работает, видимо, с переменными с типом данных string.... в чем может быть причина?

Собственно вопрос - как использовать в качестве значения, которое присваивается переменной curr_bill, значение счетчика? Спасибо!

http://www.sql.ru/forum/1086342/filtr-pri-otkrytii-formy-iz-spiska-zapisey

как сделать составить запросы:
1. стоимость на срок
2. среднее значение, только тех, чья стоимость превышает 7800
пожалуйста, хелпаните.

http://www.sql.ru/forum/1086325/nuzhna-pomoshh

В этой базе данных нужно сделать подсчёт общей стоимости запуска. Я попытался, но ничего не работает.

http://www.sql.ru/forum/1086261/summa-stoimosti

Прошу помощи в написании кода VBA. В саомстоятельном програмировании не силен, все делаю на примерах.

Параллельно со своей работой, особо времени нет, пишу временную базу(пока програмист по 1с не доберется) по учету ремонтных блоков поступающих от потребителя. Оборот блоков ЗИП + подобие складского учета.

Все что имеет порядковый номер учитывается по штучно. То что не имеет номера, может быть как ед. числе так и во множественном (Поле кол-во). Например вентиляторы, конденсаторы и т.д.

Моя база написанна для единичного учета. Т.е. одна запись = 1 блок. И к этой записи через внешние ключи вешаются таблицы - документы ( цифровой аналог реальной бумажки) Тех акт, Акт исслед., Тех паспотр и т.д.

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

Трудность появляется в том случае когда нужно отправить несколько блоков, т.е. запись в поле кол-во которой не 1, а например 10
И мне нужно в Исходящую накладную засунуть не всю партию из 10 штук, а например 7.

Итого нужно, что бы по двойному клику по блоку из списка того что есть на складе. В случае когда поле [кол-во] больше 1 . Вылазил диалог выбора нужного колличества единиц.
Выполнялся код дублирования записи из основной таблицы.
Т.е. новая дубль запись + имеет связь по внешнему ключу [ИН], в поле [кол во] = 7
Старая запись остается, поле [кол-во] = 10-7

Из Вот такой записи

Код Код ТА Код ТП Код ВН Код ИН Наименование Кол-во Номенклатурный Номер 8 219 144 64 Вентилятор Ebmpapst W1G250 10 б/н

Сделать 2 такие:

Код Код ТА Код ТП Код ВН Код ИН Наименование Кол-во Номенклатурный Номер 8 219 144 64 16 Вентилятор Ebmpapst W1G250 7 б/н 8 219 144 64 Вентилятор Ebmpapst W1G250 3 б/н

Ссылка на базу.
http://1drv.ms/1pDOLcj

Весь инет перерыл подобного примера не нашел((

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

http://www.sql.ru/forum/1086249/dublirovanie-zapisi-v-forme-vba

Добрый день.
В таблице есть текстовое поле, которое содержит дату (да, неправильно, но этому есть причины).
Можно ли создать вычисляемое поле на основе этого, предварительно "убедив" Access, что в данном поле хранится тип "дата"?
_____________________
А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.

http://www.sql.ru/forum/1086224/data-iz-teksta

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

SELECT T.F1 FROM [ИмяФайла#txt] AS T IN 'Путь' [text;HDR=No;]

получаю содержимое в рекордсет. И далее надо вставить весь текст в поле. Поэтому делаю сцепление строк в DAO-рекордсете, или применяю GetString в ADO. Все работает. Но проблема в начальных пробелах перед каждой строкой. Они убираются. Удаляются и табы в начале строки. А мне надо сохранять текст в том виде, в котором он записан в исходном файле.
Если открыть текстовый файл и прочитать с помощью Line Input, то все нормально, все пробелы на месте. Но операция очень долгая, примерно в десять раз медленней, чем запросом

Open Переменная_Путь For Input As #1 
Do While Not EOF(1)   
    Line Input #1, txt
    ss = ss & txt & vbCrLf
Loop
Close #1

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

http://www.sql.ru/forum/1086198/zapros-k-tekstovomu-faylu-udalyaet-nachalnye-probely-iz-strok

Доброго времени суток! Я только начинаю разбираться и хотелось бы услышать пару советов от умных людей!Имеется база Access,в среде Delphi будет разрабатываться приложение. Админ базы и 2 пользователя находятся в разных городах. Данные о логинах и паролях пользователей хранятся у админа. Подскажите пожалуйста советом, как лучше реализовать клиент-сервер с помощью access? Или может лучше работать с базой другой СУБД? Спасибо большое!!!

http://www.sql.ru/forum/1086154/ms-access-i-delphi-7-klient-server