1. Следуя одному примеру из учебника создал проэкт с двумя формами и модулем!
2. Ввёл следующий код:
Модул:
- Код: Выделить всё
Public TestArrey(9, 6) As Variant
Public i As Integer, j As Integer, h As Integer
Public n As Integer
Public max As Integer
Первая форма:
- Код: Выделить всё
Private Sub Command1_Click()
TestArrey(n, 1) = Text1(1): TestArrey(n, 2) = Text1(2)
TestArrey(n, 3) = Text1(3): TestArrey(n, 4) = Text1(4)
TestArrey(n, 5) = Text1(5): TextArrey(n, 6) = Text1(6)
n = n + 1
End Sub
Private Sub Command2_Click()
For n = 0 To 8
TestArrey(n, 1) = Text1(1): TestArrey(n, 2) = Text1(2)
TestArrey(n, 3) = Text1(3): TestArrey(n, 4) = Text1(4)
TestArrey(n, 5) = Text1(5): TextArrey(n, 6) = Text1(6)
Data1.Recordset.MoveNext
Next n
End Sub
Private Sub Command3_Click()
Unload Me
Form2.Show
End Sub
Вторая Форма
Private Sub Command1_Click()
For i = 0 To 8
For j = 1 To 6
List1(i).List(j - 1) = TestArrey(i, j)
Next j, i
End Sub
Private Sub Command2_Click()
max = TestArrey(0, 3)
For h = 1 To 8
If TestArrey(h, 3) > max Then max = TextArrey(h, 3)
Next h
Label1.Caption = max
End Sub
осталось толко свойства у объекта Data настроить. Нажимаю на свойство DataBaseName Выбераю зарание подготовленную базу(Access) , перехожу к свойству RecordSourse , Но компютер выдаёт сообшение что формат базы данных не узнан!?
Что делать и что здесь не так
