access msgbox

Ответ от N.kornev@list.ru[новичек]
'Set dbs = CurrentDb
'Set tbl = dbs.OpenRecordset("Разработка")
'If tbl.EOF Then Exit Sub
'x = InputBox("Введите номер документа")
пусть r - это рекордсет. (select (дата) from (разработка) where (номер документа) )
dim w as string
w = (дата)! r
msgbox w
теперь по Русски =)
создай еще один рекордсет с условием x (товй импут бокс)
результат в переменную
сообщение по переменной.