Views

Histats

Vitrine

VBA Access: Copiando query com outro nome programaticamente.

Hello Folks!

Não raro ocorre a necessidade de copiarmos o conteúdo de uma query existente para outra com um nome diferente. Quando esta necessidade surgir, não precisará perder tempo em saber como fazê-lo, abaixo está o caminho.

Dica: Uma forma similar pode ser utilizada para copiar quaisquer objeto do MS Access.


Function CpyNQry(nQryNm As String, nQryNm As String) As Boolean
' André Bernardes 04/2009 bernardess@gmail.com
' Copia uma query qualquer para outra com outro nome.

CurrentDb().CreateQueryDef nQryNm, CurrentDb().QueryDefs(QryNm).SQL

Let CpyNQry = (Len(CurrentDb().QueryDefs(nQryNm).Name) > 0)

Application.RefreshDatabaseWindow
End Function

André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

✔ VBA Brazil®

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