Модуль в бд Access 2000

[SergeyS3]

Помогите пожайлуста!!!

Подскажите пожайлуста возможно ли с помощью VB 6.0 в создать модуль в бд Access 2000 или XP, который будет сможет считывать данные из подчиненной формы (значение двух из полей, например X и Y), затем, в цикле, увеличит X на еденицу Y раз и выведет результаты в этой же подчиненной форме в другом вычисляемом поле? Если возможно, покажите на примере как это сделать. Заранее благодарю.

[Scuder]

Что-то я не вижу связи между VB6 и модулем Access..

Если я правильно понял, тебе нужна обычная функция, которую можно написать в обычном Access'овском модуле, и которую можно запускать из обычной Access'овской формы..

Положи на форму 3 текстбокса (X, Y и Result) и кнопку.

К кнопке код:

Код: Выделить всё

Private Sub Кнопка7_Click()

DoSomthing

End Sub

И вставь это в модуль:

Код: Выделить всё

Function DoSomthing()

Dim i As Integer
Dim MX As Integer
Dim MY As Integer

Dim MResult As Integer

If IsNull(Forms!form1!X) = False Then
    MX = Forms!form1!X
Else
    MsgBox "X=Null!"
    Exit Function
End If

If IsNull(Forms!form1!Y) = False Then
    MY = Forms!form1!Y
Else
    MsgBox "Y=Null!"
    Exit Function
End If

MResult = MX

For i = 1 To MY
MResult = MResult + 1
Next i

Forms!form1!Result = MResult

End Function

[SergeyS3]

Спасибо Scuder !!!
Все классно !!!