Access Tip - Usando e Executando Queries com VBA - Using and Running Queries in VBA Code

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Você tem direito as informações da sua empresa

Extrair informações de modo rápido de dentro de um Recordset pode ser muito prático no nosso dia-a-dia. Pensando nisso divulgo a funcionalidade abaixo, aproveite!

Passe uma Tabela ou Query como parâmetro:

Public Sub BrowseQuery_DAO(nRecordSet as String)

   ' Mostre o conteúdo de uma query com seus respectivos campos numa janela qualquer usando DAO

   Dim dbs As DAO.Database

   Dim rst As DAO.Recordset

   ' Abra o pointer no databse atual.

   Set dbs = CurrentDb

   ' Abra um Recordset salvo na query.

     Set rst = dbs.OpenRecordset(nRecordSet)

   ' Mostre os dados de um registro e mova-se para o próximo até o final

   Do While Not rst.EOF

     'Debug.Print "Company: " & rst![Company] & " Sales: " & rst![Sales] & " Sales: " & rst![Profits]

     rst.MoveNext

   Loop

   rst.Close

   dbs.Close

  End Sub 

Tags: VBA, Access, DAO, recordset, database,