Приветствую участников форума. Вот, столкнулся с таким явлением...
Дело в следующем: Есть форма, на форме кнопка, к кнопке привязан код (создавался мастером. Мною добавлены вызовы функций LoadFromDOS() и LoadUnloaded(), ну и MsgBox - чисто в качестве паузы:

Private Sub Кнопка45_Click()
On Error GoTo Err_Кнопка45_Click

    Dim stDocName As String
    stDocName = ChrW(1042) & ChrW(1086) & ChrW(1076) & ChrW(1086) & ChrW(1087) & ChrW(1086) & ChrW(1076) & ChrW(1098) & ChrW(1077) & ChrW(1084) & ChrW(32) & ChrW(1044) & ChrW(1086) & 

ChrW(1075) & ChrW(32) & ChrW(50) & ChrW(48) & ChrW(49) & ChrW(51)
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    testvar = LoadFromDOS()
    MsgBox "loaded from dos"
    testvar = LoadUnloaded()
Exit_Кнопка45_Click:
    Exit Sub

Err_Кнопка45_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка45_Click
    
End Sub

**************************************

Функции также создавались посредством конвертации макросов с небольшими изменениями "ручками":

Function LoadFromDOS()
On Error GoTo LoadFromDOS_Err
    DoCmd.RunSQL "delete * from autodox"
    MsgBox "Deleted OK"
    DoCmd.TransferText acImportDelim, "autodox_Spec1", "autodox", "\\Server\share\autodox.txt", False, "", 866
    DoCmd.RunSQL "update autodox set path = '#' & path & '#', CNA = ExtractNumber1(Contr)"

LoadFromDOS_Exit:
    Exit Function

LoadFromDOS_Err:
    MsgBox Error$
    Resume LoadFromDOS_Exit

End Function

**************************************

Function LoadUnloaded()
On Error GoTo LoadUnloaded_Err
    DayTail = Date & "_" & Time
    DayTail = Replace(DayTail, ":", "-")
    DayTail = Replace(DayTail, ".", "-")
    DoCmd.OutputTo acOutputQuery, "Unloaded_Auto", "ExcelWorkbook(*.xlsx)", "\\Server\share\Автоматика_Невнесённое_" & DayTail & ".xlsx", False, "", , acExportQualityPrint


LoadUnloaded_Exit:
    Exit Function

LoadUnloaded_Err:
    MsgBox Error$
    Resume LoadUnloaded_Exit

End Function

**************************************
' Запрос Unloaded_Auto:

SELECT * FROM autodox LEFT JOIN [дог водоподъем] ON autodox.CNA = [дог водоподъем].договор WHERE Код IS NULL ORDER BY 1;

Так вот, кнопочка отлично работает, НО, только один раз!
По окончании работы запрос Unloaded_Auto оказывается, мягко говоря, сильно урезанным - от

SELECT *;

ДО

SELECT * FROM autodox, [дог водоподъем] ORDER BY 1;

Пришлось вставить обновление перед каждым запуском:

CurrentDb.QueryDefs("Unloaded_Auto").SQL = "SELECT * FROM autodox LEFT JOIN [дог водоподъем] ON autodox.CNA = [дог водоподъем].договор WHERE Код IS NULL ORDER BY 1;",

Кто-нибудь сталкивался с подобным явлением?
Или, может, я что-то делаю не так?

С уважением, Андрей.

http://www.sql.ru/forum/1147882/access-2010-samoprizvolnoe-izmenenie-zaprosa

Здравствуйте! Помогите с написанием запроса по всем полям, с нумерацией и с выборкой по полю "Дата_Обращения" в Access.

SELECT LichData.Фамилия, LichData.Имя, LichData.Отчество, LichData.Пол, LichData.Первичное, LichData.Дата_Рожд, LichData.Дата_Обращения, LichData.Диагноз, LichData.[Анамнез заболевания], LichData.[Назначенное лечение], Adres.Дом_Адрес, Prikreplenie.[Организация прикрепления], Telephones.Телефон
FROM ((Adres INNER JOIN LichData ON Adres.ID = LichData.ID) INNER JOIN Prikreplenie ON LichData.ID = Prikreplenie.ID) INNER JOIN Telephones ON LichData.ID = Telephones.ID
WHERE (((LichData.Дата_Обращения)>#6/5/2011# Or (LichData.Дата_Обращения)<#6/5/2011#));

С выборкой вес понятно, но при выводе результаты некоторые записи повторяются, ну а с нумерацией труба !

http://www.sql.ru/forum/1147869/pomogite-s-napisaniem-zaprosa-v-access

Добрый день уважаемые!
Встала необходимость экспорта данных из xml файлов в access. Файлов 250 шт. информации в них не много, но они структурированы.
Простыми средствами импорта в excel а затем в access получается не совсем корректно и долго.
Импорт в access и добавлять данные в создаваемые таблицы получается, но без связей и после этого запросом этого сделать не возможно.
Наверное нужно сразу все поля загонять в одну таблицу, помогите.
Пример файлов...

http://www.sql.ru/forum/1147811/eksport-xml-access

Привет всем.
Не могу понять почему фото отображается в виде значка?

http://www.sql.ru/forum/1147774/ne-otobrazhaetsya-risunok

Добрый день.
Подскажите пожалуйста как кодом ВБА не открывая таблицы можно реализовать запись данных из таблицы в таблицу не открывая таблиц.
для примера:существуют две таблицы tbl_91537 и REPORT_TBL с одинаковым набором полей, как из таблицы tbl_91537 вставить данные в REPORT_TBL
Заранее спасибо.

http://www.sql.ru/forum/1147762/kak-kodom-vstavit-znacheniya-odnoy-tablicy-v-druguu-ne-otkryvaya-tablicy

Есть 2 таблицы.
В одной лежат значения цвета в HEX вида FFAABB, можно ли в форме добавления записей, при выборе цвета сделать так, что бы в форме где-нибудь этот цвет отображался?*
2. имеется еще одна таблица, в которой лежат значения HEX вида 0x01fa, можно ли как-нибудь автоматом при вводе данных, вводить в таблицу и значение HEX, и в другую колонку переводить значения в DEC? в экселе, на сколько я знаю, есть функция hex2dec (шестн.в.дес)... однако как это правильно организовать в аксесе я допереть пока не могу.
Подскажите куда копать

http://www.sql.ru/forum/1147750/pomogite-kuda-i-kak-kopat

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

http://www.sql.ru/forum/1147734/kartinka-na-obekte-odna-dlya-vseh-poluchaetsya

При проектировании БД была допущена ошибка - вместо счётчика в первичной таблице было выбрано поле с не уникальными значениями (текст). Необходимо изменить ключ и при этом сохранить связь с подчиненной таблицей (1 ко многим).

http://www.sql.ru/forum/1147720/kak-optimalno-izmenit-pole-kluch-v-bd-s-vystavlennymi-svyazyami

День добрый. Прошу помощи в решении данной задачи.
Имеются 2 экселевских файла (в приложении это id_cards.jpg , id_sel.jpg).
Поле id одинаковое для связи этих таблиц.
В моем понимании их можно связать так, чтоб получилась таблица вида (result.jpg)
Сам в этом не силен, поэтому кто сможет сделать, буду рад выслушать. Естественно с меня сок;)

+

result.jpg

http://www.sql.ru/forum/1147713/pomoshh-access-excel

не могу создать спецификацию
мастер определяет csv файл как длинную строку

http://www.sql.ru/forum/1147693/csv-import

Есть строка в таблице, содержащая буквы и цифры.
Задача состоит в том, чтобы убрать все знаки до 1-й цифры.

Например, если в строке:
ffffffffffghgghhjjkkkk4350fffrgbbnjjjjj678899,

то должно получиться
4350fffrgbbnjjjjj678899.

В идеале если выражение не будет сильно сложным.

Заранее спасибо.

http://www.sql.ru/forum/1147690/access-udalit-vse-dannye-v-stroke-do-1-y-cifry

Есть строка в таблице, содержащая буквы и цифры.
Задача состоит в том, чтобы убрать все знаки до 1-й цифры. Например, если в строке:ffffffffffghgghhjjkkkk4350fffrgbbnjjjjj678899, то должно получиться 4350fffrgbbnjjjjj678899.

В идеале если выражение не будет сильно сложным.

Заранее спасибо.

http://www.sql.ru/forum/1147685/ochen-nuzhna-pomoshh-v-access

Имеется несколько точек (рабочих групп), которые удалены от центрального офиса.
В них на нескольких машинах работают операторы в программе на MS Acces.
Вечером программам нужно сформировать отчёт в виде текстового файла с данными наработки за день, и передать этот файл в центральный офис. Соответственно в офисе программа (MS Access) должна принять и сложить все эти файлы в одну папку для последующей обработки.
=========================
1 Как и куда складывать файлы на местах?
2 Как и откуда брать эти файлы в офисе?

http://www.sql.ru/forum/1147668/posovetuyte-sposob-resheniya-zadachi

Давно уже не работал с TreeView. сейчас нужно решить задачку для своих нужд. и не могу понять, поменялось свойство key у нод?

если раньше спокойно вносил туда значения вида:1 или 134 или 01. или 10.25.01 то сейчас пока в значении не появится буква получаю ошибку Ivalid Key.

Подскажите что я пропустил. Вроде по описанию по прежнему строковая переменная.

http://www.sql.ru/forum/1147604/ne-sozdautsya-nody-treeview

Есть Форма, и 3 поля со списком:
Поле 1 - Операция(Таблица Операция(Покупка,Прокат)).
Поле 2 - Вид диска(Таблица Вид диска(CD,DVD)).
Поле 3 - Название продукта (Таблица Каталог(Здесь хранятся все диски )).
Нужно сделать так, чтобы при выборе Операция(Покупка) и Вид диска(CD), в поле название продукта отображался список только CD дисков.

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

Добрый день!
Подскажите пожалуйста как в форме в которой есть два списка одним отфильтровать другой список через событие "Сlick"
Описание:
-в форме имеются два списка listdat1 с набором полей (Код,дата,название) и другой список listdat2 с набором полей (Код, Текст)
задача : нужно что бы по нажатию какой то из записей listdat1 фильтровался список listdat2 по полю КОД.
Буду признателен за внимание и полученный ответ!
Заранее благодарен!

http://www.sql.ru/forum/1147575/kak-cherez-vba-spiskom-otfiltrovat-spisok

Уважаемые форумчане!

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

Прошу подсказать как луше реализовать схему БД по данной задачи (как учесть в таблицах возможность замены одних СИЗ на другие).
Проект схемы БД прилагается.

http://www.sql.ru/forum/1147565/mnogovariantnost-pri-uchete-vydachi-siz

Ребят, вот вам моя база, подскажите как переделать уродскую таблицу "Лоты". Она работает, но не кошерная.
Мне надо эти поля (1, 1,5, 2...) как-то перенести в отдельный справочник "диоптрии" как мне здесь подсказали.

http://www.sql.ru/forum/1147534/pivot-pivnoy-zhivot

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

http://www.sql.ru/forum/1147527/sozdat-yarlyk

Ребята нужна ваша помощь. В экселе есть такая штука как Удалить дубликаты. Как это же сделать в Access? Есть база с людьми, у этих людей есть адресс их регистрации. Например бывает такое что в одном доме прописано три человека, в другом четыре, в третьем два. Мне нужно посчитать сколько всего домов на улице. Как убрать дубликаты в Access?

http://www.sql.ru/forum/1147391/udalenie-dublikatov