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])