MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Problemas com declaração de Objeto

    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 21/7/2017, 15:44

    Bom dia,

    tenho um codigo no Vba que estou executando para verificar uma cx de texto, porem quando vou executá-lo ele diz que Objeto é obrigatório.

    Segue abaixo o código.

    Obs: a parte que está dando erro é a parte em destaque.

    Código:
    Public Sub enviaremail1()
    Dim sSaudacao As String
    Dim sAssunto As String
    Dim v_texto1 As String
    Dim v_texto2 As String
    Dim v_espaco As String



    box = MsgBox("Deseja enviar o Email?", vbYesNo)

    If box = 6 Then

    Set oOApp = CreateObject("Outlook.Application")
    Set oOMail = oOApp.CreateItem(oMailItem)

    If Time() < "12:00" Then
    sSaudacao = "Bom dia, <br><br>"
    ElseIf Time() < "18:00" Then
    sSaudacao = "Boa tarde, <br><br>"
    Else
    sSaudacao = "Boa noite, <br><br>"
    End If

    Código:
    If txt_nome_eng1 Is Empty Then
    v_texto1 = Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf txt_nome_eng2 Is Empty Then
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  caiosouza 21/7/2017, 15:57

    Tente:


    Código:
    If Me!txt_nome_eng1 Is Empty Then
    Me!v_texto1 = Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf Me!txt_nome_eng2 Is Empty Then
    Me!v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    Me!v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 21/7/2017, 17:06

    caio obrigado pela resposta, porem ele acusa um erro de uso inválido da palavra-chave Me
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  caiosouza 21/7/2017, 17:59

    Troca os "Me!" por "Me."


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 24/7/2017, 11:53

    Bom dia Caio,

    fiz a alteração que me disse porem continua a mesma msg de erro.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 24/7/2017, 12:34

    Olá a todos,

    Glauco Simoes, será que o erro está na parte destacada a azul?

    If txt_nome_eng1 Is Empty Then
    v_texto1 = Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf txt_nome_eng2 Is Empty Then
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If


    Abraço
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 24/7/2017, 13:29

    ahteixeira bom dia,

    v_texto1 está declarado como String
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 24/7/2017, 14:02

    Olá, bom dia

    E o v_texto é campo  do Form ou variável?

    If txt_nome_eng1 Is Empty Then
    v_texto1= Forms!frmEmail_eco!txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    ElseIf txt_nome_eng2 Is Empty Then
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    Else
    v_texto = Forms!frmEmail_eco!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
    "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail_eco!txt_modelo
    End If


    Abraço
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 24/7/2017, 14:04

    o "v_texto" ja está corrigido, apenas esqueci de adc o numero 1 à ele, mas é a mesma variável do v_texto1.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 24/7/2017, 14:23

    Olá, e o erro continua a dar?
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 24/7/2017, 14:26

    ahteixeira infelizmente sim : /
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 24/7/2017, 14:30

    Olá,
    Talvez seja melhor postar uma base de dados com o objectos envolvidos para se testar.
    Abraço
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 24/7/2017, 14:36

    Segue em anexo o exemplo.
    Anexos
    [Resolvido]Problemas com declaração de Objeto Attachmentdb11.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 5 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 24/7/2017, 16:31

    Olá Glauco Simoes,

    Com o projeto que postou ficou mais facil para compreender e testar.
    Se compilar (ALT+F11 ->DEBUG -> Compile), pode verificar que apresenta erros.

    Como tem o código num módulo separado o ME não funciona.
    Atualizei para o From e alterei a condição do IF com IsEmpty(...), já não apresenta o erro.
    Código:
    Option Compare Database

    Public Sub enviaremail1()
    Dim sSaudacao As String
    Dim sAssunto As String
    Dim texto1 As String
    Dim v_texto2 As String
    Dim v_espaco As String


    box = MsgBox("Deseja enviar o Email?", vbYesNo)

    If box = 6 Then
        Set oOApp = CreateObject("Outlook.Application")
        Set oOMail = oOApp.CreateItem(oMailItem)
       
        If Time() < "12:00" Then
            sSaudacao = "Bom dia, <br><br>"
        ElseIf Time() < "18:00" Then
            sSaudacao = "Boa tarde, <br><br>"
        Else
            sSaudacao = "Boa noite, <br><br>"
        End If

        If IsEmpty(Forms!frmEmail!txt_nome_eng1) Then
            texto1 = Forms!frmEmail!txt_nome_eng2 & sSaudacao & _
            "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail.txt_modelo
        ElseIf IsEmpty(Forms!frmEmail!txt_nome_eng2) Then
            texto1 = Forms!frmEmail!txt_nome_eng1 & sSaudacao & _
            "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail.txt_modelo
        Else
            texto1 = Forms!frmEmail!txt_nome_eng1 & txt_nome_eng2 & sSaudacao & _
            "Por favor elaborar ECO abaixo para o modelo" & Forms!frmEmail.txt_modelo
        End If
       
        v_texto2 = "<span style='font family:""Arial"",""sans-serif"";color:#000000;'>Att,<br><br></span>"
       
        v_espaco = "<br><br><br>"
       
        sAssunto = "Cobrança  "
       
            With oOMail
                .To = Forms!frmEmail!txt_email_eng
                .CC = ""
                .Subject = sAssunto & Forms!frmEmail!txt_assunto
                .HTMLBody = Forms!frmEmail!texto1 & v_espaco & Forms!frmEmail!txt_email & v_espaco & v_texto2
                .Send
               
                Set oOApp = Nothing
                Set oOMail = Nothing
                Set Send = Nothing
               
                MsgBox ("Email enviado com sucesso!")
               
            End With
    Else
            MsgBox ("Operação cancelada!")
            DoCmd.Close
    End If
    End Sub

    Nota, devo alertar que o código ainda apresenta erros mais para a frente, verifique.
    Abraço
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 24/7/2017, 17:17

    ahteixeira muito obrigado pela ajuda.

    Já realizei as alterações nescessarias, porém ainda persiste um erro em que nao consigo resolver.

    Fiz uma rotina para o destinatario do email baseado na rotina que voce me mandou mas o outlook da um erro dizendo que nao reconhece um ou mais nomes.

    Código:
    If IsEmpty(Forms!frmEmail_eco!txt_email_eng1) Then
    sDestinatario = Forms!frmEmail_eco!txt_nome_eng2
    ElseIf IsEmpty(Forms!frmEmail_eco!txt_email_eng2) Then
    sDestinatario = Forms!frmEmail_eco!txt_nome_eng1
    Else
    sDestinatario = Forms!frmEmail_eco!txt_nome_eng1 & Forms!frmEmail_eco!txt_nome_eng2
    End If
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 25/7/2017, 00:07

    Olá Glauco Simoes,
    Talvez seja melhor atualizar o exemplo da mensagem nº 13 com as alterações.
    Assim fica mais fácil para ajudar.
    Abraço
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 25/7/2017, 11:44

    Bom dia ahteixeira,

    segue o exemplo atualizado.

    Obrigado pela atenção.
    Anexos
    [Resolvido]Problemas com declaração de Objeto Attachmentdb1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 28/7/2017, 10:47

    Olá, o seu projeto ainda apresentra erros.
    Tem campos vazios ocultos que dão o erro de Null.
    Não estou a compreender o que pretende.

    Veja este tuturial do nosso colega Avelino Sampaio se ajuda:
    usandoaccess.com.br/dicas/outlook-anexos-richtext-account.asp
    Copiar e colar no Browser

    Abraço
    avatar
    glaauco
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 09/01/2017

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  glaauco 7/8/2017, 17:09

    Bom dia ahteixeira,

    depois de olhar o tutorial eu consegui resolver minha dúvida.

    Muito obrigado!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Alvaro Teixeira 7/8/2017, 18:10

    Olá Glauco Simoes,
    Obrigado pelo retorno.
    O fórum agradece.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Problemas com declaração de Objeto Empty Re: [Resolvido]Problemas com declaração de Objeto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:11