SANDWICH PROJECT 2016 - VBA Access: Copiando query com outro nome programaticamente

SANDWICH PROJECT 2016 - VBA Access: Copiando query com outro nome programaticamente

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.

 Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA 

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