Is the form unbound? You use OpenArgs so it looks like it is some sort of popup edit form that you open from another, is the first form bound to [Technical Logbook] and dirty?
I revised your code a bit:
Code:
Private Sub bSave_Click()
Dim dbsCurrent As DAO.Database
Dim rstATS As DAO.recordset
Dim strQuery As String
Dim CurrentID As Integer
Dim CAcurrent As String
CurrentID = Me.OpenArgs
Set dbsCurrent = CurrentDb
strQuery = "SELECT * " & _
"FROM [Technical Logbook] " & _
"WHERE ID = " & CurrentID
Set rstATS = dbsCurrent.OpenRecordset(strQuery)
If Not IsNull(rstATS![Corrective Action]) Then
CAcurrent = Nz(rstATS![Corrective Action])
If Me.CANew <> "" Then
rstATS.Edit
rstATS![Corrective Action] = CAcurrent & _
"<div> </div>" & _
"<div>" & Me.CANew & "</div>" & _
"<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
rstATS.Update
DoCmd.Close
Else
MsgBox "Please enter a new corrective action"
End If
'Else
'If Me.CANew <> "" Then
'rstATS.Edit
'rstATS![Corrective Action] = "<div>" & Me.CANew & "</div>" & _
"<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
'rstATS.Update
'DoCmd.Close
'Else
'MsgBox "Please enter a new corrective action"
'End If
End If
End Sub