Здравствуйте!
Скажите пожалуйста, вот работаю в Access 2003 на языке VBA пытаюсь создать новые таблицы.
Процедура по созданию таблиц полностью работает
Далее прописываю процедуру по открытию и закрытию базы данных.
1-Sub DisplayFields()
2-Const DatabasePath = "F:\Study\work with database\database\VBA\CONTACTS.mdb"
3-Const ProviderStr = "Provider = Microsoft.Jet.OLEDB.4.0;" + "Data source = " + DatabasePath
4- Dim Connection As New ADODB.Connection
5- Dim Catalog As New ADOX.Catalog
6- Dim RecordSet As New ADODB.RecordSet
7- Dim Field As Field
8-Connection.Open ProviderStr
9- Set Catalog.ActiveConnection = Connection
10- RecordSet.Open "CONTACTS", Catalog.ActiveConnection, adOpenKeyset
11- RecordSet.Fields.Refresh
12- For Each Field In RecordSet.Fields
13- Debug.Print Field.Name & "," & Field.Type & "," & Field.FieldSize
14- Next
15- RecordSet.Close
16- Set RecordSet = Nothing
17- Set Catalog = Nothing
18- Connection.Close
19- Set Connection = Nothing
20-End Sub
Здесь прописывается массив Dim Field As Field и цикл, который описан под строчками 12-14.
Отслеживающий счётчик доходит до 12 строчки и выдаёт ошибку "Type mismath", и кроме этого в 13 строчке над фразами Field.Name, Field.Type и Field.FieldSize идёт всплывающая строчка <Object variable or With block variable not set>.
Помоги пожалуйста решить эту проблему. Заранее спасибо!
