MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Habilitar campo após envio de email.

    Compartilhe
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 13:54

    Bom dia!
    Olá meus amigos, tudo bem ?
    Mas uma vez peço a ajuda de vocês, estou com o seguinte problema.
    Criei um formulário com os colaboradores que estão com os contratos por vencer. E criei neste formulário com campo SIM/NÃO, onde se o mesmo for ser efetivado clica no botão e já abre a tela do outlook para o envio do emeail. Até ai esta tudo funcionando, o problema é que após o envio do email o campo SIM/NÃO ele fica bloqueado para clicar, só volta a ser habilitado quando fecho o formulário e abro de novo. Gostaria que assim que o email fosse enviado o campo voltasse a ser habilitado. Algum amigo poderia me ajudar ?
    Desde já agradeço a ajuda.
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Sidney em 22/10/2018, 14:19

    Almeidar Bom dia!

    tente isso;


    Código:
    Me.nomdocampo.enabled = True

    att; Sidney
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 14:54

    Opa!
    E testei mano, não sei se fiz correto!
    Vou colocar aqui como eu fiz e não funcionou. Logo abaixo tem o código para envio de email pelo outlook.

    rivate Sub Efetivado_Click()
    If Efetivado = não Then
    Me.Efetivado.Enabled = True
    Else
    Me.Efetivado.Enabled = False
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.RefreshRecord
    End If
    If Efetivado = -1 Then

    Dim rs As Recordset

    ' Atribuindo a aplicação ao outlook 2010 da microsoft office

    Set OutApp = CreateObject("Outlook.Application")

    ' Considerando email e senha para login

    OutApp.Session.Logon

    ' Comando VBA

    Set OutMail = OutApp.CreateItem(0)

    'Com OutMail Faça

    With OutMail

    .to = Email 'Nome do campo da tabela

    .Subject = "Colaborador efetivado"

    .CC = ""

    '.CCO = ""

    .Body = "Coloque aqui o testo do email."

    .display

    End With

    End If
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Sidney em 22/10/2018, 15:52

    Almeidar, Não informou nenhuma mensagem de erro?

    att; Sidney
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 15:53

    É ele não da erro, mas o campo SIM/NÃO fica bloqueado até que eu feche o abra o formulário de novo.
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Sidney em 22/10/2018, 18:00

    Tem como mandar uma parte do seu projeto, assim vejo de fato oque esta acontecendo?

    att; Sidney
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 18:02

    ok
    Segue bd, usuario claudio senha 170976.
    Quando abrir verá alguns colaboradores a serem efetivados, clicando em efetivar abrira a tela para envio de email. Após o envio do email gostaria que o campo SIM/NÃO voltasse habilitado para selecionar outro colaborador.

    Esta reclamando do tamanho, um momento
    [Você precisa estar registrado e conectado para ver este link.]



    Última edição por Almeidar em 22/10/2018, 18:28, editado 1 vez(es)
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Sidney em 22/10/2018, 18:18

    o anexo não veio,

    att; Sidney
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 18:28

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Sidney em 22/10/2018, 19:05

    Almeidar,

    Nesta parte, na segunda linha, troque o não por 0(zero).

    Código:
    rivate Sub Efetivado_Click()
    If Efetivado = 0 Then
    Else

    e esqueça os camandos que te passei,

    att; Sidney
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 19:32

    Olá meu amigo!
    Funcionou não. Após o envio do email o botão permaneceu bloqueado mesmo fazendo a alteração que vc me passou.
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 22/10/2018, 21:36

    Olá meus amigos,
    Esse formulário em questão (for_admissão) ele esta baseado em cima de uma consulta (Cons_admissao). Poderia ser esse o motivo de eu não estar conseguindo que após eu clicar no botão SIM/NÃO e enviar o e-mail o botão Sim/NÃO fique habilitado de novo ? Já tentei de vários jeitos e não consegui achar a solução. O amigo Sidney me passou algumas orientações mas não consegui chegar a solução.
    O botão só habilita se eu fechar o for e abrir de novo.
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/10/2012

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Sidney em 23/10/2018, 01:33

    Almeidar,

    teste ai

    att; Sidney
    Anexos
    atendimento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 11 vez(es)
    avatar
    Almeidar
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 269
    Registrado : 03/03/2015

    Re: [Resolvido]Habilitar campo após envio de email.

    Mensagem  Almeidar em 23/10/2018, 12:26

    Bom dia!
    Obrigado Sidney.
    Resolvido!

      Data/hora atual: 14/11/2018, 11:50