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


3 participantes

    Como usar função If e Msgbox

    avatar
    LukitoMDS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Como usar função If e Msgbox

    Mensagem  LukitoMDS 23/1/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  criquio 23/1/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: 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.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  Silvio 23/1/2014, 17:02

    veja se isso lhe atende.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  Silvio 23/1/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  criquio 23/1/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: 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.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  Silvio 23/1/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    LukitoMDS
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  LukitoMDS 28/1/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  criquio 28/1/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: 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.


    Conteúdo patrocinado


    Como usar função If e Msgbox Empty Re: Como usar função If e Msgbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 20:09