Владимир Саныч, ну зачем так жестоко с человеком?
Запросом можно получить все что угодно... ну почти... например, по башке вряд ли получишь
Например (это так, на скорую руку, и с овогорками):
1.
2.
3.
4.
5.
6.
7.
8.
Function ShowDescr(strFld As String)
Dim strTab As String, strField As String, i As Integer
i = InStr(strFld, "." )
If i = 0 Then Exit Function
strTab = Left$(strFld, i - 1 )
strField = Mid$(strFld, i + 1 )
On Error Resume Next
ShowDescr = CurrentDb.TableDefs(strTab).Fields(strField).Properties( "Description" )
End Function
Запрос:
SELECT ShowDescr("Табл.Поле") AS Descritpion
FROM Табл;
