How to add restriction that field is empty.

[AA Arens]

I have button and added the command that places a date and some stripes
in the Notes-field. That works fine. If there is already some text, it
places the date at a next line:

Private Sub Command80_Click()
Me.Notes = Me.Notes & vbCrLf & Format(Date, "dd-mm-yyyy") & " ------ "
Notes.SetFocus
Notes.SelStart = Len(Notes.Value)
End Sub

However, when the Notes field is empty it still places the date at the
next line, leaving the first line empty. How to have the date placed in
the upper-left corner (the start of the field) when it is empty.

Is it something like:

If Me.Notes.Value = 1 Then .... ?
Bart
Access 2003

[Bob Quintal]

"AA Arens" <ba***********@gmail.com> wrote in
news:11**********************@o13g2000cwo.googlegr oups.com:

I have button and added the command that places a date and
some stripes in the Notes-field. That works fine. If there is
already some text, it places the date at a next line:

Private Sub Command80_Click()
Me.Notes = Me.Notes & vbCrLf & Format(Date, "dd-mm-yyyy") & "
------ " Notes.SetFocus
Notes.SelStart = Len(Notes.Value)
End Sub

However, when the Notes field is empty it still places the
date at the next line, leaving the first line empty. How to
have the date placed in the upper-left corner (the start of
the field) when it is empty.

Is it something like:

If Me.Notes.Value = 1 Then .... ?
Bart
Access 2003

If len(me.notes)> 0 then
me.notes = me.notes & vbCrLf
end if
me.notes = me.notes & ....

--
Bob Quintal

PA is y I've altered my email address.

[Bob Quintal]

Bob Quintal <rq******@sympatico.ca> wrote in
news:Xn**********************@207.35.177.135:

"AA Arens" <ba***********@gmail.com> wrote in
news:11**********************@o13g2000cwo.googlegr oups.com:

I have button and added the command that places a date and
some stripes in the Notes-field. That works fine. If there is
already some text, it places the date at a next line:

Private Sub Command80_Click()
Me.Notes = Me.Notes & vbCrLf & Format(Date, "dd-mm-yyyy") & " ------ " Notes.SetFocus
Notes.SelStart = Len(Notes.Value)
End Sub

However, when the Notes field is empty it still places the
date at the next line, leaving the first line empty. How to
have the date placed in the upper-left corner (the start of
the field) when it is empty.

Is it something like:

If Me.Notes.Value = 1 Then .... ?
Bart
Access 2003

If len(me.notes)> 0 then
me.notes = me.notes & vbCrLf
end if
me.notes = me.notes & ....

Access may choke on the code above.

If len(me.notes & "") > 0 then
will not.
--
Bob Quintal

PA is y I've altered my email address.