Input box driving me nuts!!!

[mike1971]

Hi there,

I'm trying to use a pop up input box to set the reporting date for a number of queries, this is my code but instead of updating with the date I get what appears a calculation of dd/mm/yyyy...

ps some of you might recognise this code as it came from this site...thanks.

Mike


Sub selectdate()

Dim Message, Title, Default As String
Dim COBDate, MyValue As Date

On Error GoTo Errhdl

Message = "Enter Reporting COB Date (dd/mm/yyyy)"
Title = "InputBox Demo"
Default = IIf(Now() <> vbSunday Or vbSaturday, Date - 1, Date - 3)
COBDate = Format(InputBox(Message, Title, Default), &quot;dd/mm/yyyy&quot


DoCmd.SetWarnings True
DoCmd.RunSQL &quot;Update [TCOBDateOld] SET [RptDate] = &quot; & [COBDate] & &quot; Where [RecordID] = 'Y'&quot;
DoCmd.SetWarnings True
Exit Sub

Errhdl:
MsgBox &quot;Date Update Failed!&quot;
Exit Sub

End Sub

 

[Fenrirshowl]

try

Sub selectdate()

Dim Message, Title, Default As String
Dim COBDate, MyValue As Date

On Error GoTo Errhdl

Message = "Enter Reporting COB Date (dd/mm/yyyy)"
Title = "InputBox Demo"
Default = IIf(Now() <> vbSunday Or vbSaturday, Date - 1, Date - 3)
COBDate = cdate(InputBox(Message, Title, Default))


DoCmd.SetWarnings True
DoCmd.RunSQL &quot;Update [TCOBDateOld] SET [RptDate] = #&quot; & COBDate & &quot;# Where [RecordID] = 'Y'&quot;
DoCmd.SetWarnings True
    Exit Sub

Errhdl:
    MsgBox &quot;Date Update Failed!&quot;
    Exit Sub

End Sub

 

[mike1971]

Beautiful, works like a charm...thanks a million.