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

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    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.


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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.]

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3227
    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.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    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.


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    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: Sab 03 Dez 2016, 15:36