Need a form to relieve a production log

[ssanfu]

You need to concatenate the date and the reference to the control "Text0". If there is still a space in the field "Tube Done", it needs to be enclosed in brackets: [Tube Done]. (Its not a good practice to have spaces in object names.)

Also, the date needs to have delimiters(#), as well at the reference to Text0 (').

Try this:

Private Sub Text0_Change()
   Dim sSQL As String

   sSQL = "UPDATE SOXL SET SOXL.[Tube Done] = #" & Date & "# WHERE SOXL.Shoporder = '" & [Forms]![Form2].[Text0] & "'"
   'for Debugging
   'Debug.Print sSQL

   CurrentDb.Execute (sSQL), dbFailOnError

   'if you want to clear the control "Text0" to be ready for the next scan,
   'try uncommenting the next line
'   Me.Text0 = Null

End Sub