MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Caixa de seleção

    Compartilhe

    nursing1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 16/02/2017

    [Resolvido]Caixa de seleção

    Mensagem  nursing1 em Sex 09 Fev 2018, 5:13 pm

    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



    nursing1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 16/02/2017

    Cont

    Mensagem  nursing1 em Sex 09 Fev 2018, 6:42 pm

    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.



    Última edição por nursing1 em Sab 10 Fev 2018, 9:54 am, editado 1 vez(es) (Razão : outra opção)

    nursing1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 16/02/2017

    Resposta

    Mensagem  nursing1 em Ter 13 Fev 2018, 7:15 am

    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


    Última edição por nursing1 em Ter 13 Fev 2018, 8:00 am, editado 1 vez(es) (Razão : formatação)

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Caixa de seleção

    Mensagem  Noobezinho em Ter 13 Fev 2018, 8:40 am

    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

    nursing1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 16/02/2017

    observação

    Mensagem  nursing1 em Ter 13 Fev 2018, 9:15 am

    No meu contexto

    se for verdadeiro vai executar um SQL

    se não vai executar outro

    mas blz, obrigado

      Data/hora atual: Sex 20 Jul 2018, 6:09 am