Prompt Inputbox Excel-Access

[Maurizio]

Hi all,
and sorry if this thread should be post to Access Forum [but Excel Forum is very efficient also].

How can I produce this date (date-30) as Excel's example:

Sub NewSistemDate()
    NewDate = Application.InputBox("new date is ", "Choise new date", Format(Date - 30, "dd/mm/yy"))
End Sub

into Access query criteria:

>=[From Date]

SELECT none_ANACLF.CLF_RGSOC, none_BOLCTE.BCT_DATA, none_BOLCRI.BCR_DESCR, none_BOLCRI.BCR_PZLOR, Round(([none_BOLCRI]![BCR_PZLOR]*1936.27)/100)*100 AS Lire, none_BOLCTE.BCT_BOL
FROM (none_BOLCRI INNER JOIN none_BOLCTE ON (none_BOLCRI.BCR_AZI = none_BOLCTE.BCT_AZI) AND (none_BOLCRI.BCR_NUM = none_BOLCTE.BCT_NUM) AND (none_BOLCRI.BCR_BOL = none_BOLCTE.BCT_BOL)) INNER JOIN none_ANACLF ON (none_BOLCTE.BCT_CLI = none_ANACLF.CLF_CD) AND (none_BOLCTE.BCT_AZI = none_ANACLF.CLF_AZI)
WHERE (((none_BOLCTE.BCT_DATA)>=[From Date]) AND ((none_BOLCRI.BCR_DESCR) Like "*" & UCase([ARTICOLO]) & "*") AND ((none_BOLCTE.BCT_CLI)=[CODICE Cliente]) AND ((none_BOLCRI.BCR_TCOR)<>1) AND ((none_ANACLF.CLF_MS)=98) AND ((none_BOLCRI.BCR_AZI)=2))
ORDER BY none_BOLCTE.BCT_DATA DESC , none_BOLCRI.BCR_DESCR;

Tia.

 

[k209310]

Hi

Im not too clear on what you need but..

Do you need the Queries Criteris to reference the InputBoxs' result?

 

[Russell Hauf]

You're right, this is the wrong forum. Please see my reply to your post in the Access forum.

 

[Maurizio]

You're right, this is the wrong forum. Please see my reply to your post in the Access forum.

Hi Russell,
btw, thanks.