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
Nenhum comentário:
Postar um comentário