MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    dúvida mostrar mensagem no formulário depois de aberto

    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 01/04/2016

    dúvida mostrar mensagem no formulário depois de aberto Empty dúvida mostrar mensagem no formulário depois de aberto

    Mensagem  raijeweb em 10/11/2020, 12:19

    Olá a todos

    Tenho formulário e um relátório
    preciso que depois do formulário clientes estiver aberto apareça a mensagem

    Para o formulário

    msgbox "bem vindo ao cadastro de clientes"


    Para o relatório
    msgbox "voce está com a relação de clientes aberto"

    em qual evento colocar para aparecer essas mensagens depois de ter sido carregado e aberto o formulário
    no aguardo de voces
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    dúvida mostrar mensagem no formulário depois de aberto Empty Re: dúvida mostrar mensagem no formulário depois de aberto

    Mensagem  Finformática em 10/11/2020, 17:33

    Caro Amigo,

    Crie uma macro com Abrir Formulário / Abrir Relatório e depois Caixa de Mensagem. Abrirá o relatório / formulário e depois a mensagem (sobre).

    Abraços
    avatar
    raijeweb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 180
    Registrado : 01/04/2016

    dúvida mostrar mensagem no formulário depois de aberto Empty Re: dúvida mostrar mensagem no formulário depois de aberto

    Mensagem  raijeweb em 10/11/2020, 17:48


    No caso eu tenho que usar o seguinte código para a mensagem


    Dim lngValue As Long
    Dim strFicheiro As String

    strFicheiro = Application.CurrentProject.Path & "\MsgBoxNotShowAgaain.txt"

    If (FileExists(TrailingSlash(CurrentProject.Path) & "MsgBoxNotShowAgaain.txt")) = True Then

    Exit Sub

    Else

    lngValue = MsgBox("Agora simestá funcionando como eu quero consegui fazer a adaptação do Zcarlos Ao clicar no Botão não vai desativar somente esta mensagem " & vbCrLf & vbCrLf & "deseja ver essa mensagem novamente" & vbCrLf, vbYesNo + vbQuestion, "Atenção!")

    Select Case lngValue

    Case vbYes

    DoCmd.Close
    Exit Sub


    Case vbNo

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile(strFicheiro, True)
    a.WriteLine ("Não Mostra mais a MsgBox.")
    a.Close

    DoCmd.Close
    Exit Sub

    End Select

    End If

    Exit_frmTeste_open:
    Exit Sub

    Err_frmTeste_open:
    MsgBox Err.Description
    Resume Exit_frmTeste_open

    Esse código funciona corretamente em quase todos os eventos de formulários de botões

    mas quero que ele funcione e continue mostrando a caixa essa caixa de mensagem mesmo com o formulário aberto


    não sei se agora conseguir transmitir o o meu objetivo

    no aguardo

      Data/hora atual: 24/11/2020, 08:58