Добрый день,

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

<sub>Private Sub BusinessPcsId_Enter()

Dim dbCurrent As Database
Dim sq As String
Dim iMatId As Integer
Dim rstBPfiltered As Recordset

On Error GoTo lerr
iMatId = Me.MatID

sq = "SELECT [Material].[MaterName] FROM Material INNER JOIN " & _
"BusinessPieces ON Material.IDMater=BusinessPieces.MaterID " & _
"WHERE BusinessPieces.MaterID = " & iMatId & _
" ORDER BY Material.Thikness, Material.MaterName "
Set dbCurrent = CurrentDb
Set rstBPfiltered = dbCurrent.OpenRecordset(sq)
If Not rstBPfiltered.EOF Then
Set Me.BusinessPcsId.Recordset = rstBPfiltered
End If



End Sub</sub>

https://www.sql.ru/forum/1314431/istochnik-zapisey-polya-so-spiskom-filtruemyy-dlya-kazhdoy-zapisi-otdelno

Всем доброго времени суток! Есть задача редактировать записи в XML файле. Для начала нужно распарсить XML в таблицу.
КОД:

Dim DNs, dn
Dim MyPath$
Dim strSQL

MyPath = Me.txtSelectedName

strSQL = "DELETE * FROM backup"
    CurrentDb.Execute (strSQL)
     
     With CreateObject("MSXML2.DOMDocument")
        .async = False: .validateOnParse = False
        .Load MyPath

        Set DNs = .SelectNodes("//managedObject[@class='BTS']")
        For Each dn In DNs
        Debug.Print dn.getAttribute("distName")
        Next dn
                  ' При такой конфигурации вижу в immediate, все нужные записи из файла.    
        
    End With
' Если делаю импорт в таблицу то в ней, поле DN пустое
'strSQL = "Insert into backup (dn_bts) values ('" & dn & "')"
'CurrentDb.Execute (strSQL)

результат Debug.print в окне immediate:
[img src="https://i.ibb.co/ByGCJLR/image.png" alt="image" border="0"]

Если добавляю в таблицу вижу следующее:
[img src="https://ibb.co/WDNKCPt/image.png" alt="image" border="0"]

Вопрос:
Почему в таблицу не попадают найденные записи?
Пробовал перенести strSQL в конструкцию With, результат тот же.
Помогите пожалуйста разобраться.

https://www.sql.ru/forum/1314416/ne-dobavlyautsya-zapisi-v-tablicu

Добрый день!
В форме "frm_main_menu" есть набор вкладок ""master_set" и в них вкладка "Pages(3)", в которой есть надпись "activity_history" и рисунок "activity_history_ico"
Задача: при открытии формы скрыть надпись и рисунок.
ВОПРОС: как обратиться к надписи и рисунку во вкладке формы?


Пробовал следующие варианты, не сработало:
Forms![frm_main_menu]![activity_history].Caption.Visible = False
Forms![frm_main_menu]![activity_history_ico].Visible = False

Forms![frm_main_menu].Controls("master_set").Pages(3)![activity_history].Visible = False
Forms![frm_main_menu].Controls("master_set").Pages(3)![activity_history_ico].Visible = False

https://www.sql.ru/forum/1314410/kak-obratitsya-k-nadpisi-formy-nadpisi-vo-vkladki-formy

Добрый день!
Необходимо обновить поля Тип1 и Тип2 в таблице тПрием

Код Тип1 Тип2 111 141 ...

Средними по данным поля t из таблицы тблПоказатели с разделением по условию поля Тип

N t Тип 6 2 2 7 0 1 ... ... ...

Таблицы тПрием и тблПоказатели связываются через таблицу КП

N Код 6 111 7 141

Пробую делать это запросом зпрОбн:

UPDATE (
SELECT тКП.Код, Avg(тблПоказатели.t) AS [ts]
FROM тКП INNER JOIN тблПоказатели ON тКП.[N] = тблПоказатели.[N]
WHERE (((тблПоказатели.Тип)=1))
GROUP BY тКП.Код) As UU 
INNER JOIN тПрием 
ON UU.Код = тПрием.Код SET тПрием.Тип1 = [UU]![ts];

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

Подскажите где ошибка? Файл прилагается (полная версия).

Спасибо!

https://www.sql.ru/forum/1314402/obnovlenie-tablicy-dannymi-iz-zaprosa

Как решить проблему одновременного чтения строк из текстового файла и пометкой данных строк в текстовом файле, как прочитанные?
Что бы не читать , случайно, второй раз.
Или это не проблема?
------------------------------------------------------------------------
Спасибо за ответ.

https://www.sql.ru/forum/1314374/chtenie-i-odnovremennaya-zapis-v-tekstovyy-fayl

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

Вопрос очень прост:

у меня есть записи таблицы 1

ID name
1 имя
2 имя 2
3 имя 3

Так же у меня есть вторая таблица с ID некоторых записей из таблицы 1
ID IDtabl1
1 2
2 3

Мне нужно получить записи из таблицы 1 которые не входят в таблицу 1 через поле IDtabl1
я делаю выборку:
SELECT * FROM таблица1 WHERE ID <> (SELECT IDtabl1 FROM таблица2)
Но мне пишет, что должно возвращать не более одной записи
Надеюсь описал понятно. Жду ваших решений данной ситуации!

https://www.sql.ru/forum/1314365/vyborka-zapisey-bez-opredelyonnoy-gruppy-iz-drugoy-tablicy

Задача: есть 'Таблица1' и на её основе 'Форма1' для редактирования данных. В 'Форма1' поисковое поле со списком 'ПоисковыйКомбоБокс',
содержимое выпадающего списка ограничиваются значениями полей 'F2_Фильтр', 'F3_Фильтр'. Система работает, но есть ньюанс).
Таблица1 находится на Ms SQL Server. Цель максимально ограничить трафик, для повышения быстродействия системы.
Для пояснения в примере преведены запросы: Запрос_Топ100_серв даёт трафик 114кбайт, Запрос_МаксЧислоЗаписей100_серв даёт трафик 30кбайт,
ну и запрос без ограничений 'Запрос_серв' - куча мегабайт.
Правда локальный Запрос_МаксЧислоЗаписей100 (не ограничивает количество строк) работает не так как Запрос_МаксЧислоЗаписей100_серв.
Получается что SELECT TOP 100 Таблица1.... скачивает не 100 записей а на много больше, а надо именно 100.

https://www.sql.ru/forum/1314358/ogranichit-kolichestvo-zapisey-v-combobox-dlya-umensheniya-trafika-s-sql-server

Читаю строки из текстового файла и при ошибке -
Добавляю в листбокс строку типа

" - ошибка загрузки " & "в Строке :" & STROKA

где STROKA - это переменная .
в листбокс попадает любая строка, кроме значения переменной.
Разве так и должно быть.?Пробовал дополнительно явно преобразовать
в строковый тип Cstr(STROKA) - эффект тот же.
То есть нет эфекта.
Выводить только : - ошибка загрузки " & "в Строке :
пробовал выводить в MsgBox - всё норм.
------------------------------------------------------------------------
Спасибо за ответ.

https://www.sql.ru/forum/1314334/dobavka-strok-v-listboks-problema

Привет народ!
Есть табличка declarItems у которой первичный ключ это составной CONSTRAINT PrimaryKey PRIMARY KEY (decId, ProductVCode, ClientRegId )
Пытаюсь выполнить запрос на обновление:

UPDATE declaritems 
INNER JOIN 
  [SELECT 1 as decid,  IIf((products.importer<>""  ),  products.importer, products.Producer) as supplier ,
          products.ProductVCode,  sum(realquantity * products.capacity)/10 as dal 
   FROM ( egais_ttn_items 
   left join products on egais_ttn_items.alccode=products.alccode) 
   left join egais_ttn on egais_ttn_items.ttn_id = egais_ttn.id  
   GROUP BY IIf((products.importer<>""  ),  products.importer, products.Producer) , products.ProductVCode 
  ]. AS t 
ON (declaritems.ClientRegId = t.supplier) AND (declaritems.ProductVCode = t.ProductVCode) AND (declaritems.decId = t.decid) 
SET declaritems.Incom = t.dal;

но оно ругается "В операции должен использоваться обновляемый запрос."
Это почему? Из-за сложного внутреннего запроса?
Такое лечится?

https://www.sql.ru/forum/1314308/neobnovlyaemyy-zapros

Привет всем! Подскажите пожалуйста , есть VIEW на стороне сервера MySql. Связка MS Access + MySql ч/з odbc. Все работает отлично. Одно поле во VIEW расчетное поэтому при изменении данных в табличной форме в Access, чтобы заметить изменение в в этом поле нужно делать refresh строки данной табличной формы. То есть рефрешить данные со стороны клиента.
Можно ли пнуть рефреш на стороне сервера, чтобы значение не обновлять на стороне аксесса путем обращения к refresh?

Вьюха такого вида на MySQL :

SELECT shipment_id,container, etd,eta , IF (CURRENT_DATE()>eta,"DELIVERED", "IN THE WAY") AS status FROM t_shipments;

В общем, чтобы на табличной форме появились изменения сейчас использую обновление строки на табличной форме.
Как сделать рефреш на стороне сервака, подскажите плиз. Триггернуть на AFTER UPDATE?

https://www.sql.ru/forum/1314304/refresh-na-storone-servera

Добрый день форумчане. Стоит задача с помощью VBA открыть сохранить и закрыть файл xlsx.
В VBA не силён как и в программировании. Нашёл строчки которые открывают и закрывают файл. Но а как сохранить пока не могу.

Прошу помочь дописать эту недостающую строчку которая сохранит xlsx.

Public Sub XMLSOpen()
Dim oXL As Object
Set oXL = CreateObject("Excel.Application")
With oXL
.Workbooks.Open CurrentProject.Path & "\L3 MBH-BS порегионально_new.xlsx"
.Visible = True
End With


oXL.Workbooks.Close

Set oXL = Nothing


End Sub

https://www.sql.ru/forum/1314270/sohranit-excel-cherez-vba

Мне предстоит длительная работа в аксесе.Возможности Акса мне известны (не в полном объеме конечно,т.к. я не не часто работаю с этим ПО).Работа с базами для меня тоже не новость. Но я по себе знаю,что чем больше имеешь понятия о библиотеках (DAO,ADO и т.д.),свойствах объекта,методах которые применяются именно к определенному объекту(или элементу) (database,Recodset,table,querydef,field,buton,combobox,и т.д.) случаи когда можно применить тот или другой метод/процедуру,возвращаемые значения в том или ином случае,СИНТАКСИС написания и т.д.- тем выше эффективность работы...Т.е. нужен русскоязычный справочник,который бы содержал вышеперечисленную информацию (с конкретными примерами программного кода).Т.е. более развернутая русскоязычная версия хэлпа,которая выдается по нажатию F2 в режиме набора программного кода на VBA при работе с формами B.
Лет десять назад искал что-то подобное в библиоглобусе,но ничего подходящего не нашел.
Может кто-нибудь подскажет есть ли такой справочник,как он называется и кто автор?
Т.е. справочник должен быть такой,чтобы бегло ознакомившись с ним я бы знал где искать в нем ответ на тот или другой возникший в ходе работы вопрос,потому что иногда сталкиваешься с плёвой проблемой, а убиваешь на ее решение огромное количество времени,да плюс ко всему ещё на форуме "тупые" вопросы задаешь.

https://www.sql.ru/forum/1314252/nuzhen-sovet-kakoy-spravochnik-po-aksu-luchshe-priobresti

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

'-------------- ошибка
    .Controls.Add msoControlSplitButtonPopup, 3076, , , True 'Цвет текста
    .Controls.Item(10).BeginGroup = True
    .Controls.Add msoControlSplitButtonPopup, 3077, , , True 'Цвет заливки фона
    .Controls.Add msoControlSplitButtonPopup, 14205, , , True 'Изменить цвет заливки/фона
    .Controls.Add 14, 1769, , , True 'Оформление -> под вопросом
'-------------- ошибка
    .Controls.Add msoControlComboBox, 1728, , , True 'Шрифт
    .Controls.Add msoControlComboBox, 1731, , , True 'Размер

Пример прилагается.
___________________________________
Использую Microsoft Access 2010, 64 бит.

Спасибо каждому, кто мне когда-либо здесь помог и продолжает помогать.

https://www.sql.ru/forum/1314233/kontekstnoe-menu-dlya-polya-rtf

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

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

В приложении формы есть кнопки для обработки данных таблицы. Если не сохранить отредактированные данные, то они не будут учитываться при обработке. Пользователи иногда забывают нажать кнопку "Сохранить" и получают некорректные результаты. Хочу перед обработкой проверить, есть ли на форме записи в режиме редактирования. Как?

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1314227/proverka-na-redaktirovanie-zapisi-v-forme

Всем привет!

Возникла непонятная ситуация в процессе модернизации базы (Access 2003). Прошу помощи!

Есть простая форма для работы с заказами и создающая новые заказы. Работает напрямую с таблицей.
При создании новой записи в таблицу автоматически подставляется текущая дата в [ДатаЗаказа] - значение по умолчанию Date(), а в [ДатаГотовности] прописывается значение по умолчанию Date() + 9. Далее вводятся разные данные: ФИО заказчика, номер заказа и прочее...
Т.е. при переходе формы в режим новой записи (стандартная кнопка внизу формы - стрелка вправо со звездочкой), [ДатаЗаказа] и [ДатаГотовности] уже заполнены данными.
При двойном клике по вышеуказанным контролам открывается календарик, где можно выставить любую дату.

Хочу сделать так: сразу при переходе в режим новой записи, если [ДатаГотовности] попадает на субботу или воскресенье, то сразу автоматически открывался этот календарик для возможности вручную скорректировать дату менеджером.

Что-то типа такого:

Private Sub Дата_готовности_BeforeInsert(Cancel As Integer)
'если дата попадает на на субботу или воскресенье - открыть календарик для коррекции даты
    If Format(Me.Дата_готовности, "w", 2) = 6 Or Format(Me.Дата_готовности, "w", 2) = 7 Then
        Me.Дата_готовности.SetFocus
        DoCmd.OpenForm "DatePicker"
    End If
End Sub

Пробовал на разные события прописывать: BeforeInsert, AfterInsert, AfterUpdate, Dirty, Enter... Нет никакой реакции!
Подскажите, что не так?
Как правильно сделать?

https://www.sql.ru/forum/1314215/sobytie-pered-sozdaniem-novoy-zapisi

Привет.
Как сделать, чтобы через shell запустилось Putty и окно Putty не закрылось после исполнения посланной команды? Что выводится не успеваю посмотреть. В Putty ставлю настройку ведения лога, но он не сохраняется. Комп корпоративный.
Пробовал оба варианта.

Shell ("putty.exe -ssh Login@Ip -pw *** -m ПутьКФайлуСКоммандой "), vbNormalFocus
Shell ("cmd.exe /c  ""putty.exe -ssh Login@Ip -pw *** -m ПутьКФайлуСКоммандой"""), vbNormalFocus

https://www.sql.ru/forum/1314174/podskazhite-pozhaluysta-po-shell

Помогите плиз! Связка .mdb .mdb. В клиенской части есть форма с подформой, где данные (для скорости в многопользовательском режиме объявлены как статические). Иногда необходимо удалить строчку. По кнопке запускаю

CurrentDb.CreateQuery("","Delete * From Table1 Where cod="& Me!SubForm1!cod)
With q
   .Execute
   i = q.RecordsAffected
End With
If i = 0 Then
        MsgBox "Тру-ля-ля"
Else
    Me!SubForm1.Requery    

End If

В локальной версии все работает без сбоев. Если файл данных на сервере , то через раз. При этом если нажимаю на кнопку еще раз, на этой же записи- выдает в запросе т.е. нет значения Me!SubForm1!cod.
По- моему, деле во временных интервалах на обновление и кэшах, но как ими управлять не знаю. Подскажите.

https://www.sql.ru/forum/1314058/ne-otobrazhaetsya-izmenenie-subformy-v-mnogopolzovatelskom-rezhime

в access выгружается отчет в формате .html. нужно отправить его в сообщении через outlook "вложением как текст", чтобы он отображался в теле письма как картинки. по коду, он вставляет файл, но не распознает содержание.
перерыла много кода, примеры в основном на типы jpg.
спасибо

Private Sub Кнопка3_Click()
 DoCmd.OpenReport "Ответ", acViewPreview
  Dim Path As String
  Path = "C:\Users\ыыы\Pictures\Сообщения\Ответ.HTML"
  DoCmd.OutputTo acOutputReport, "Ответ", acFormatHTML, Path, False 'выгрузка файла в формате html
  
Dim myOlApp As Object
Dim myItem As MailItem
Dim htmlBody As String
'проверка на открытие outlook
 On Error Resume Next
     Set myOlApp = GetObject(, "Outlook.Application")
 If Err <> 0 Then
     Err.Clear
   On Error GoTo 0
     Set myOlApp = CreateObject("Outlook.Application")
 End If

 Set myOlApp = CreateObject("Outlook.Application") ' Создаем письмо
   
Set myItem = myOlApp.CreateItem(0)  'Новое письмо в формате HTML
   myItem.To = "почта@outlook.com" ' адрес почты
    myItem.Subject = "Ответ на заявку"
    myItem.BodyFormat = 2 'olFormatHTML
    TempFilePath = "C:\Users\ыыы\Pictures\Сообщения"
        myItem.Attachments.Add TempFilePath & "Ответ.HTML", olByValue, 0
        myItem.htmlBody = "span>
    myItem.Display
    myItem.Send

Set myItem = Nothing
'Kill Path 'удаляем файл
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

Модератор: Тема перенесена из форума "Visual Basic".

https://www.sql.ru/forum/1313970/kak-vstavit-html-fayl-kak-kartinku-v-tele-pisma-vba

Имеется форма "ответ". Необходимо сохранить ее в формате HTML в таком же виде как и сама форма, для последующей отправке по OutLook в теле письма.
Я попробовала сохранить ее с помощью DoCmd
DoCmd.OutputTo acOutputForm, "Ответ", acFormatHTML, , False
Выгрузилось не совсем то что надо. Подскажите, может что то не дописала?

https://www.sql.ru/forum/1313950/sohranenie-formy-v-vide-html-dlya-otpravki-po-pochte

Когда-то давно, в 2003 году я разместил на сайте Андрея Митина статью "Хранение изображений в базе данных" Там было описано 5 способов хранения изображений. Потом появилось ещё несколько.
Основной проблемой было то, что для вывода изображений в ленточной форме надо было применять способ с использованием OLE объектов. А это занимало очень много места, так как изображения хранились в DIB формате (BMP формат без заголовка). Наиболее компактным был 5-й метод, когда в базе хранился только путь к файлу изображения, а сам файл был на диске в отдельном каталоге.
Бенедикт с этого форума разработал специальный метод для вывода изображений в ленточной форме с испльзованием API библиотек. Этот метод прекрасно работал с Access версий 2000, 2002, 2003, 2007. Но уже с 2010 перестал работать, так как там изменился интерфейс. С MDI перешли на CDI и очень много наработок по украшению интерфейса (фоновые рисунки, раскраска фона) оказались нерабочими.
Копаясь недавно в своём архиве я случайно наткнулся на пятый пример к своей статье и ради интереса запустил его. Каково же было моё удивление, когда ленточная форма спокойно вывела все рисунки в нужных местах. Попробовал запустить в 2003 - пустые рамки.

Я немного подшаманил, чтобы пример работал и 64-х разрядной версии. Больше ничего не дорабатывал.
Если у кого под рукой есть версии 2013, 2016, 2019, проверьте пожалуйста пример. Как он будет вести себя в этих версиях?

Вот такие дела. А я вообще поставил крест на изображениях в ленточных формах...
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

https://www.sql.ru/forum/1313936/izobrazheniya-v-lentochnoy-forma