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


    [Resolvido]Dmax com Dlookup

    avatar
    Convidado
    Convidado


    [Resolvido]Dmax com Dlookup Empty [Resolvido]Dmax com Dlookup

    Mensagem  Convidado 10/3/2015, 09:30

    Bom dia a todos,

    Venho pedir um pequeno help em relação a uma BD que estou a desenvolver.
    Tenho uma Tabela "TblReservas" onde existe 3 Campos.
    TxtDatareserva = Campo Data
    TxtDataentrega = Campo Data
    TxtEntregue = Campo Sim/Não

    Gostaria adaptar o código abaixo para que ele me dar o valor entre data Hoje e a data maxima da tabela onde o campo Txtentregue fosse = -1.
    O Código funciona sem a parte do "DLookup", não sei se estou a aplicar bem o DLookup para ele verificar se a data maxima esta com valor "-1" no campo "Txtentregue".


    If Day(Date) - Day(DMax("[txtdatareserva]", "tblReservas")) >= 2 And DLookup("[txtentregue]", "tblReservas", "[txtentregue] = -1") Then
    If MsgBox("Voçê Tem Reservas pendentes a " & Day(Date) - Day(DMax("[txtdatareserva]", "tblReservas")) & " dias." & vbCrLf _
    & "Deseja visualizar Reservas?", vbInformation + vbYesNo, "Info") = vbYes Then
    DoCmd.OpenForm "FrmReservas", acNormal, , , , acWindowNormal
    End If
    MsgBox "Tenha um Bom Trabalho... ", vbInformation, "Info"
    End If

    Abraço... Cool
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Assis 10/3/2015, 10:55

    Bom dia Roberto
    Como o Roberto cosyuma perguntar:
    Pode postar para poder dar um Help?
    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Convidado 10/3/2015, 11:11

    Bom dia Grande Assis,

    Tem toda a razão, com um exemplo é sempre mais fácil ajudar....  Embarassed


    Abraço... Cool
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Assis 10/3/2015, 12:20

    Roberto
    Quando é que o caixa sim/Não [txtentregue] é alterado ?
    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Convidado 10/3/2015, 13:20

    Boa tarde,

    Ia fazer com que fosse ao enviar email.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Assis 10/3/2015, 14:42

    Roberto

    Teste por favor


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Convidado 10/3/2015, 14:52

    Boa tarde,

    Era isso mesmo, muito obrigado Assis.

    Ps: Reparei que se alterasse o mês ele só me conta os dias Ex: 02-03-2015 até 10-03-2015 = 8 dias.
    mas se alterar para 02-02-2015 até 10-03-2015 ele continua a dizer 8 dias.
    Há alguma forma de ele me contar os dias de diferença mesmo que mude o mes? Ex: 36 dias (02-02-2015 até 10-03-2015).

    Vou estudar maneira para dar certo, mas o que voçê fez ja me desenrasca.

    Abraço... Cool
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Assis 10/3/2015, 14:58

    Teste
    Altere a mensagem para esta

    MsgBox "Voçê Tem Reservas Pendentes a " & DateDiff("d", DLookup("txtdatareserva", "Qry_Reservas"), Date) & " dias." & vbCrLf & "Deseja visualizar Reservas?", vbInformation
    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Convidado 10/3/2015, 15:03

    Boa tarde,

    Quem sabe... sabe.
    cheers cheers cheers cheers cheers cheers cheers cheers cheers cheers

    Está perfeito.

    Abraço grande Assis. Cool
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Assis 10/3/2015, 15:05

    Obrigado pelo retorno Roberto, o forum agradeçe.

    PS - Parece que tem trabalho aí para mim ?


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Convidado
    Convidado


    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Convidado 10/3/2015, 15:19

    Obg... Cool

    Conteúdo patrocinado


    [Resolvido]Dmax com Dlookup Empty Re: [Resolvido]Dmax com Dlookup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 17:30