Update code to show leading zeros

[NikoTheBowHunter]

so with some help from an experienced Access user on this site I was able to get the following code to work on my form:



Private Sub Enter_New_Note_Click()
Me.[Notes History] = Date & " | " & Me.Text138 & vbCrLf & Me.[Notes History]
Me.Text138 = Null
End Sub

code works, enters new line of text with the date in front. Only thing I would like to update is that the date shows leading zeros so all my comments line up in the box. Is there a way to do this or am I just SOL?

And please don't hate to hard on my coding, this is my first db ever and its a slow and fun learning process!!

Thanks!

[ranman256]

if text123 has the number , use the format command

format(me.text138,"0000")

[NikoTheBowHunter]

text123 is an unbound text box where a user can enter his or her notes, then press the Add New Note button, which runs the above code and puts it all into the [Notes History] field with the date in front of the notes. Can I still use the format(me.text138,"0000") or no? If so, please show me how I should write out the code with my existing code as I have no idea what it should look like.

[Bulzie]

Or
Me.[Notes History] = Format (Date, "mm/dd/yyyy") & " | " & me.text138 & vbCrLf & Me.[Notes History]

[NikoTheBowHunter]

I'll give this a try when I get to work in the morning. Thanks for the help, cheers.

[NikoTheBowHunter]

the above code worked! thanks! I did have to change the code a bit, since the box displaying it was rich text, had to take out the vbcrlf and us <br> instead so it looks like this:

Me.[Notes History] = Format(Date, "mm/dd/yyyy") & " | " & Me.Text138 & "<BR>" & Me.[Notes History]

thanks again for the help!!!