Минимальное значение из 4 колонок, vba

авангардистКоп
Дата: 09.11.2009 17:46:12
Здравств - те. нужна помощь по access 2003. В табличке 5 пол.: название компании, янв, февр, март, апр. Это название компании и какое количество детал. оно выпускает в каждом месяце.
например:
Авангард 5 6 10 4
Минус 3 4 5 1
Калибр 9 4 5 10

нужно вывести в таком формате:
компания / мин. месяц / номер месяца
т е:
авангард / 4 / 4
минус / 1 / 4
калибр / 4 / 2

еще нужно все под vba, но мне хотя бы сделать пока в конструкторе, думаю под vba переведу. Думаю нужно функцию min использовать, но как не понимаю.
Помогите решить проблему пожал - та?
П-Л
Дата: 09.11.2009 17:47:57
Нарушение структуры данных. Ф топку.
авангардистКоп.
Дата: 09.11.2009 17:50:00
не серч - те господа. я знаю что плоха структура. как можно решить с эт структур.?
qwrqwr_
Дата: 09.11.2009 17:51:05
недавно делали коллекцию :)
Ирина Тихонова
Дата: 09.11.2009 17:53:00
Надо написать спецификацию связи… что, кому, почём… если структуры нет!
авангардистКоп.
Дата: 09.11.2009 18:18:25
господа! не нужно решать средствами голого СКЬЭЛ, нужно с использованием vba.
Допустим я смогу написать две функции:
1: countMin - принимает 4 параметра и возвращает минимальн.
2: numberMin - принимает теже 4 параметра и возвращает номер миним.

т е все будет реализовано на vba. Я создам объект recordSet, загружу в него табличку, и в цикле:
do
..cm = countMin(rs(2), rs(3), rs(4), rs(5))
loop while not eof

буду передавать данные в функции.

ВОПРОС!! как мне показать пользователи нужные ответы? куда мне записывать выходные данные? нужно создать спец. таблицу с 3 полями и в них вставлять данные после обработки функ.? Как потом отобразить ее на экране?

как вообще, допустим отобразить данные на экране?
допустим есть код:
Public Sub main()
    Dim cmd As ADODB.Command
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = CurrentProject.Connection
    cmd.CommandText = "Select * from company"
    cmd.Execute
    Set cmd = Nothing
End Sub

на экране пусто! ничего не отображается. Как сделать так, чтобы стало отображаться?