Ajuda para adaptar código para chamar com um clique de botão.

Peço ajuda para corrigir.

Pretendo colocar o código abaixo no Evento ao clicar um botão.

Código:

'------------------------------------------------------------
' EmiteRecibo
'
'------------------------------------------------------------
Function EmiteRecibo()
On Error GoTo EmiteRecibo_Err

    'alterado
    '((veio do maximoaccess ,user controls "imprimir-e-salvar"...).
    Dim strArquivo As String
    Dim strLocal As String
    
    'define nome do arquivo:
    'Me= ao form aberto "ReciboComposição";
    'campo nr do recibo "RecTId"; campo nome da entidade abrev. "TbEntAbv"
    strArquivo = "Recibo" & Me!RecTId & Me!TbEntAbv & ".pdf"
    'aponta para a pasta do ficheiro pdf a criar onde está a bd
    strLocal = CurrentProject.Path & "\recibos\" & strArquivo
    
    
    'sequencia da m/ macro
    DoCmd.Close acForm, "ReciboComposiçãoF"
    DoCmd.OpenQuery "1RecibosEmissaoQ", acViewNormal, acReadOnly
    DoCmd.OpenQuery "2RecibosEmissaoQ", acViewNormal, acReadOnly
    DoCmd.OpenReport "ReciboRelatório", acViewPreview, "", "[RecTId]=DLast(""RecTId"",""RecibosT"")", acHidden
    Beep
    MsgBox "O recibo foi emitido.", vbInformation, "Emissão de recibos"
    
    'alterado
        'Gera arquivo pdf do relatório previamente aberto e filtrado (veio do maximoaccess ,user controls "imprimir-e-salvar"...).
        DoCmd.OutputTo acOutputReport, "ReciboRelatório", acFormatPDF, strLocal
        
    'sequencia da m/ macro
       DoCmd.OpenReport "ReciboRelatório", acViewPreview, "", "[RecTId]=DLast(""RecTId"",""RecibosT"")", acHidden
    


EmiteRecibo_Exit:
    Exit Function

EmiteRecibo_Err:
    MsgBox Error$
    Resume abre_Exit

End Function

O que devo alterar no código do botão?:

Código:

Private Sub Comando285_Click()

End Sub

É o simples;

No click do seu botão é só chamar a função;

Código:

Private Sub Comando285_Click()
    Call EmiteRecibo
End Sub

Obrigado JPaulo pela atenção.

No entanto dá-me

Compile error:
Expected variable or procedure, not module.

A função "Function EmiteRecibo()" não está no VBA do formulario ?

Não.

Converti uma macro em vba e ficou num módulo.

Então copie a função para o VBA do seu formulario, porque na função você está a invocar o Me!RecTId & Me!TbEntAbv

Me é o seu controle ativo, no seu form.

E outra coisa.

Ao código vindo da macro incluí código de outro lado.

Usava num formulário, mas agora quero usar num relatório o "Me." não deve estar bem.

O relatório abre corretamente mas não está a gerar o pdf esperado.

Então como eu quero agora colocar num relatório deve ser em Evento, No atual ou Ao carregar?

Faça sempre todas as tentativas antes de perder tempo a escrever.

Esgotadas as tentativas dê um grito aqui.

Só assim você irá aprender.

Este fórum não é um Chat ou Skype, porque todos temos os nossos trabalhos e apenas nos momentos disponiveis ajudamos e com muito gosto.

Bons estudos

Coloque a função como pública.
Assim vc pode utilizá-la em quaisquer objetos.

Segue:


Public Function EmiteRecibo()

Att,

Já consegui, yes!!!

Quando tiver o código mais "arranjadinho" coloco aqui.

JPaulo escreveu:Este fórum não é um Chat ou Skype, porque todos temos os nossos trabalhos e apenas nos momentos disponiveis ajudamos e com muito gosto.

Tem razão. Peço desculpa e agradeço a v/ paciência e a ajuda inestimável.

É que é extremamente frustrante quando os n/ conhecimentos são limitados e parece que não estamos muito longe de descobrir.
Ás vezes parece que só falta uma virgula, uma expressão... Desistir nunca é opção.

Alexandre Fim escreveu:Coloque a função como pública.
Assim vc pode utilizá-la em quaisquer objetos.

Segue:


Public Function EmiteRecibo()

Obrigado Alexandre, já tinha tentado e o erro era o mesmo.

Pelos vistos tem de estar no form. Foi o que fiz enquanto "trocava impressões" com o colega JPaulo.

Mas enquanto preparo a redação deste post e ando para trás e para a frente para recolher as informações necessárias, vou tentando corrigir aqui e ali aproveitando tb as linhas marcadas a vermelho que apareciam.

Depois dou notícias.

Grato mais uma vez.