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.

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


Nenhum comentário:

Postar um comentário

diHITT - Notícias