[Resolvido]incluir campos de um formulario no outro

boa noite

Gostaria muito da ajuda de voces, pois estou com dificuldades para finalizar este pequeno projeto.

tenho um formulario principal e dentro dele tenho um sub-formulario onde vejo os tipos de lanches e outro sub-formulario onde irao ter os lanches que o cliente quer.

o atendente gera o numero do pedido, data e hora no forms principal , e ja ve os lanches existentes no sub-formulario, ai criei um botao "incluir" que seria clicar nele e pedir a qtde daquele lanche e jogar os dados deste sub formulario no outro sub-formulario.

segue o projeto para que alguem se possivel possa me orientar.

muito obrigado

Tenta algo assim no evento ao alterar do campo que queres copiar:

forms!nomedosub_subform!campoquequeresosdados = Forms!nomedosubform!Campoquequerescopiar

tentei assim como voce disse:



Forms!F_MOVIMENTO_ITENS!COD_LANCHE = Forms!F_TIPO_ITENS!COD_LANCHE

'Forms!nomedosub_subform!campoquequeresosdados = Forms!nomedosubform!Campoquequerescopiar

mas deu erro:

o microsoft office access nao pode localizar o formulario 'f_tipo_itens' referido em uma expressao de macro ou cod vis basic

tenta assim:

Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!COD_LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!COD_LANCHE

amigo, fecho!!!

so falta um detalhe, ai ele fica no mesmo registro, como faco para ele ir para o proximo registro, caso a pessoa por exemplo, pediu um lanche, ele adicionou legal, ai a pessoa quer pedir outro lanche junto, se eu clico ele joga em cima, teria que ir para o proximo registro.

obrigado

Tens duas ipoteses,

1 - Clicas com o rato em novo registo do pedido e depois no pedido que queres adicionar

ou

Não testei mas deve ser algo tipo:

No F_MOVIMENTO_ITENS colocas nas propriedades do formulário em Evento Intervalo do cronómetro 1000 e No crónometro
Private Sub Form_Timer()
DoCmd.GoToRecord , , acNewRec
End Sub

assim cada segundo caso o registo atual esteja preenchido vai para um novo, o unico problema é se queres alterar os dados do registo só tens 1 segundo para o fazer por isso é melhor manter a duvida no forum e pesquisar sobre essa duvida.

Tentei o código em outros eventos mas só consegui no cronómetro

Atenção que dá erro a bd ao duplicar o numero (tipo dois registos com o n.º1) COD_LANCHE, terás de corrigir isso retirando as chaves primárias da Tabela T_MOVIMENTO_ITENS

Ei Nuno!

Eu também fiquei curioso com essa questão...
Tentei usar a expressão "Docmd.GoToRecord ,,acNext" no botão "Incluir". Logo após o comando de passar os dados de COD_LANCHE+LANCHE+PRECO para o subform.
De alguma forma deve ter como utilizar essa expressão para ter efeito em outro formulário, algo tipo: "Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS.GoToRecord ,,acNext"   ...rs!

Pesquisei também e encontrei coisa tipo:

Me!nomedosubform.setfocus
docmd.GoToRecord ,,acNext

ou

DoCmd.SelectObject acForm, "formprincipal", False
Forms!FormPrincipal!nomedosubform.SetFocus
DoCmd.GoToControl "campo"

Todos sem sucesso...


Achei legal ter usado no timer! haha! Pelo menos conseguiu algum resultado...[/font]

Consegui Hilton,


Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!COD_LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!COD_LANCHE
Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!LANCHE
Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!PRECO.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!PRECO
Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS.SetFocus    'Move o foco para o subformulário
DoCmd.GoToRecord , , acNext                    'No formulário com foco, executa o comando ir para o próximo
COD_LANCHE.SetFocus                            'Foco no campo COD_LANCHE


Acrescente as 3 linhas e tá feito!

Boa

nao deu certo pessoal, ir para o proximo registro, pois tive que mudar um detalhe, pois nao tinha onde colocar a qte do pedido, ai criei um pequeno formulario e depois que coloco a qtde e clico no ok que ele joga os itens para o suformulario, mas nao vai para o proximo registro para adicionar um novo.

estou disponibilizando o projeto

desde ja obrigado a todos

ok tenta assim

tens de fechar o formulário antes de criar o foco para o outro

Código:

Private Sub Comando2_Click()
On Error Resume Next

If Nz(QTDE) <> "" Then
   Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!COD_TIPO.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!COD_TIPO
   Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!COD_LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!COD_LANCHE
   Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!LANCHE
   Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!QTDE.Value = QTDE
   Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!PRECO.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!PRECO
   Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!TOTAL.Value = Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!QTDE * Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!PRECO
   DoCmd.Close
   
Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS.SetFocus    'Move o foco para o subformulário
DoCmd.GoToRecord , , acNext                      'No formulário com foco, executa o comando ir para o próximo
COD_LANCHE.SetFocus                              'Foco no campo COD_LANCHE

Else
   DoCmd.Close

End If
End Sub

Continua a dar o erro que te disse na outra mensagem o problema é na Tabela T_MOVIMENTO_ITENS não se pode duplicar chaves primárias por isso tens de retirar o desenho da chave nessa tabela com o botão direito do rato desmarcando a chave primária para permitir duplicação de dados

boa tarde

toyebom


- se eu tirar as chaves "t_movimento_itens" corro o risco do usuario pedir por exemplo um lanche 2 vezes no mesmo pedido.
por isso esta com a chave nos campos

esta dando o seguinte erro com as chaves.

o objeto é obrigatorio.

disponibilizei o projeto

obrigado

Ok quer dizer que não se pode duplicar o pedido, nesse caso é claro que dá o erro porque não tentas um aviso ao adicionar se já existir avisar e perguntar se quer adicionar ou não. Não tenho muita experiencia nesses avisos e de subform para subform ainda menos mas tenta dar uma pesquisada no forum que encontras algo como te disse.

Eu tentei o código que te dei na mensagem anterior e funcionou na perfeição, só dava erro se duplicasse o pedido, por isso falei nas chaves primárias. Se ais tirares e criares o aviso, já não dá erro e funciona, julgo eu, melhor e de uma forma mais limpa.

Testei sua modificação e aqui deu tudo certo também.

Concordo com vc quanto ao problema de chave primária. Percebi que ele está utilizando uma rotina "On Error" para contornar o problema, mas a melhor maneira seria fazer uma verificação para não adicionar o mesmo item duas vezes no pedido.

Ve aqui um exemplo de como podes fazer, istó é só um exemplo que podes tentar adaptar.

http://maximoaccess.forumeiros.com/t2962-resolvidomensagem-do-access

Nuno,

A linha "On Error Resume Next" vc colocou pelo erro na linha "COD_LANCHE.SetFocus", correto?
Pode remover essas 2 linhas Hilton. Funciona da mesma forma!


Para o problema de registro duplicado, pode pesquisar rotinas para impedir o registro de itens duplicados usando chave primário ou não.

Coloquei apenas porque dava um erro, possivelmente devido à chave primária.

boa noite marcos, tudo bem

nao achei estas duas linhas, desculpe a minha ignorancia, mas em qual formulario esta??

A linha "On Error Resume Next" vc colocou pelo erro na linha "COD_LANCHE.SetFocus", correto?
Pode remover essas 2 linhas Hilton. Funciona da mesma forma!

obrigado

encontra-se no novo painel no que criaste para a quantidade botão ok (F_QTDE) que refiro na mensagem 11

Private Sub Comando2_Click()
On Error Resume Next

If Nz(QTDE) <> "" Then
  Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!COD_TIPO.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!COD_TIPO
  Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!COD_LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!COD_LANCHE
  Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!LANCHE.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!LANCHE
  Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!QTDE.Value = QTDE
  Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!PRECO.Value = Forms!F_MOVIMENTO!F_TIPO_ITENS!PRECO
  Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!TOTAL.Value = Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!QTDE * Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS!PRECO
  DoCmd.Close
 
Forms!F_MOVIMENTO!F_MOVIMENTO_ITENS.SetFocus    'Move o foco para o subformulário
DoCmd.GoToRecord , , acNext                      'No formulário com foco, executa o comando ir para o próximo
COD_LANCHE.SetFocus                             'Foco no campo COD_LANCHE

Else
  DoCmd.Close

End If
End Sub

blz, ja deu certo, muito obrigado por eqto, vou continuar no desenvolvimento agora

abracos

Não esqueças de dar o [Resolvido] ai no fundo lado direito junto ao botão enviar e marcar na mão a mensagem que te ajudou.

opa, claro que sim, nao sabia onde ficava

valeu, abracos

Bom desenvolvimento!