как обновить таблицу со случайной записью из другой таблицы - PullRequest
Новая
       17

как обновить таблицу со случайной записью из другой таблицы

0 голосов
/ 17 апреля 2019

Я пытаюсь извлечь случайную запись из запроса (trackList) и обновить таблицу (setList) с этой записью, используя VBA в MS Access.Я назначил целочисленные значения из моего набора записей, и когда я запускаю отладку, все работает правильно.когда я вызываю это из командного файла, он продолжает извлекать записи в алфавитно-цифровом порядке.Есть ли лучший способ добиться этого? 

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("_Sun00Q")

strName = rst.Fields("PLNames")
strSetName = rst.Fields("SetName")

Set rst2 = dbs.OpenRecordset(strName & "_trackList_RndOrd")
intPLNid = rst2.Fields("PLNid")
intId = rst2.Fields("id")

SQL = "UPDATE " & strSetName & " SET id=" & intId & " WHERE PLNid=" & intPLNid

DoCmd.RunSQL SQL

1 Ответ

0 голосов
/ 18 апреля 2019

Вы можете открыть свою первую таблицу как набор записей, сгенерировать случайное целое число , а затем переместить AbsolutePosition набора записей в это случайное целое число. Это должно привести вас к случайному месту в наборе записей. Затем добавьте эту запись во вторую таблицу.

...