MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Como usar função If e Msgbox

    Compartilhe

    LukitoMDS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/01/2014

    Como usar função If e Msgbox

    Mensagem  LukitoMDS em Qui 23 Jan 2014, 14:55

    Boa tarde galera!
    Estou com um problema e uma dúvida no MS Access e gostaria de saber se alguém pode me ajudar.

    Estou atualizando o sistema de banco de dados da empresa em que trabalho...tenho uma relação de clientes que deveriam receber um reembolso financeiro dentro de um prazo específico. Na tabela, tenho a data em que eles dever receber este reembolso. Gostaria de saber se tem como: cada vez que abrir este BD, surge uma mensagem, mostrando quais são os clientes, cujas datas para reembolso, estão acima de 20 dias à partir da data do cadastro. E se tem como, usar uma fórmula ou função que mostre estes clientes de uma maneira diferenciada (pintada de vermelho, por exemplo).

    Ex.:
    Data do Cadastro: 20/01/2014
    Prazo do Reembolso: 17/02/2014 (ou seja, 20 dias depois da Data do Cadastro)
    Após este prazo, surge uma mensagem avisando sobre o não-pagamento, e este cliente, aparece com seus dados pintados de vermelho)

    Será que me fiz entender? rsrsrs

    Desde já, agradeço!
    Abraçoss
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Como usar função If e Msgbox

    Mensagem  criquio em Qui 23 Jan 2014, 16:54

    Seria mais interessante, ao abrir o bd, caso existam clientes nessa condição, abrir um formulário contínuo com a lista desses clientes e um botão na frente no fim de cada linha para realizar a operação. Seria algo assim no evento "Ao carregar" do formulário principal:

    Código:
    If DCount("*", "NomeDaTabela", "DataVenvimento<=" & Date + 20) > 0 Then
        DoCmd.OpenForm "frmAtrasados"
    End If

    E no evento "Ao carregar" do frmAtrasado:

    Código:
    Me.RecordSource = "SELECT * FROM NomeDaTabela WHERE DataVencimento<=" & Date + 20 & ""

    Seria mais ou menos por aí. Tente adaptar.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3388
    Registrado : 20/04/2011

    Re: Como usar função If e Msgbox

    Mensagem  Silvio em Qui 23 Jan 2014, 17:02

    veja se isso lhe atende.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3388
    Registrado : 20/04/2011

    Re: Como usar função If e Msgbox

    Mensagem  Silvio em Qui 23 Jan 2014, 17:03

    Eita...Criquio...não vi que você respondeu....estava a preparar um exemplo para o colega.
    Me desculpe.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Como usar função If e Msgbox

    Mensagem  criquio em Qui 23 Jan 2014, 17:10

    Sem problemas Silvio. É que eu gosto de dar o caminho das pedras, como diz nosso amigo JPaulo, e deixar o programador queimar um pouco a mufa para tentar adaptar. Acho isso interessante para ajudar a desenvolver o raciocínio lógico Very Happy


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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.

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3388
    Registrado : 20/04/2011

    Re: Como usar função If e Msgbox

    Mensagem  Silvio em Qui 23 Jan 2014, 17:19

    Acho que vou adotar essa politica também......notei que muitos querem quase tudo pronto, sem ter o trabalho de entender a lógica de e da programação...o famoso Ctrl C + Ctrl V.

    Abraços Criquio.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    LukitoMDS
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/01/2014

    Re: Como usar função If e Msgbox

    Mensagem  LukitoMDS em Ter 28 Jan 2014, 19:10

    pô..valew mesmo galera....deu certo aqui...mas agora tenho outra duvida: trabalhando comigo, têm mais 3 pessoas que farão uso do mesmo BD....tem alguma maneira de eu compartilhar o BD para e todos eles e permitir que todos acessem e modifiquem a partir de um unico lugar?
    Ex.: o BD está na minha máquina e eu o compartilhei na rede, porém, a prerrogativa do access é que apenas a pessoa que abrir o BD primeiro pode modificá-lo e as outras serão apenas "leitores". Gostaria de saber ser: sem criar cópias desse BD, todos os usuários podem acessar e modificar os registros dele! Ja tentei usar SkyDrive mas não rolou....o SharePoint é uma boa ferramenta pra isso? Valeew
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Como usar função If e Msgbox

    Mensagem  criquio em Ter 28 Jan 2014, 19:15

    Caso esteja em rede interna, divida o banco em backend e frontend, coloque o backend em uma máquina que será o servidor e coloque uma cópia do frontend em cada máquina. Pesquise por "backend e frontend" no fórum para entender melhor.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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: Qui 30 Mar 2017, 19:32