MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    itarimit
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  itarimit 26/7/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.

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

    Se puderem ajudar, agradeço.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 26/7/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  itarimit 26/7/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
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 26/7/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



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 26/7/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



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  itarimit 27/7/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

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


    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

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

    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.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 27/7/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  itarimit 27/7/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.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 27/7/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  itarimit 27/7/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.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 28/7/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


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  itarimit 28/7/2017, 16:22

    Amigo, deu certo.

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

    Parabéns pelo trabalho.
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Celso Roberto 29/7/2017, 04:41

    Olá..

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

    Abraços



    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 21:10