Struggling with command to add/update text field

[templeowls]

I'm struggling with the below code for a command button. The field I'm trying to update is a long text field. Essentially, if the field is blank, I just want the date/comment to go right in, so to speak. But if there's existing text, I want to skip two lines and then put the date/comment.

I'm not getting any errors, but the field is not updating with the date/comment. For either situation. I'm very new to VBA, so I'm sure that I'm doing these if functions completely wrong. Any suggestions?

Private Sub btnUpdateResolution_Click()On Error GoTo btnUpdateResolution_Click_Err


    If Me.Resolution = Null Then
    Me.Resolution = Date & ": comment"
    End If
    Me.Dirty = False

    If Me.Resolution <> Null Then
    Me.Resolution = Me.Resolution & vbCrLf & vbCrLf & Date & ": comment"
    End If
    Me.Dirty = False

    
    Call Form_Current
    
btnUpdateResolution_Click_Exit:
    Exit Sub


btnUpdateResolution_Click_Err:
    MsgBox Error$
    Resume btnUpdateResolution_Click_Exit


End Sub

[orange]

Do you have a field called "comment"?
You have a control on a form called resolution.
How do these fit together?
I've seen and have used long text fields to store dated comments.
But I would recommend you use a real table, structured to meet your needs.

[templeowls]

I'm sorry. The 'comment' is what I want added to the field. It's not a field itself.

I'm basically trying to add '7/26/2022: comment' to the field

[CJ_London]

You cannot use = null in this way you need to use the isnull function

If Isnull(Resolution) then

[ssanfu]

Also, the control is either NULL or not NULL, so there is no need for two tests.
Try

Private Sub btnUpdateResolution_Click()
   On Error GoTo btnUpdateResolution_Click_Err

   If IsNull(Me.Resolution) Then
      Me.Resolution = Date & ": comment"
   Else
      Me.Resolution = Me.Resolution & vbCrLf & vbCrLf & vbCrLf & Date & ": comment"
   End If
   Me.Dirty = False
   
   Call Form_Current
    
btnUpdateResolution_Click_Exit:
    Exit Sub

btnUpdateResolution_Click_Err:
   MsgBox Error$
   Resume btnUpdateResolution_Click_Exit

End Sub

This also works

Private Sub btnUpdateResolution_Click()
   On Error GoTo btnUpdateResolution_Click_Err

   Me.Resolution = Me.Resolution & IIf(IsNull(Me.Resolution), "", vbCrLf & vbCrLf & vbCrLf) & Date & ": comment"
   Me.Dirty = False
   
   Call Form_Current
    
btnUpdateResolution_Click_Exit:
    Exit Sub

btnUpdateResolution_Click_Err:
   MsgBox Error$
   Resume btnUpdateResolution_Click_Exit

End Sub

[templeowls]

Also, the control is either NULL or not NULL, so there is no need for two tests.
Try

Private Sub btnUpdateResolution_Click()
   On Error GoTo btnUpdateResolution_Click_Err

   If IsNull(Me.Resolution) Then
      Me.Resolution = Date & ": comment"
   Else
      Me.Resolution = Me.Resolution & vbCrLf & vbCrLf & vbCrLf & Date & ": comment"
   End If
   Me.Dirty = False
   
   Call Form_Current
    
btnUpdateResolution_Click_Exit:
    Exit Sub

btnUpdateResolution_Click_Err:
   MsgBox Error$
   Resume btnUpdateResolution_Click_Exit

End Sub

This also works

Private Sub btnUpdateResolution_Click()
   On Error GoTo btnUpdateResolution_Click_Err

   Me.Resolution = Me.Resolution & IIf(IsNull(Me.Resolution), "", vbCrLf & vbCrLf & vbCrLf) & Date & ": comment"
   Me.Dirty = False
   
   Call Form_Current
    
btnUpdateResolution_Click_Exit:
    Exit Sub

btnUpdateResolution_Click_Err:
   MsgBox Error$
   Resume btnUpdateResolution_Click_Exit

End Sub

Thank you!! That worked!