dim t as long
dim c as access.control
c = forms("Форма1").ActiveControl 
t = nz(Forms("Форма1")("id"),0)
on error resume next
docmd.echo false
Forms("Форма1").requery
' если поле id невидимо или выключено сделать его видимым и включенным'
Forms("Форма1")("id").setFocus
docmd.gotorecord ,,acLast
DoCmd.FindRecord t, acEntire, , acSearchAll, , acCurrent
c.setfocus
' если поле id было невидимо или выключено вернуть его состояние'
docmd.echo true
on error goto 0

Private Sub Кнопка0_Click()\n  Dim t As Long\n  \n  \' Создаю обычную таблицу\n  With CurrentProject.Connection\n    .Execute "create table tempTable (kf int not null identity (1, 1), tempField int)"\n    .Execute "alter table tempTable add constraint pt_t primary key clustered (kf)"\n    .Execute "insert into tempTable (tempField) select 1234"\n    For t =  1  To  17  \' Это 131 тыс. записей, м.б. будет достаточно и меньшего числа\n      .Execute "insert into tempTable (tempField) select tempField from temptable"\n    Next\n  \n  CurrentProject.Connection.Execute "select 123 as a into #ttt"\n  \n    MsgBox "Временная таблица #ttt создана." & vbNewLine & _\n           "Пример извлеченного значения: " & _\n               .Execute("select a from #ttt")( 0 ) & _\n               "." & vbNewLine & vbNewLine & _\n           "В форме будет больше 100 тыс. записей. " & _\n               "Заполняю источник данных и пробую извлечь значение еще раз...", vbInformation\n\n    Me.RecordSource = "select * from tempTable"\n  \n    t = .Execute("select a from #ttt")( 0 )\n    MsgBox "Прочтено значение:" & t, vbInformation\n  End With\nEnd Sub