I get this:

Add Code:
Code:
Private Sub butAdd_Click()
'Insert vs Update options
'If the part is not in the list
If Me.txtComponent.Tag & "" = "" Then
'add the part to the list
CurrentDb.Execute "INSERT INTO EntryFormTable(Assembly, Component, Description, AssemblyQty, UOM, QtyA, QtyB, QtyC, UnitPriceA, UnitPriceB, UnitPriceC) " & _
" VALUES ('" & Me.txtAssembly & "','" & Me.txtComponent & "','" & Me.txtDescription & "','" & Me.numAssemblyQty & "','" & Me.txtUOM & "','" & Me.numQtyA & "','" & _
Me.numQtyB & "','" & Me.numQtyC & "','" & Me.dbPriceA & "','" & Me.dbPriceB & "','" & Me.dbPriceC & "')"
If Not IsNull(Me.txtAlternateA) Then
CurrentDb.Execute "INSERT INTO EntryFormTable(Component, Description, UOM) " & _
" VALUES ('" & Me.txtAlternateA & "','" & Me.txtAltADescription & " \AltB" & "','" & Me.txtAltAUOM & "')"
End If
If Not IsNull(Me.txtAlternateB) Then
CurrentDb.Execute "INSERT INTO EntryFormTable(Component, Description, UOM) " & _
" VALUES ('" & Me.txtAlternateB & "','" & Me.txtAltBDescription & " \AltB" & "','" & Me.txtAltBUOM & "')"
End If
'update an already existing part
Else
CurrentDb.Execute "UPDATE EntryFormTable " & _
" SET Assembly='" & Me.txtAssembly & "'" & _
", Component='" & Me.txtComponent & "'" & _
", Description='" & Me.txtDescription & "'" & _
", AssemblyQty='" & Me.numAssemblyQty & "'" & _
", UOM='" & Me.txtUOM & "'" & _
", QtyA='" & Me.numQtyA & "'" & _
", QtyB='" & Me.numQtyB & "'" & _
", QtyC='" & Me.numQtyC & "'" & _
", PriceA='" & Me.dbPriceA & "'" & _
", PriceB='" & Me.dbPriceB & "'" & _
", PriceC='" & Me.dbPriceC & "'" & _
" WHERE Component='" & Me.frmEntrySub!Component & "'"
End If
'Clear form after add/update
butClear_Click
'Refresh form
frmEntrySub.Form.Requery
End Sub
Changed \AltB to \Alt, A and B dont really matter here. Didn't make a difference Adding wise of course.