СУБД с модулем VB

[neprogrammist]

вот тут задание я никак нипойму как сделать, может вы знаете?

- Для данного программного модуля создать базу данных в СУБД Microsoft Access и через макрос запустить его на выполнение. Результат вывести в виде таблицы.

модуль написан на визуал бэсике, я совершенно в неё не разбираюсь, помогите пожалуйста, как мне это выполнить правильно?

вот модуль:

Public Function прогр(program)
Dim d As Database
Dim s As Recordset
Dim b As Recordset
Dim f As Recordset
Set d = DBEngine.Workspaces(0).Databases(0)
Set f = d.OpenRecordset("Успеваемость")
Set b = d.OpenRecorset("Студенты")
f.Index = "инс"
Do Until b.EOF
f.Seek "=", b!инс
If f.NMatch = True Then
Set s = d.OpenRecordset("УчПланы")
Do Until s.EOF
If b!группа = s!группа Then
f.AddNew
f!инс = b!инс
а!часы = s!часы
f!дисциплина = s!дисциплина
f.Update
End If
s.MoveNext
Loop
End If
b.MoveNext
Loop
MsgBox ("Программа завершена успешно")
End Function

[Teslenko_EA]

Здравствуйте neprogrammist.
Здесь помогают решить проблему, а не "решить" за Вас.
Мой совет, бросайте учебное заведение где учат непонятным (и очевидно бесполезным для Вас) MS Access и VBA. Идите туда где научат грамотно писать "не пойму", и обращаться к тем кому задаете вопрос, это Вам больше пригодится в жизни.
Евгений.

[neprogrammist]

Сообщение от Teslenko_EA

Здравствуйте neprogrammist.
Здесь помогают решить проблему, а не "решить" за Вас.
Мой совет, бросайте учебное заведение где учат непонятным (и очевидно бесполезным для Вас) MS Access и VBA. Идите туда где научат грамотно писать "не пойму", и обращаться к тем кому задаете вопрос, это Вам больше пригодится в жизни.
Евгений.

мне нужны только советы по данной задаче, с чего начать? какие ошибки в условиях?

я не прошу сделать за меня а всего лишь хочу чтобы мне помогли с решением, я полагаю ваши умы это не затруднит

[Teslenko_EA]

"как..это выполнить правильно?" :
1) создать базу данных MS Access
2) создать таблицы с заданными полями и индексами
3) разместить в модуле БД код, предварительно откорректировав его, исправив f.NMatch на f.NoMatch, а!часы на f!часы, ... (это только то что видно "невооруженным" взглядом)
4) наполнить таблицы исходными данными...
5) запустить и выполнить код
6) "результат вывести в виде таблицы" открыть таблицу с результатом, программно можно подобным кодом:

Sub openResult()
    DoCmd.OpenTable "Успеваемость"
End Sub

Удачи Вам.
Евгений.

[neprogrammist]

Сообщение от Teslenko_EA

"как..это выполнить правильно?" :
1) создать базу данных MS Access
2) создать таблицы с заданными полями и индексами
3) разместить в модуле БД код, предварительно откорректировав его, исправив f.NMatch на f.NoMatch, а!часы на f!часы, ... (это только то что видно "невооруженным" взглядом)
4) наполнить таблицы исходными данными...
5) запустить и выполнить код
6) "результат вывести в виде таблицы" открыть таблицу с результатом, программно можно подобным кодом:

Sub openResult()
    DoCmd.OpenTable "Успеваемость"
End Sub

Удачи Вам.
Евгений.

спасибо Евгений =) , но что делать с макросами? в каком порядке их составить?

[Teslenko_EA]

Здравствуйте neprogrammist.
"..что делать с макросами?.." - если запуск программы обязательно должен выполняться макросом - создайте его, выберите из списка событие ЗапускПрограммы и задайте ему Вашу функцию прогр(), (предварительно избавив её конструкцию от бесполезного аргумента (program)).
Евгений.

[neprogrammist]

Сообщение от Teslenko_EA

Здравствуйте neprogrammist.
"..что делать с макросами?.." - если запуск программы обязательно должен выполняться макросом - создайте его, выберите из списка событие ЗапускПрограммы и задайте ему Вашу функцию прогр(), (предварительно избавив её конструкцию от бесполезного аргумента (program)).
Евгений.

привет Евгений =) для выполнения данного модуля мне нужен только этот макрос? может нужно что то ещё ?

спасибо

[Teslenko_EA]

neprogrammist, код выложенной Вами процедуры, называется Function и он действительно должен располагаться в модуле, но "данного модуля" пока я здесь не вижу. Ссылаясь на нумерацию поста #4, пункты 1 - 4, выполняются без участия кода и только выполнение пункта 5 и возможно 6 (для этого переименуйте Sub openResult в Function openResult) может вызываться макросами.
Удачи Вам.
Евгений.