strSQL = "SELECT * FROM T_Uye "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        With rstkayit

             .Find "[benzersizalan]=" & "'" & Me![benzersizalanmetinkutusu] & "'"

            If Not rstkayit.EOF Then

                .Fields("sucno") = Me.sucno

                .Fields("UyeNo") = Me.UyeNo_TXT

               .Fields("AdSoyad") = Me.AdSoyad_TXT

.......

......

......



                .Update



               else

               .AddNew

               .Fields("sucno") = Me.sucno

               .Fields("UyeNo") = Me.UyeNo_TXT

               .Fields("AdSoyad") = Me.AdSoyad_TXT



......

.....

                .Update

            End If

        End With

Bu kod formdaki benzersiz alan tabloda var ise günceller, yok ise yeni kayıt olarak ekler.