Início
Kaynan 2/1/2023, 21:34Pessoal Preciso de mais uma ajudinha dos amigos,quero clicar no campo Equipamento do primeiro subformulario, e esse fazer uma cópia desse equipamento no segundo sub,tipo clico em celular e esse nome ir para o segundo sub no IDReparo 3 se clico em computador ir para o IdReparo 4.
3 participantes
[Resolvido]Copiar campo de sub para sub
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Desisti.
scandinavo- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1059
Registrado : 11/11/2009
desistiu tão rapido, veja ai coloquei o codigo em um botão.
na realidade voçe adiciona o registro na tabela que alimenta o sub formulario e faz uma atualização.
não sei se foi intencionar mas reveja a vinculação entre os dois subformularios, acredito que esteja errada.
criei mais um campo na tabela para registrar o nome do equipamento, campo desvinculado no sub formulario só da trabalho.
Dim rs As DAO.Recordset
'Abre a tabela para receber os dados copiados
Set rs = CurrentDb.OpenRecordset("TblReparo")
'Depois adiciona os dados a tabela
rs.AddNew
rs!IDEquipamento = Me!IdOrdServico 'Precisa arrumar isto. Este campo cria o vinculo entre as tabelas
rs!DescReparos = Me!Defeito
rs!Equip = Me!DescEquipamento
rs.Update
rs.Close
Set db = Nothing
MsgBox "Dados copiados...", vbInformation, "Duplicação de vendas"
'*******************************************
Forms!FrmPrincipal![TblReparo subformulário].SetFocus
Forms!FrmPrincipal![TblReparo subformulário].Requery
MInha mensagem de 999.
https://www.dropbox.com/s/o2tl7qoopvrr8sh/maximo.zip?dl=0
na realidade voçe adiciona o registro na tabela que alimenta o sub formulario e faz uma atualização.
não sei se foi intencionar mas reveja a vinculação entre os dois subformularios, acredito que esteja errada.
criei mais um campo na tabela para registrar o nome do equipamento, campo desvinculado no sub formulario só da trabalho.
Dim rs As DAO.Recordset
'Abre a tabela para receber os dados copiados
Set rs = CurrentDb.OpenRecordset("TblReparo")
'Depois adiciona os dados a tabela
rs.AddNew
rs!IDEquipamento = Me!IdOrdServico 'Precisa arrumar isto. Este campo cria o vinculo entre as tabelas
rs!DescReparos = Me!Defeito
rs!Equip = Me!DescEquipamento
rs.Update
rs.Close
Set db = Nothing
MsgBox "Dados copiados...", vbInformation, "Duplicação de vendas"
'*******************************************
Forms!FrmPrincipal![TblReparo subformulário].SetFocus
Forms!FrmPrincipal![TblReparo subformulário].Requery
MInha mensagem de 999.
https://www.dropbox.com/s/o2tl7qoopvrr8sh/maximo.zip?dl=0
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Perfeito Scandinavo,é isso mesmo felizmente vc resolveu essa pra mim,muito obrigado amigo,agora vou poder continuar essa lida.
Valeu mesmo.
Valeu mesmo.
scandinavo- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1059
Registrado : 11/11/2009
valeu
substitua estas duas linhas
Forms!FrmPrincipal![TblReparo subformulário].SetFocus
Forms!FrmPrincipal![TblReparo subformulário].Requery
por esta
Forms!FrmPrincipal![TblReparo subformulário].Form.Requery
substitua estas duas linhas
Forms!FrmPrincipal![TblReparo subformulário].SetFocus
Forms!FrmPrincipal![TblReparo subformulário].Requery
por esta
Forms!FrmPrincipal![TblReparo subformulário].Form.Requery
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Ok,eu exclui todas as tabelas pra começar do zero os testes,mas agora apresentou essa msg.
![[Resolvido]Copiar campo de sub para sub Captur16](https://i.servimg.com/u/f39/20/29/74/58/captur16.png)
![[Resolvido]Copiar campo de sub para sub Captur16](https://servimg.com/r/3920297458/captur16.png)
scandinavo- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1059
Registrado : 11/11/2009
isto ocorreu porque falta o vinculo Veja na imagem os campos vinculados que voce criou, nao faz sentido
rs!IDEquipamento = Me!IdOrdServico 'Precisa arrumar isto. Este campo cria o vinculo entre as tabelas
![[Resolvido]Copiar campo de sub para sub Ajuda13](https://i.servimg.com/u/f57/19/82/56/87/ajuda13.png)
coloca o projeto ai
rs!IDEquipamento = Me!IdOrdServico 'Precisa arrumar isto. Este campo cria o vinculo entre as tabelas
![[Resolvido]Copiar campo de sub para sub Ajuda13](https://servimg.com/r/5719825687/ajuda13.png)
coloca o projeto ai
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
esse
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Gente como faz esse vinculo pra dar certo.
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3495
Registrado : 13/12/2016
Kaynan,
Estou elaborando um exemplo de Ordem de Serviço e assim que eu finalizar, disponibilizo.
Att,
Alexandre Fim
Estou elaborando um exemplo de Ordem de Serviço e assim que eu finalizar, disponibilizo.
Att,
Alexandre Fim
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui ![[Resolvido]Copiar campo de sub para sub Setinf11](https://i.servimg.com/u/f50/19/64/99/05/setinf11.png)
Sistemas e Tecnologia Ltda
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Legal Alexandre,que de pra vincular varios equipamentos a mesma OS.
Alexandre Fim gosta desta mensagem
scandinavo- VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1059
Registrado : 11/11/2009
veja
https://www.dropbox.com/s/sr3s8xaljb8jbgc/maximo2.accdb?dl=0
https://www.dropbox.com/s/sr3s8xaljb8jbgc/maximo2.accdb?dl=0
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Perfeito amigo,mais uma vez obrigado,valeu mesmo.
Quero ver o exemplo do Alexandre.
Quero ver o exemplo do Alexandre.
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3495
Registrado : 13/12/2016
Kaynan,
O exemplo que estou elaborando contempla 1 ou mais equipamentos por OS, e cada equipamento também terá 1 ou mais serviços, incluindo também valor da peça/servico a ser realizado.
Ao gerar o orçamento para o cliente, constará o valor de cada item separadamente e o total de todo o serviço/manutenção de cada equipamento, e também o total geral da OS.
A modelagem das tabelas está pronta e o formulário de OS está 70% concluído, e assim que eu terminar, disponibilizo uma versão.
Valeu
Att,
Alexandre Fim
O exemplo que estou elaborando contempla 1 ou mais equipamentos por OS, e cada equipamento também terá 1 ou mais serviços, incluindo também valor da peça/servico a ser realizado.
Ao gerar o orçamento para o cliente, constará o valor de cada item separadamente e o total de todo o serviço/manutenção de cada equipamento, e também o total geral da OS.
A modelagem das tabelas está pronta e o formulário de OS está 70% concluído, e assim que eu terminar, disponibilizo uma versão.
Valeu
Att,
Alexandre Fim
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Ansiado pra ver amigo véio...
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Opaa Alexandre quase pronto a OS.
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3495
Registrado : 13/12/2016
Fala ai Kaynan,
Elaborei este modelo e acredito que vc consiga caminhar nas demais implementações do sistema.
Estão faltando algumas validações e tmb codificar alguns botões, mas de modo geral, está funcionando.
A tela de Ordem de Serviços ficou assim:
![[Resolvido]Copiar campo de sub para sub Sysos111](https://i.servimg.com/u/f50/19/64/99/05/sysos111.png)
Para atribuir uma manutenção, é necessário clicar no equipamento desejado na listbox da guia equipamentos, em seguida clicar em "Novo" na guia Manutenção:
![[Resolvido]Copiar campo de sub para sub Sysos211](https://i.servimg.com/u/f50/19/64/99/05/sysos211.png)
Após finalizar a OS, clicar qum imprimir para visualizar o relatório, onde os serviços são agrupados pro equipamentos:
![[Resolvido]Copiar campo de sub para sub Sysos310](https://i.servimg.com/u/f50/19/64/99/05/sysos310.png)
É isso
Espero ter ajudado
Boa sorte
Att,
FIM
Elaborei este modelo e acredito que vc consiga caminhar nas demais implementações do sistema.
Estão faltando algumas validações e tmb codificar alguns botões, mas de modo geral, está funcionando.
A tela de Ordem de Serviços ficou assim:
![[Resolvido]Copiar campo de sub para sub Sysos111](https://servimg.com/r/5019649905/sysos111.png)
Para atribuir uma manutenção, é necessário clicar no equipamento desejado na listbox da guia equipamentos, em seguida clicar em "Novo" na guia Manutenção:
![[Resolvido]Copiar campo de sub para sub Sysos211](https://servimg.com/r/5019649905/sysos211.png)
Após finalizar a OS, clicar qum imprimir para visualizar o relatório, onde os serviços são agrupados pro equipamentos:
![[Resolvido]Copiar campo de sub para sub Sysos310](https://servimg.com/r/5019649905/sysos310.png)
É isso
Espero ter ajudado
Boa sorte
Att,
FIM
- Anexos
![[Resolvido]Copiar campo de sub para sub Attachment](https://2img.net/i/fa/attachment.png)
SysOS.zip - Você não tem permissão para fazer download dos arquivos anexados.
- (172 Kb) Baixado 23 vez(es)
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Grande Alexandre,muito bem elaborado esse exemplo e com certeza vou começar a usar ele,estive analizando e que talcolocar um código na list box para a gente possa editar uma manutenção.
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3495
Registrado : 13/12/2016
Sim, Kaynan, essa é a ideia.
Aprimorando e melhorando cada vez mais as funcionalidades do sistema.
Como disse, é apenas um exemplo, e as melhorias fica por sua conta....kkkk
Abraço e boa sorte!
Sucesso
Att,
Alexandre Fim
Aprimorando e melhorando cada vez mais as funcionalidades do sistema.
Como disse, é apenas um exemplo, e as melhorias fica por sua conta....kkkk
Abraço e boa sorte!
Sucesso
Att,
Alexandre Fim
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Muito bém,vai dar pra colocar varias coisas a mais no sistema e o que não souber fazer vou pregar o grito.Muito obrigado amigo véio.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Opaa,por que as vzs aperto em algum botão ou estou em manutenção e resolvo voltar pros equipamentos da essa mensagem?![[Resolvido]Copiar campo de sub para sub Xxxx10](https://i.servimg.com/u/f39/20/29/74/58/xxxx10.png)
![[Resolvido]Copiar campo de sub para sub Xxxx10](https://servimg.com/r/3920297458/xxxx10.png)
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Opa,Alexandre coloca em manutenção após gravar o que foi feito para fazer o conserto do equipamento,os campos são limpos,qual código coloco na list pra ao clicar duas vzs aparecer.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Aì pessoal este tópico ja deu né rsrs obrigado gente abençoada.
Tópicos semelhantes
» [Resolvido]Copiar informação de um campo no formulário e jogar para outro campo.
» [Resolvido]Copiar valores de um campo Data para uma campo relacionado
» [Resolvido]Copiar de um campo para outro campo
» [Resolvido]Copiar campo de sub para o formulario principal
» [Resolvido]Botão para copiar campo do formulário
» [Resolvido]Copiar valores de um campo Data para uma campo relacionado
» [Resolvido]Copiar de um campo para outro campo
» [Resolvido]Copiar campo de sub para o formulario principal
» [Resolvido]Botão para copiar campo do formulário