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]Selecionar tudo - Caixa de seleção

    Compartilhe

    itarimit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/06/2017

    [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  itarimit em Qua 26 Jul 2017, 18:31

    Olá amigos.

    Já pesquisei e não achei nada a respeito.

    Tenho um Form com uma Caixa de seleção (sim/não) e gostaria que, ao marcar ela, o item "Pago" no SubForm, que também é Caixa de seleção sim/não seja marcado também.

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Se puderem ajudar, agradeço.
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Qua 26 Jul 2017, 22:18

    Olá..

    Seja bem vindo ao Fórum..

    Tente adaptar no evento ao clicar da caixa de seleção do form

           
    Código:
    Me.NomeDoSubformulario.Form.Recordset.MoveFirst
       Do While Not Me.NomeDoSubformulario.Form.RecordsetClone.EOF
            Me.NomeDoSubformulario.Form.RecordsetClone.Edit
            Me.NomeDoSubformulario.Form.RecordsetClone!NomeDoCampoPago= True
            Me.NomeDoSubformulario.Form.RecordsetClone.Update
            Me.NomeDoSubformulario.Form.RecordsetClone.MoveNext
        Loop
            Exit Sub
            Me.Requery

    OBS: NomeDoSubformulario troque pelo nome do seu subformulário
    NomeDoCampoPago troque pelo nome do campo pago do subformulário

    Aguardo retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    itarimit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/06/2017

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  itarimit em Qua 26 Jul 2017, 22:38

    Olá, agradeço a presteza em ajudar.

    Os campos ficaram selecionados.
    Como fazer o inverso?
    Ao desmarcar, os campos também ficarem?
    Agradeço
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Qua 26 Jul 2017, 22:51

    Olá...

    Crie outra caixa de seleção com nome desmarcar, coloque o mesmo código e altere esta linha
    Me.NomeDoSubformulario.Form.RecordsetClone!NomeDoCampoPago= True para
    Me.NomeDoSubformulario.Form.RecordsetClone!NomeDoCampoPago= False

    Aguardo



    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Qua 26 Jul 2017, 23:59

    Olá..
    pode ser também na mesma caixa de seleção da seguinte maneira

    Código:
     If Me.NomeDaCaixaDeSeleção = False Then
          Me.NomeDoSubformulario.Form.Recordset.MoveFirst
      Do While Not Me.NomeDoSubformulario.Form.RecordsetClone.EOF
            Me.NomeDoSubformulario.Form.RecordsetClone.Edit
            Me.NomeDoSubformulario.Form.RecordsetClone!NomeDoCampoPago= True
            Me.NomeDoSubformulario.Form.RecordsetClone.Update
            Me.NomeDoSubformulario.Form.RecordsetClone.MoveNext
        Loop
            Me.NomeDoSubformulario.Requery
            Else
            Me.NomeDoSubformulario.Form.Recordset.MoveFirst
      Do While Not Me.NomeDoSubformulario.Form.RecordsetClone.EOF
            Me.NomeDoSubformulario.Form.RecordsetClone.Edit
            Me.NomeDoSubformulario.Form.RecordsetClone!NomeDoCampoPago= False
            Me.NomeDoSubformulario.Form.RecordsetClone.Update
            Me.NomeDoSubformulario.Form.RecordsetClone.MoveNext
        Loop
            Me.NomeDoSubformulario.Requery
            Exit Sub
            End If


    Teste e Retorne com resultado

    Abraços



    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    itarimit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/06/2017

    Ainda não

    Mensagem  itarimit em Qui 27 Jul 2017, 02:05

    Amigo Celso, deu erro de compilação.

    Esse comando altera direto na tabela, porém o erro que está apresentando é o seguinte:
    No campo "Data" e "DataPgto" ele insere horas. Alterei a propriedade para "Data Abreviada". Após isso, ele retorna a data 30/12/1899

    [Você precisa estar registrado e conectado para ver esta imagem.]


    DoCmd.SetWarnings (0)
    On Error Resume Next
    If Me.selpagartudo = True Then
       DoCmd.RunSQL "update [tbl_venda] set [Pago] = " & Me.selpgtocredito & ", DataPgto = " & Date & ", Data = " & Date & ", ValorPago = ValorVenda" & ", [Forma de Pagamento] = 2" & " where tbl_venda.Cliente = " & Me.Código & " and tbl_venda.[Forma de Pagamento] = 4 "
       Me.frm_pgtocadernetasub.Requery
       
       
    Else
       DoCmd.RunSQL "update [tbl_venda] set [Pago] = " & Me.selpagartudo & ", DataPgto = ''" & ", Data = DataVenda " & ", ValorPago = ''" & ", [Forma de Pagamento] = 4" & " where tbl_venda.Cliente = " & Me.Código & " and tbl_venda.[Forma de Pagamento] = 1 "
       Me.frm_pgtocadernetasub.Requery
       
     
    End If

    [Você precisa estar registrado e conectado para ver esta imagem.]

    A intenção é que ao efetuar o pagamento, a data seja alterada para o data atual, igual a DataPgto. Os demais campos estão sendo preenchidos corretamente.
    Ao desmarcar, a data volta à data de origem e DataPgto fique em branco.

    Agradeço.
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Qui 27 Jul 2017, 14:44

    Olá...

    Em relação as datas, os campos tem que estar com Tipo de Dados Data/Hora e formato Data Abreviada.

    Em relação ao update, acreditando que a [tbl_venda] seja a mesma usada para referenciar o subformulário e acreditando tambèm que vocè esta pretendendo executar uma baixa coletiva, então você pode fazer um teste com este código abaixo após o código de seleção do campo Pago.
    OBS: Confira os nomes dos campos se esta correto, Também recomendo não usar nomes para campos como Data, Código, hora, Nome, Valor,etc.., estas palavras são reservada ao access e pode gerar conflito em seu Bd.
    Código:
    Dim Rs As Recordset
      Set Rs = Me.frm_pgtocadernetasub.Form.Recordset
     
      Rs.MoveFirst
      Do While Not Rs.EOF
            With Rs
            .Edit
            If Me.frm_pgtocadernetasub!Pago = True Then
                Me.frm_pgtocadernetasub!DataPgto = Date
                Me.frm_pgtocadernetasub!Data = Date
                Me.frm_pgtocadernetasub!ValorPago = Me.frm_pgtocadernetasub!ValorVenda
                Me.frm_pgtocadernetasub! [Forma de Pagamento] = 2
            Else
                Me.frm_pgtocadernetasub!DataPgto = ""
                Me.frm_pgtocadernetasub!Data = Me.frm_pgtocadernetasub!DataVenda
                Me.frm_pgtocadernetasub!ValorPago = ""
                Me.frm_pgtocadernetasub![Forma de Pagamento] = 4
           
            .Update
          End If
            .MoveNext
            End With
            Loop
            Rs.Close
      Set Rs = Nothing
            Me.Me.frm_pgtocadernetasub.Form.Refresh
            Me.Me.frm_pgtocadernetasub.Requery


    Se não for isso, então anexe seu BD em formato Zip e explique oque deve acontecer

    Aguardo retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    itarimit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/06/2017

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  itarimit em Qui 27 Jul 2017, 20:07

    Não funcionou.

    Estou enviando o DB com alguns módulos retirados.
    Em especial, preciso fazer com que a data da venda seja atualizada para o dia atual do pagamento e que a forma de pagamento saia do valor 4 (caderneta) para 1 (dinheiro), por exemplo.

    Caso precise do DB completo, envio por e-mail.

    Grato.
    Anexos
    sistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.9 Mb) Baixado 8 vez(es)
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Qui 27 Jul 2017, 21:45

    Olá...

    Pelo que postou anteriormente imaginamos uma situação desejada, vendo o banco de dados a necessidade é diferente do que imaginamos.

    Então vamos as duvidas:

    Ao selecionar o campo de seleção Seleção17 você quer que faça o que?
    Ao selecionar o campo de seleção selpagartudo ou selpgtocredito você quer que faça o que?
    O campo txtdata será usado para qual finalidade
    O btndata será usado para qual finalidade
    Pergunto porque através destas informações e que se cria o código de execução de resultados

    Se faltou  te perguntar algum detalhe exponha por favor.

    Aguardo

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    itarimit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/06/2017

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  itarimit em Qui 27 Jul 2017, 21:53

    Eu fui criando para experimentar algumas possibilidades.

    Vamos trabalhar apenas com a seleção selpagartudo, os demais pode ignorar.
    Desculpe não haver retirado antes.

    Ao clicar nela, que ajuste a data para o dia atual, juntamente com o campo DataPgto;
    O campo ValorPago receba o ValorVenda;
    O campo Forma de Pagamento receba o valor = 1;

    Ao desmarcar:

    Data = DataVenda
    DataPgto = ""
    Forma de Pagamento = 4
    ValorPago = ""

    Em geral, isso.
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Sex 28 Jul 2017, 02:15

    Olá...

    Segue o exemplo funcionando.

    No formulário deixei 2 Modelos funcionando
    teste os dois e decida qual deixar.
    Na subConsulta do formulario tirei o critério da forma de pagamento que existia
    Criei uma combobox no formulário para selecionar a forma de pagamento

    Aguardo retorno

    Abraços
    Anexos
    T-Gerenciador Vendas copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2.8 Mb) Baixado 6 vez(es)


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    itarimit
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 01/06/2017

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  itarimit em Sex 28 Jul 2017, 16:22

    Amigo, deu certo.

    Agradeço sua disponibilidade. Que Deus o recompense grandemente.

    Parabéns pelo trabalho.
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 710
    Registrado : 01/03/2014

    Re: [Resolvido]Selecionar tudo - Caixa de seleção

    Mensagem  Celso Roberto em Sab 29 Jul 2017, 04:41

    Olá..

    Que ele recompense você também.
    O Fórum agradece o seu retorno..

    Abraços



    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Qua 22 Nov 2017, 20:13