MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Enviar registro atual do formulário

    Compartilhe

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Enviar registro atual do formulário

    Mensagem  Caio em Qui 14 Jul 2016, 21:16

    Poderiam me ajudar?
    Uso esse código para enviar um formulário em aberto, funciona normal... Porem ele enviar todos registros, gostaria de saber se é possível enviar somente o regístro do formulário em aberto.

    Código:
    Private Sub bt_salvarenviar_Click()
    On Error Resume Next

        Dim stFormName As String
        Dim contact As String
        Dim CC As String
        Dim cco As String
        Dim Subject As String
        Dim Body As String
        
        stFormName = "fml_tratativa"
        contact = "Destinataio@gmail.com"
        CC = "copia@gmail.com"
        cco = "copiaOculta@gmail.com"
        Subject = "Tratativas"
        Body = "Olá" + vbNewLine + "Segue em anexo arquivo da tratativa de N° " & Me.txt_id
        DoCmd.SendObject acForm, stFormName, acFormatPDF, contact, CC, cco, Subject, Body
        
    Exit_bt_salvaenviar_Click:
        Exit Sub

    Err_bt_salvarenviar_Click:
        Dim erro As String
        erro = MsgBox("Esse contato não possui e-mail cadastrado.", vbOKOnly)
    End Sub

    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]Enviar registro atual do formulário

    Mensagem  wellingtoneo em Dom 17 Jul 2016, 16:58

    Amigo, não sei se vai resolver, mas eu tentaria duas coisa.

    A 1ª alterar a propriedade do formulário guia Outra e Ciclo para registro atual.

    e a segunda uma consulta sql retornando o registro que eu quero... tipo Select * from sua tabela where id = 123.

    Tente ai e me fala.


    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Enviar registro atual do formulário

    Mensagem  Caio em Seg 18 Jul 2016, 21:05

    Tentei a primeira opção e não deu certo, me explique melhor a segunda opção porfavor?

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Enviar registro atual do formulário

    Mensagem  Caio em Seg 18 Jul 2016, 21:19

    Fiz o seguinte:

    Private Sub bt_salvarenvia_Click()
    DoCmd.OpenReport "Tratativas", acViewPreview, "", "[ID]=[forms]![fml_fotoinspetor]![ID]", acNormal 'abre o relatorio
    On Error Resume Next

       Dim stReportName As String      'alterei o código para abrir um relatório em vez de um form.
       Dim contact As String
       Dim CC As String
       Dim cco As String
       Dim Subject As String
       Dim Body As String
       
       stReportName = "Tratativas"
       contact = "destinatario@max.com.br"
       CC = "copia@max.com.br"
       cco = ""
       Subject = "Tratativas"
       Body = "Olá" + vbNewLine + "Segue em anexo arquivo da tratativa de N° " & Me.txt_id
       DoCmd.SendObject acReport, stReportName, acFormatPDF, contact, CC, cco, Subject, Body
       
    Exit_bt_salvaenvia_Click:
       Exit Sub

    Err_bt_salvarenvia_Click:
       Dim erro As String
       erro = MsgBox("Esse contato não possui e-mail cadastrado.", vbOKOnly)
    End Sub

    Funcionou perfeitamente, espero que ajude os demais que tiveram a mesma dificuldade.

      Data/hora atual: Dom 11 Dez 2016, 00:16