New Line in Comment Box (1 Viewer)

[galvinjaf]

Good Morning,

As I go back and try to refine my database, I am trying to tweak the code that will place a new space between comments in my comment box. It'd be easier on the eyes to see a space in between comments from other users. Right now, when someone updates the comment box, there are not line breaks between the text. I'd like to have a full line space. Here is the programming, and attached is a pic of the comment box.

Option Compare Database

Private Sub AddComment_Click()
If Not IsNull(Me.txtComment) Then
Me.txtComment = vbNewLine & Me.txtComment

End If

Me.txtComment = Now() & " - " & TempVars("sUsername") & " - " & Me.txtNewComment & Me.txtComment

Me.txtNewComment = ""
End Sub

 

[Alc]

Would this work?

 Private Sub AddComment_Click()
      If Not IsNull(Me.txtComment) Then
           Me.txtComment = vbNewLine & Me.txtComment
      End If

      Me.txtComment = Now() & " - " & TempVars("sUsername") & " - " &  Me.txtNewComment & vbNewLine  & Me.txtComment

     Me.txtNewComment = ""
End Sub

 

[galvinjaf]

Would it? YES! I swear I did that, and it didn't work. Thanks again!

 

[jdraw]

Not sure what you really want, but you could try changing

Me.txtComment = vbNewLine & Me.txtComment

to

Me.txtComment = vbNewLine & Me.txtComment & vbNewLine

as a test .

 

[arnelgp]

has it been solved?

Private Sub AddComment_Click()
    If Trim(Me.txtNewComment & "") <> "" Then
        Me.txtComment = Me.txtComment & vbNewLine & _
        Now() & " - " & TempVars("sUsername") & " - " &               Me.txtNewComment    
    End If
    Me.txtNewComment = ""
End Sub

 

[galvinjaf]

Yes, it has. Thank you.