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

    Problemas com MsgBox - quero uma de mais de um funcionário

    avatar
    reginaldojunior
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 30/10/2012

    Problemas com MsgBox - quero  uma de mais de um funcionário Empty Problemas com MsgBox - quero uma de mais de um funcionário

    Mensagem  reginaldojunior 30/10/2012, 12:05

    Olá pessoal,

    Seguinte, estou elaborando um banco de dados baseado no sistema de gestão de Segurança do Trabalho da empresa. Esta empresa é de marcenaria, portanto cada um usa seus respectivos EPI's.
    Oque me incomoda é a MsgBox, que eu criei tranquilo... para uma pessoa.
    Em um formulário eu solicito entregas de EPI's.
    Em um outro formulário essas informações são aglomeradas. Adicionei um botão chamado "Verificar trocas" justamente para quando clicar nele, se a data da troca for igual a data atual, irá emitir uma msgbox com essa mensagem: O funcionário "fulano" necessita de troca para o EPI: "tal tal". Favor efetuar a troca do mesmo.

    Mas e quando são duas pessoas que necessitam?

    O código que eu elaborei é esse:

    Private Sub Comando18_Click()
    If Me.DataTroca = Data Then
    MsgBox ("Funcionário " & Funcionário & " necessita de troca para o EPI: " & EPI & ". " & Chr13 & " Favor efetuar a troca do mesmo.")
    End If

    End Sub

    Estou quebrando a cabeça para descobrir como coloca um código que aparece uma msgbox com o seguinte:
    Quando for um funcionário: a msgBox que eu elaborei.

    Quando for mais de um:"O funcionário 'fulano' necessita de troca para o EPI: 'taltal'
    O funcionário 'ciclano' necessita de troca para o EPI: 'taltal'
    O funcionário 'beltrano' necessita de troca para o EPI: 'taltal'
    Favor efetuar a troca dos EPI's."
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Problemas com MsgBox - quero  uma de mais de um funcionário Empty Re: Problemas com MsgBox - quero uma de mais de um funcionário

    Mensagem  criquio 30/10/2012, 12:49

    Ao invés da msgbox, utilize um formulário contínuo para filtrar as datas que vencem na data atual. Assim, caso a quantidade de registros que satisfaçam à essa condição seja maior do que zero, abre-se esse formulário contínuo.


    .................................................................................
    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: 11/5/2024, 13:25