Pur trovando molto oscuro e poco funzionale questo approccio, sul quale tuttavia non ho elementi tecnici, popongo questo:
Private Sub Codice_trasferta_AfterUpdate()
Me![TrasfertaB].Value = DLookup("Valuta", "Tabdestinazione1", "Codice ='" & Me![Codice] & "'")
If Me![TrasfertaB].Value<=6 Then
DbEngine(0)(0).Execute "INSERT INTO TuaTab (NomeCampo) VALUES(" & str(Me![TrasfertaB].Value) & ")"
End If
End Sub
L'uso di str(...) serve per evitare l'errore sul SEPARATORE DECIMALE.