Function GetNumber(text) Dim i As Integer, c As String If IsNull(text) Then GetNumber = Null: Exit Function For i = 1 To Len(text) c = Mid(text, i, 1) If c Like "#" Then GetNumber = GetNumber & c ElseIf Len(GetNumber) Then Exit Function End If Next i End Function
UPDATE Orders SET Orders.[ID] = getNumber(Orders.[IDLookup]);
Orders.ID = Orders.IDLookup.Column(0)