ник: Egor
Задача такая сделать проверку на наличие в ней записи из формы если такой нет то добавить.
Dim r1 As DAO.Recordset
Set r1 = CurrentDb.OpenRecordset("UIN", DAO.dbOpenDynaset)
While r1 = notNull
If Me.uin <> r1 Then
r1.AddNew
r1!uin = Me.uin
r1.Update
r1.Close
End If
Wend