Início Saudações a todos, Tenho um form que dentro dele possui um subform aonde é feito os lançamentos de produtos ou serviços desejo que ao clicar em salvar e marca sim ele marque todos os produtos lançados no subform como sim na caixa de sim/não que existe dentro dele. Desde já agradeço a atenção de todos
[Resolvido]Marca como sim todos os registros dentro do subform
digitaltec- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 150
Registrado : 09/05/2020
- Mensagem nº1
![subform - [Resolvido]Marca como sim todos os registros dentro do subform Empty](https://2img.net/i/empty.gif)
[Resolvido]Marca como sim todos os registros dentro do subform
digitaltec 23/1/2021, 12:44
digitaltec gosta desta mensagem
digitaltec- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 150
Registrado : 09/05/2020
- Mensagem nº2
Re: [Resolvido]Marca como sim todos os registros dentro do subform
digitaltec 23/1/2021, 12:51
Segue bd para melhor compreensão
link
https://drive.google.com/file/d/1mzWXbDkoz8JZsdHjqPI-SYJ2iNNZD3q4/view?usp=sharing
link
https://drive.google.com/file/d/1mzWXbDkoz8JZsdHjqPI-SYJ2iNNZD3q4/view?usp=sharing
digitaltec- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 150
Registrado : 09/05/2020
- Mensagem nº3
Re: [Resolvido]Marca como sim todos os registros dentro do subform
digitaltec 23/1/2021, 15:40
Joguei esse código no botão salvar e deu super certo. Obrigado a todos Resolvido
Me.cadastroservicos_sub.Form.RecordsetClone.MoveFirst
Do While Not Me.cadastroservicos_sub.Form.RecordsetClone.EOF
Me.cadastroservicos_sub.Form.RecordsetClone.Edit
Me.cadastroservicos_sub.Form.RecordsetClone!servicosfeito = True
Me.cadastroservicos_sub.Form.RecordsetClone.Update
Me.cadastroservicos_sub.Form.RecordsetClone.MoveNext
Loop
Me.cadastroservicos_sub.Requery
Exit Sub
Me.cadastroservicos_sub.Form.RecordsetClone.MoveFirst
Do While Not Me.cadastroservicos_sub.Form.RecordsetClone.EOF
Me.cadastroservicos_sub.Form.RecordsetClone.Edit
Me.cadastroservicos_sub.Form.RecordsetClone!servicosfeito = True
Me.cadastroservicos_sub.Form.RecordsetClone.Update
Me.cadastroservicos_sub.Form.RecordsetClone.MoveNext
Loop
Me.cadastroservicos_sub.Requery
Exit Sub
digitaltec gosta desta mensagem
Conteúdo patrocinado
- Mensagem nº4
Re: [Resolvido]Marca como sim todos os registros dentro do subform
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Ao marcar receber todos, ele marca todas as contas como recebidas
» [Resolvido]Apagar todos os registros do SubForm ao clicar em botão no formulário principal
» [Resolvido]Loop definir valores em todos os registros do subform contínuo (inserindo em data normal, par ou impar)
» [Resolvido]Como a Combo exibir Todos e a List exibir todos os registros tambem
» [Resolvido]Como Selecionar todos os registros na ListBox
» [Resolvido]Apagar todos os registros do SubForm ao clicar em botão no formulário principal
» [Resolvido]Loop definir valores em todos os registros do subform contínuo (inserindo em data normal, par ou impar)
» [Resolvido]Como a Combo exibir Todos e a List exibir todos os registros tambem
» [Resolvido]Como Selecionar todos os registros na ListBox
|
|
|