none
Erro ao usar Dim dbs As DAO.Database RRS feed

  • Pergunta

  • Bom dia !

    Estou usando o Access 2010, preciso de guardar o valor de uma consulta e inseri-la em outra tabela para criar um gráfico. Até agora só aprendi a executar a consulta em vba, porém está com um erro na variável dbs (onde coloco o nome do banco de dados). Precisa de alguma configuração?  ou está faltando comando? Podem me ajudar, agradeço desde já.

    Private Sub Comando8_Click()

    Dim dbs As DAO.Database
    Dim rsSQL As DAO.Recordset
    Dim strSQL As String

    Set dbs = instituitox ' o compilador mostre erro nesta linha

    strSQL = "SELECT Count(*) AS OutrasCidades FROM Tb_Cadt_Familia WHERE (((Tb_Cadt_Familia.Naturalidade)<>'uberlândia'));"
    Set rsSQL = dbs.OpenRecordset(strSQL, dbOpenSnapshot)

    End Sub


    terça-feira, 24 de março de 2015 12:10

Respostas