0

Class Tovar:

Public Code As Integer
Public Number As String
Public manufacturer As String
Public tovar_type As String
Public group As String
Public comment As String

Основной код:

Sub main()
    Dim mdb:    Set mdb = Access.CurrentDb
    Dim sSQL As String:     sSQL = "SELECT * FROM [SOTRAS]"
    Dim rst As Recordset:   Set rst = mdb.OpenRecordset(sSQL)
    Dim item As Tovar


    Do While Not rst.EOF
        Set item = New Tovar
        item.Code = rst.Fields("Êîä")
        item.manufacturer = rst.Fields("Ïðîèçâîäèòåëü")
        item.Number = rst.Fields("Íîìåð")
        item.tovar_type = rst.Fields("Òèï")
        add_tovar (item)
        rst.NextRecordset

    Loop

    rst.Close: Set rst = Nothing
    mdb.Close: Set mdb = Nothing


End Sub

Sub add_tovar(a As Tovar)
     .....
End sub

При запуске в строке add_tovar (item) вылетает ошибка:

Object doesn't support this property or method (Error 438)

3 ответа 3

1

Разобрался. Правильно использовать такие строки:

Call add_tovar(item)
rst.MoveNext
0

Если вы вызываете процедуру без возвращаемого значения, то в коде её вызов можно написать двумя способами:
Call add_tovar(item)
либо
add_tovar item

0

определите тип в самом начале модуля

Type Tovar
   Price as Single
   Name as String
   TypeTovar as Byte
   Manufact as string
End Type


# затем 

Sub main()
    Dim mdb:    Set mdb = Access.CurrentDb
    Dim sSQL As String:     sSQL = "SELECT * FROM [SOTRAS]"
    Dim rst As Recordset:   Set rst = mdb.OpenRecordset(sSQL)
    Dim item As Tovar

# И все остальное

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.