Views

Histats

Vitrine

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



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,



✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias