"123 performans kriter" isimli formdaki "Mevcut Kadro" Açılan kutunun Güncelleştirme Sonrasında olayına aşağıdaki kodu ekle.

    strSQL = "SELECT * FROM PERSONEL_BILGILERI "

    Set rstkayit = New ADODB.Recordset

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

        With rstkayit

            .Find "[Sicil No]=" & Me.sicil_no

        If Not rstkayit.EOF Then

            .Fields("Ünvan") = Me.Mevcut_Kadro

            .Update

        End If

        End With