Delphi Com Access

[Guest Joao Batista]

Olá a todos...

Preciso saber se há como executar, pelo delphi 7, as macros montadas no access. como fazer para chamar essas macros...

Obrigado.

[Guest Visitante]

estou com a mesma duvida!

[Micheus]

João Batista, eu já utilizei desta forma para executar funções escritas nos módulos. Veja se este exemplo funciona para macros também:

procedure TForm1.Button3Click(Sender: TObject);
var
  OLEAccess :OLEVariant;
  Extenso :Variant;
begin
  try
   // Se já estiver rodando...
    OLEAccess := GetActiveOleObject('Access.Application');
  except
   // Carrega caso não esteja rodando
    OLEAccess := CreateOleObject('Access.Application');
  end;
  OLEAccess.Visible := False; // Deixa o access oculto
  OLEAccess.OpenCurrentDatabase('C:\Projetos\EMI\EMI.mdb', True);  // abre o banco de dados em questão
  Extenso := OLEAccess.Run('Extenso', '123,55');  // nome da função, seguido do parâmetro
  Label1.Caption := VarToStr(Extenso);  // Converte resultado em variant para string
  OLEAccess.Quit(2); // Sai sem gravar
end;

[]s