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


2 participantes

    Abrir formulário VBA pelo Power Point

    avatar
    Master_vha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/09/2013

    Abrir formulário VBA pelo Power Point Empty Abrir formulário VBA pelo Power Point

    Mensagem  Master_vha Qua 25 Set 2013, 10:40 am

    Olá meu problema é o seguinte, Criei uma apresentação, PPSM, só que para ela abrir é preciso que o usuário forneça o padrão de senha correto, até ai tudo bem ja fiz.... meu problema é que preciso que essa tela onde se fornece o formulário apareça antes da apresentação..quando o usuário fornecer o correto este formulário chama a apresentação que preciso.

    Alguém pode me ajudar.... meu código está assim

    Private Sub txt3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)


    If txt1 = "1" And txt2 = "3" And txt3 = "2" Then
    MsgBox (" Acesso realizado com sucesso")
    Dim appPP As Object
    Dim Pres As Object
    Dim Caminho As String
    Caminho = "D:\xxxx\apresentação1.ppsm"
    Set appPP = CreateObject("PowerPoint.Application")
    Set Pres = appPP.Presentations.Open(Caminho)
    Pres.SlideShowSettings.Run
    Pres.SlideShowSettings.Run
    FrmAcesso.Enabled = False

    Else
    MsgBox (" O padrão não confere")
    txt1.SetFocus
    txt1 = ""
    txt2 = ""
    txt3 = ""
    End If

    End Sub

    Private Sub UserForm_Initialize()

    Me.Caption = "Forneça o Padrão Correto!"
    Me.BackColor = RGB(10, 25, 100)

    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Abrir formulário VBA pelo Power Point Empty Re: Abrir formulário VBA pelo Power Point

    Mensagem  criquio Qua 25 Set 2013, 10:51 am

    Olá, seja bem vindo ao fórum!

    Por que não usa um campo só e coloca as linhas de código no evento "Após atualizar" desse campo? Ou então passe isso para o clique de um botão.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: Qui 21 Nov 2024, 10:40 am