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

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

    avatar
    raijeweb
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 736
    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 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 217
    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 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: 22/9/2021, 06:25