myfirstaccess,
если используете поля подстановки в таблице, то можно как то так:
Public Function fff()
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from ЗАКАЗ")
rst.MoveFirst
Do While Not rst.EOF
nt = DLookup("[наименование артикула]", "[АРТИКУЛ]", "ид=" & rst.Fields("artikul_id_f"))
Debug.Print nt
rst.MoveNext
Loop
End Function