Private Sub Êíîïêà78_Click()
Dim dbs As Database
Dim rtsTemp As Recordset
Dim sql As String
Set dbs = CurrentDb
Dim b, a As Variant
Dim o
sql = "Отбор"
Set rtsTemp = dbs.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)

With rtsTemp
news:

a = !key       ' имя транспорантика или номер ID  детали    
'Me![a].Visible = True ' Здесь ругается что поля такого нет


'a="Me![" & !key & "]"
a.Visible = True          ' здесь что тоже чтото не так не помню

.MoveNext
If .EOF = True Then
 GoTo Finish
Else
 GoTo news
 End If
End With

Finish:
End Sub