🚀 go-pugleaf

W dniu 19-05-2015 o 10:00, Marcin suchomski pisze:
> Witam
>
> Jestem początkującym uzytkownikiem Accessa.
> No i mam pytanko: Jak hurtowo zaznaczyć lub odnaczyć pole wyboru checkbox.
> Kombinowałem z użyciem shifta  lu b ctrl ale nie działa.
> Będę wdzieczny za odpowiedź

[...]

Z klawiatury nie za bardzo się da.

W trybie projektu zaznacz sobie CheckBoxy i oknie właściwości ustaw 
właściwość "Metka" na przykładową wartość: DoOdnaczenia

Utwórz CheckBox i nazwij go chkOdznacz, obok utwórz przycisk btnOdznacz
Dla zdarzenia "Przy kliknięciu" dla przycisku btnOdznacz przypisz 
poniższy kod:

'_____________________________
Private Sub btnOdznacz_Click()
Dim ctl As Access.Control
    For Each ctl In Me.Controls
       If ctl.ControlType = acCheckBox Then
          If ctl.Tag = "DoOdnaczenia" Then
             ctl.Value = Me.chkOdznacz
          End If
       End If
    Next
End Sub

Możesz oprogramować tylko zdarzenie Po Aktualizacji dla dodatkowego 
CheckBox'a (bez użycia przycisku btnOdznacz):
'_________________________________
Private Sub chkOdznacz_AfterUpdate()
Dim ctl As Access.Control
    For Each ctl In Me.Controls
       If ctl.ControlType = acCheckBox Then
          If ctl.Tag = "DoOdnaczenia" Then
             ctl.Value = Me.chkOdznacz
          End If
       End If
    Next
End Sub


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl/
www.acc97.accdb.pl/