ник: alecks_lp
Если поле [uin] ключевое, то проверку наличия записи сделает JET, поэтому достаточно вставить запись
Application.CurrentDb.Execute "INSERT INTO UIN ([uin]) VALUES (" & Me!uin & ");"
Если поле неиндексировано то сделайте проверку
Application.CurrentDb.Execute "DELETE * FROM UIN WHERE uin=" & Me!uin & ";"
а затем вставьте запись