date and time display without seconds error #Name? (1 Viewer)

[Siegfried]

Dear Access experts,

Can you help me out with subject error?
I'm trying to display the date and time entry in the textbox DeliveryDate on my form frmVessels without the seconds, but keep getting #Name? and #Type? errors. I'm spuzzled...

Made following module:

Public Function MySpecialDateFormat(ByVal d As Date) As String
MySpecialDateFormat = Format(d, "mm\dd\yyyy")
 If Hour(d) = 0 Or Minute(d) = 0 Then _
 MySpecialDateFormat = MySpecialDateFormat & _
Format(d, " hh:nn ")
End Function

Set in the form frmVessels the control source of the textbox DeliveryDate to:=MySpecialDateFormat([DeliveryDate])

Form frmVessels based on TblVessels
TblVessels: ShipIDPK, DeliveryDate (Data Type Date/Time General Date)

Thanks.

 

[smig]

Do you want to get the date or time ?

Why not as imply put the format() on the txtBox's controlSource ?

 

[JHB]

Why not format it directly?

Format([DeliveryDate],"mm/dd/yyyy hh:nn")

 

[Siegfried]

Dear Smig, I need date with time e.g. 07/11/2015 14:45.
Dear JHB, I've entered the code in the Control Source ofthe Text Box DeliveryDate but when I go to the form the box displays #Name?

 

[JHB]

Dear Smig, I need date with time e.g. 07/11/2015 14:45.
Dear JHB, I've entered the code in the Control Source ofthe Text Box DeliveryDate but when I go to the form the box displays #Name?

If the text control also is named "DeliveryDate" the rename it.

 

[Siegfried]

I renamed the textbox:
NameateOfTakeOver
Control Source: Format([TakeOverDate],"mm/dd/yyyy hh:nn")
Still getting the #Name? error in the texbox on the form?
Box is marked with: This control has an invalid source.
What am I missing?

 

[Siegfried]

CORRECTION:
I renamed the textbox:
Name: DateOfDelivery
Control Source: Format([TakeOverDate],"mm/dd/yyyy hh:nn")
Still getting the #Name? error in the texbox on the form?
Box is marked with: This control has an invalid source.
What am I missing?

 

[Siegfried]

Befor I confuse you more. Attached screenshot of the properties.

 

[JHB]

You're missing the = before Format.

 

[Siegfried]

Dear JHB thanks for your help, indeed 2 corrections in the code

Control Source: = Format([TakeOverDate];"mm/dd/yyyy hh:nn")

 

[JHB]

Dear JHB thanks for your help, indeed 2 corrections in the code

Control Source: = Format([TakeOverDate];"mm/dd/yyyy hh:nn")

If you've to use the ; depends of from where you're in the wold, US use the ,.