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

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.



Se puderem ajudar, agradeço.

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

Olá, agradeço a presteza em ajudar.

Os campos ficaram selecionados.
Como fazer o inverso?
Ao desmarcar, os campos também ficarem?
Agradeço

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

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

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




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



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.

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

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.

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

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.

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

Amigo, deu certo.

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

Parabéns pelo trabalho.

Olá..

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

Abraços