frm_secimaltbeceri isimli forma "btn_degistir" adında buton ekle, tıklandığında olayına aşağıdaki kodu ekle

Private Sub btn_degistir_Click()

DoCmd.SetWarnings False

If Me.btn_degistir.Caption = "Tümünü Seç" Then

    DoCmd.RunSQL "UPDATE tbl_gecici2 SET onay = '-1'"

    Me.btn_degistir.Caption = "Seçimleri Kaldır"

ElseIf Me.btn_degistir.Caption = "Seçimleri Kaldır" Then

    DoCmd.RunSQL "UPDATE tbl_gecici2 SET onay = '0'"

    Me.btn_degistir.Caption = "Tümünü Seç"

End If

DoCmd.SetWarnings True

Me.Requery

End Sub

Ayrıca, aynı formdaki mtn_altbaslik isimli metin kutusunun denetim kaynağının sonucu hatalı, denetim kaynağının aşağıdaki gibi düzeltilmesi gerekli.

=DLookUp("[beceri]";"tbl_beceri";"[beceriid]=" & [beceriid])