[Resolvido]Caixa de seleção

Estou apanhando aqui.
Tenho uma caixa de seleção

Quero colocar um comando de decisão que é acionado ao selecionar um cliente em uma lista
a lista está funcionando, mas não consigo pegar o valor da caixa

Private Sub lista_Click()
if caixa de seleção=??????then 'problema aqui, ja pesquisei no forum, fiz varios testes e nada

' aqui tb funciona, aplica um filtro
SQL = "Update [Tbl_Leito] set [Selecione] = True where Leito =" & Me.Leito.Column(1) & ""
CurrentDb.Execute (SQL)

end If


' abaixo está funcionando
DoCmd.OpenForm "Frm_Cad_Paciente", acNormal, "", "[ID_Cliente] = [Forms]![Frm_Cad_Paciente]![lista]", acNormal
End Sub

Então, consegui com o botão ativar e desativar
mas gostaria que fosse com o de opção.

If (AtivarDesativar.Value = falso) Then
MsgBox "ok"

End If




Então, vou usar a opção acima, mesmo, ou talvez uma flag, mas para titulo de conhecimento, se alguem souber como pegar o valor da caixa de opção, por favor responda o topico.
Grato.

Disse que gostaria que fosse com o botão de opção,
pesquisei um pouco mais,
muito simples né, por isso que nem responderam, rs

Private Sub btnOpcao_Click() If Me.Selecao Then 'Se check é verdadeiro. Não precisa do = True   MsgBox "Sim"   Else Then 'Se check é falso    MsgBox "Não" End If End Sub

Quanto a primeira pergunta

Basta colcar em algum comando de decisão o comando SQL, com o filtro que eu quero

strSql = "SELECT [Tabela1].[Código], [Tabela1].[Nome], [Tabela1].[Leito] FROM Tabela1 ORDER BY [Leito]" Me!Lista13.RowSource = strSql  'A propriedade RowSource nos permite alimentar as combobox e as listbox com as consultas. Me.RecordSource = strSql     'Para alimentar os formulários e relatórios é usada a propriedade RecordSource.

Obrigadooooo

Jerry Adriany

Só vi agora teu tópico.

Ótimo que resolveu.

Só um detalhe:

Else Then 'Se check é falso
MsgBox "Não"
End If

Esse Then, não é necessário.

Somente se fosse Elseif ...Then.

[ ]'s

No meu contexto

se for verdadeiro vai executar um SQL

se não vai executar outro

mas blz, obrigado