You need to create another control to collect your user input. You also need a way to fire some code to update the field named SelfMLicence.
Here is one way to go about it.
Erase the expresion within SelfMLicence. It will now be unbound. Create another unbound textbox named txtAddInput.
In the form's "Current" event place the following. I took the liberty to edit the original expresion to add a space after SM.
Code:
Dim strLicense As String
strLicense = IIf(IsNull([SMLicence]), "", "SM " & [SMLicence] & " -14")
Me.SelfMLicence.Value = strLicense
In the new control's AfterUpdate event (the one named "txtAddInput") place the following
Code:
Dim strLicense As String
If Not IsNull(Me.txtAddInput) Then
strLicense = Me.txtAddInput & "_"
Else
strLicense = ""
End If
strLicense = strLicense & IIf(IsNull([SMLicence]), "", "SM " & [SMLicence] & " -14")
Me.SelfMLicence.Value = strLicense
With that, when the user exits the new text box, it will add whatever was typed into txtAddInput.
Let me know if you need to change anything around, like the underscore.