Разработка приложений в ACCESSe (VBA). Лабораторная работа

1

Лабораторная работа № 3

Разработка приложений в ACCESSe (VBA)

Одним из объектов БД являются модули. МОДУЛИ — процедуры  обработки событий или выполнения вычислений, написанные на языке Visual Basic for Application (VBA)

Option Compare Database

Public Sub progr()

Dim dbs As Database

Dim tabl As DAO.Recordset

Set dbs = CurrentDb()

Set tabl = dbs.OpenRecordset("Таблица1", dbOpenTable)

n = 2

Dim a(1 To 10) As Integer

Dim b(1 To 10) As Integer

Dim q(1 To 10) As Integer

Dim x(1 To 10) As Integer

c = 0

For i = 1 To n

With tabl

.AddNew

!пок_1 = Val(InputBox("Введите показатель1"))

!пок_2 = Val(InputBox("Введите показатель2"))

!пок_3 = Val(InputBox("Введите показатель3"))

!пок_4 = Val(InputBox("Введите показатель4"))

tabl.Update

i = i + 1

End With

Next

i = 1

tabl.MoveFirst

Do Until tabl.EOF

With tabl

tabl.Edit

a(i) = !пок_1

b(i) = !пок_2

q(i) = !пок_3

x(i) = !пок_4

MsgBox " x=" & i & x(i)

i = i + 1

tabl.MoveNext

End With

Loop

Call sr(a(), b(), q(), x(), n)

End Sub

Sub sr(a() As Integer, b() As Integer, q() As Integer, x() As Integer, n)

Dim c(1 To 10) As Integer

For i = 1 to n

c(i) = q(i) + x(i)

MsgBox " c=" & i & c(i)

next

End Sub

← Предыдущая
Страница 1
Следующая →

Одним из объектов БД являются модули. МОДУЛИ — процедуры  обработки событий или выполнения вычислений, написанные на языке Visual Basic for Application (VBA)

У нас самая большая информационная база в рунете, поэтому Вы всегда можете найти походите запросы

Искать ещё по теме...

Похожие материалы:

Сохранить?

Пропустить...

Введите код

Ok