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]Acontecimento ao carregar um formulário

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3962
    Registrado : 06/11/2009

    [Resolvido]Acontecimento ao carregar um formulário Empty [Resolvido]Acontecimento ao carregar um formulário

    Mensagem  Assis em 13/1/2019, 10:16

    Bom dia Amigos

    Ao carregar um formulário tenho o seguinte código.

    Private Sub Form_Load()

    If Usuario <> "Programador" Then
         MsgBox "Acesso bloqueado.", vbCritical, "Acesso Restrito"
       DoCmd.Close acForm, "Picar"

    Else

    End If

    '-----------------------------------------------------------------------------------------------

    If Form.RecordsetClone.RecordCount = 0 Then
         MsgBox "Não Tem Movimentos Para Conferir ", vbQuestion, "Gestão Despesas"
      DoCmd.Close acForm, "Picar"
    End If


    End Sub


    Queria que quando acontecer o primeiro If  ( If Usuario <> "Programador" Then), fechava logo  o formulário (Picar) e o  segundo If já não ocorria.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3962
    Registrado : 06/11/2009

    [Resolvido]Acontecimento ao carregar um formulário Empty Re: [Resolvido]Acontecimento ao carregar um formulário

    Mensagem  Assis em 13/1/2019, 10:44

    Resolvi assim

    Fica aqui pode servir para alguém.


    If Usuario <> "Programador" Then
    MsgBox "Acesso bloqueado.", vbCritical, "Acesso Restrito"
    DoCmd.Close acForm, "Picar"

    ElseIf Form.RecordsetClone.RecordCount = 0 Then
    MsgBox "N?o Tem Movimentos Para Conferir ", vbQuestion, "Gest?o Despesas"
    DoCmd.Close acForm, "Picar"
    End If




    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Acontecimento ao carregar um formulário Empty Re: [Resolvido]Acontecimento ao carregar um formulário

    Mensagem  ahteixeira em 13/1/2019, 11:48

    Bom dia Assis,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado

    [Resolvido]Acontecimento ao carregar um formulário Empty Re: [Resolvido]Acontecimento ao carregar um formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 09:44