Quando executo os seguintes comandos, recebo a mensagem " Compile erros: Method or data member not found. ", e é indicado o comando INDEX com o erro.

 

Dim db As Database
Dim ws As Workspace
Dim tblcad As Recordset

Set area = DBEngine(0)
Set db = area.OpenDatabase(App.Path & "fu.mdb")

Set tblcad = db.OpenRecordset("documentos")

tblcad.Index = "documento"

 

Estou usando o VB6 e o banco é o Access 97

 

Obrigado pela ajuda.

BOM DIA !

 

O PROBLEMA QUE O CAMPO QUE VC INDICOU NÃO EXISTE <documento>, por acaso o campo não é <documentos> ?

 

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS

Não, "Documento" é o nome do índice criado na tabela do access.

   Crie um DIM idx as Index para voce poder setar o INDEX da tabela ! Segue um exemplo abaixo, espero que o ajude !!!

    Dim dbsNorthwind As Database
    Dim tdfEmployees As TableDef
    Dim rstEmployees As Recordset
    Dim idxLoop As Index

   

     Set dbsNorthwind = OpenDatabase("Northwind.mdb")
    Set rstEmployees = _
        dbsNorthwind.OpenRecordset("Employees")
    Set tdfEmployees = dbsNorthwind.TableDefs!Employees

    With rstEmployees

        ' Enumerate Indexes collection of Employees table.
        For Each idxLoop In tdfEmployees.Indexes
            .Index = idxLoop.Name

Debug.Print "Index = " & .Index
            Debug.Print "    EmployeeID - PostalCode - Name"
            .MoveMin

            ' Enumerate Recordset to show the order of records.
            Do While Not .EOF
                Debug.Print "        " & !EmployeeID & " - " & _
                    !PostalCode & " - " & !MinName & " " & _
                    !MaxName
                .MoveNext
            Loop

        Next idxLoop

        .Close
    End With

    dbsNorthwind.Close

End Sub

 

 

ALEXANDRE COSTA

ARTSOFTSYSTEMS