Query()

Retorna o objeto Consulta atualmente selecionado no Relatório de Seção. Para mais informações a respeito deste objeto, consulte o capítulo Consultas. O script a seguir contém um exemplo de uso deste método.

Sub Rect_Click()
  Set Query = Application.LoadReport("[Relatório3]").Query()
  Query.SetVariableValue("Chave1", "XYZ")
End Sub