Я пытаюсь получить последнюю запись от каждого в списке устройств, изменить эти записи и сохранить их как новые записи через форму. Идея состоит в том, чтобы ежедневно регистрировать их статусы, и большинство из них мало что изменит, если вообще этот подход казался наиболее эффективным способом сделать это. Я написал следующий запрос и использовал его для разработки формы:
SELECT
ns.gateway,
n.[node serial number],
ns.online,
ns.[not in service],
ns.[location status],
ns.[install/remove],
ns.notes
FROM
[node status] AS ns
INNER JOIN nodes AS n ON ns.[node serial] = n.nodeid
WHERE
(((ns.[date verified])=(SELECT MAX(ns2.[date verified]) FROM [node status] AS ns2 WHERE ns2.[node serial]=ns.[node serial])) AND
((ns.decomissioned)>=0) AND
((ns.[not in service])>=0))
ORDER BY
ns.gateway
До этого момента он прекрасно работал. Проблема в том, что когда я нажимаю кнопку «Добавить записи», которую вы видите выше, она редактирует последнюю запись, а не создает новую. Я установил кнопку, чтобы создать новую запись. Вот макрос для этого:
Я положил кнопку в нижний колонтитул, так что я не знаю, может ли это быть частью проблемы , но я хотел, чтобы он применялся ко всем записям с помощью одной кнопки, а не для отдельной кнопки для каждой. Это относится ко всем записям, но, как я уже сказал, оно редактирует, а не создает новые записи. Я также попытался изменить свойство Data Entry
формы на Yes
, но затем форма перестает получать последние записи. Итак, вы видите выше, когда это свойство установлено на No
.
Заранее благодарим за любую помощь, которую вы можете предложить.
Обновление
Я пытаюсь повторить это с несвязанной формой. Я пытаюсь получить информацию, отфильтрованную по вышеуказанному запросу, и она вводит первую запись, но просто дублирует ее в последующих строках.
Так что я думаю, что я пытаюсь выяснить, как использовать форму нескольких элементов, которая не связана и / или я даже на правильном пути.
Private Sub Form_Load()
Set rst = CurrentDb.OpenRecordset("SELECT * FROM [node audit query]")
Gateway.Value = rst!Gateway
node_serial.Value = rst![Node Serial Number]
Online.Value = rst!Online
Not_in_Service.Value = rst![Not In Service]
location.Value = rst![Location Status]
Install_Remove.Value = rst![Install/Remove]
Notes.Value = rst![Notes]
End Sub