Select para calculo de data

[sacofritoxd]

Olá, preciso colocar uma coisa até fácil mas não to sabendo direito como fazer...

Na minha tela de caixa, existe uma trava nos clientes, onde é selecionado um cliente devedor e a seguinte Msgbox é exibida "Este cliente está com uma conta em aberto"

eu queria puxar de uma tabela onde grava o dia em q o cliente foi cadastrado como devedor, e fazer o cálculo com o dia atual para a msg box ficar "Este cliente está com uma conta em abeerto a N dias"

já vi q com a funçao datediff(d,dinicial,dtnow) se faz essa conta

mas não to conseguindo fazer a relação das tabelas em um select para saber deonde vou tirar a data do vencimento e tal..

algm pode me ajudar ?

[raphael_suporte]

você pode executar 2 consultar para cada data, colocando os valores numa variável e depois com suas varáveis preenchidas, basta usar a função

[sacofritoxd]

bom talvez ajude eu colocar cmo ta minha funçao até agr

não entendi direito o que você quis dizer raphael

mas ai vai minha função (select td bichado :()

Function pf_verificadias()

Set DSCAIXA = db.OpenRecordset("select * from caixa where isnull(pagamento) and codcli= " & , dbOpenDynaset)

X = DateDiff(dias, DSCAIXA!VENCIMENTO, Date)

End Function

não isso não funciona...pode me ajudar como terminar a funçao.. meu amigo aki daempresa disse q ta começando certo.. mas faltam algumas coisa as quais não consigo pensar no q são

[sacofritoxd]

Function pf_verificadias()
Set SNCLIENTES = db.OpenRecordset("select * from clientes", dbOpenDynaset)
If SNCLIENTES!dtalterou < Date And SNCLIENTES!trava = "Y" Then
X = DateDiff(D, SNCLIENTES!dtalterou, Date) ' erro aqui
End If
Set DSCAIXA = db.OpenRecordset("select * from caixa", dbOpenDynaset)
    If DSCAIXA!PAGAMENTO = "" And DSCAIXA!VENCIMENTO < Date Then
       X = DateDiff(D, DSCAIXA!VENCIMENTO, Date)
    Else
      GoTo fim
    End If
fim:
End Function

a mesgbox imprime normal mas não sai o valor de X essa rotina está no keypress do cliente no pdv

If SNCLIENTES.NoMatch Then
            dsorcamentos!CODCLI = Null
         Else
            If SNCLIENTES!trava = "Y" Then
              pf_verificadias
              MsgBox "ESTE CLIENTE ESTA COM UMA CONTA EM ABERTO HÁ" & X & " DIAS", vbInformation, "ATENÇÃO"
              op = MsgBox("DESEJA EFETUAR A VENDA?", vbYesNo, "ATENÇÃO")

lembrando q to começando e devo ta fazendo monte de cagada.. mas se algm me ajudar eu agradeço :(

[raphael_suporte]

Sabe qual a mensagem de erro que está aparecendo?? tente usar o d minúsculo.

como está declarando a variável "X" ??