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]Caixa de mensagem de aviso.

    Compartilhe
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Caixa de mensagem de aviso.

    Mensagem  wsenna em Ter 30 Maio 2017, 20:38

    Olá Feras de plantão, boa tarde.

    Amigos, como faço para exibir uma caixa de mensagem que indique ao usuário que ele já cadastrou 50 ou múltiplos de 50 processos por Setor?

    Atualmente utilizo o código abaixo no evento Após atualizar do registro:

    If DCount("DtEvento", "tblCadProc", "Setor='" & (Me.Setor) & "'") = 50 Then
    MsgBox "Atenção: Você acaba de incluir 50 processos para o Setor " & Me.Setor & ", " & Chr(13) & "assim é recomendado que você imprima de imediato a Etiqueta " & Chr(13) & "e a Listagem deste Setor. ", vbInformation, " InfoBasic Smart System"
    Else: End If

    O problema é que esse código fica restrito aos 50 primeiros registros e o que pretendo é que essa mensagem seja exibida aos 50, 100, 150 e assim por diante.

    Abraços, WSenna
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    Re: [Resolvido]Caixa de mensagem de aviso.

    Mensagem  wsenna em Ter 30 Maio 2017, 21:49

    Caros Amigos, resolvi a questão com uma consulta a qual denominei de Consulta 76 como a que disponibilizo abaixo:

    SELECT tblCadProc.Setor, Count(tblCadProc.Setor) AS Subtotal
    FROM tblCadProc
    GROUP BY tblCadProc.Setor
    HAVING (((Count(tblCadProc.Setor))=50 Or (Count(tblCadProc.Setor))=100 Or (Count(tblCadProc.Setor))=150 Or (Count(tblCadProc.Setor))=200 Or (Count(tblCadProc.Setor))=250 Or (Count(tblCadProc.Setor))=300 Or (Count(tblCadProc.Setor))=350 Or (Count(tblCadProc.Setor))=400 Or (Count(tblCadProc.Setor))=450 Or (Count(tblCadProc.Setor))=500))
    ORDER BY Count(tblCadProc.Setor) DESC;

    No evento Após Atualizar do registro inseri o código:

    Private Sub Form_AfterUpdate()
    If DCount("*", "Consulta76", "Setor='" & (Me.Setor) & "'") = 1 Then
    MsgBox "Atenção: Você acaba de incluir 50 processos para o Setor " & Me.Setor & ", " & Chr(13) & "assim é recomendado que você imprima de imediato a Etiqueta " & Chr(13) & "e a Listagem deste Setor. ", vbInformation, " InfoBasic Smart System"
    Else: End If
    End Sub

    Assim quando qualquer um dos Setores atingirem a quantidade de 50 ou múltiplos de 50 registros será exebida uma caixa de mensagem sugerindo ao usuário que o mesmo deve imprimir a etiqueta e a listagem referente ao referente Setor.

    Abraços, WSenna
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Caixa de mensagem de aviso.

    Mensagem  ahteixeira em Ter 30 Maio 2017, 23:49

    Olá Wsenna, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Grande abraço Amigo.

      Data/hora atual: Qua 22 Nov 2017, 20:08