[Resolvido]Codigo para consulta

Amigos qual o codigo que devo criar num modulo para que se ao executar a consulta aparecer o valor "Maria" executa macro_Maria

Obrigado e abraço

Você pode converter as macros em VBA. Veja no separador Macros

Boa tarde Mestre Vieira,

Antes de colocar aqui este post andei a investigar e fiz alguns testes mas nao consegui obter o resultado que eu pretendo. com este codigo:
If DCount("*", "qry_envio_mail_Ligia") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Ligia"
A Macro é activada sempre que a consulta contenha dados ...
Agora eu queria que a macro fosse activada so quando encontra-se o valor "Ligia" no campo "CC" ...
Qual o codigo que devo escrever. Desculpe a minha insitencia mas ainda estou a começar em vba

Abraço

teste;

If DCount("*", "qry_envio_mail_Ligia", "[CC] ='Ligia'") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Ligia"

Se algum dia quiser com dois (2) criterios por exemplo esse seu criterio e outro entre datas;


If DCount("*", "qry_envio_mail_Ligia", "[CC] ='Ligia' And [SeuCampoData] Between #01/03/2011# And #31/03/2011#") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Ligia"
Else
Exit Sub
End If

Perfeito é a segunda vez hoje que o amigo JPaulo me safa
E dá para fazer no mesmo modulo procurar diferentes nomes e cada nome activa uma diferente macro?




Muito Obrigado tambem pela sua ajuda mestre Vieira, para outra base dados que fiz usei um exemplo que me forneceu onde os maisl eram enviados com base na selecçao dos destinatarios num formulario e funciona lindamente...

Dá sim para tantos quantos quiser;

If DCount("*", "qry_envio_mail_Ligia", "[CC] ='Ligia'") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Ligia"
ElseIf DCount("*", "qry_envio_mail_Ligia", "[CC] ='Vieira'") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Vieira"
ElseIf DCount("*", "qry_envio_mail_Ligia", "[CC] ='Alexandre'") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Alexandre"
ElseIf DCount("*", "qry_envio_mail_Ligia", "[CC] ='Jose'") > 0 Then
DoCmd.RunMacro "qry_envio_mail_Jose"
End If

Vou testar mais logo ...
Bom fim de semana e muito obrigado