[Resolvido]Ativar controles via codigo

Amigos, boa noite!



Estou passando dados de um formulário para outro. Forms "1" e "2".

Associado a um botão no Form 1 tenho:

DoCmd.OpenForm ("Form 2"), acNormal, , , acFormAdd, acWindowNormal

Depois passo dados de alguns campos do From 1 para o Form 2...

Forms.Item("Formulário 2")!Campo Form 2 = Campo Form 1

Funciona e o dado fica visível no campo de destino no Form 2 . . . porém...

O campo de destino é uma caixa de listagem e não fica "selecionado", ou seja, não entra os dados na tabela que deve ser acrescida - observando que o objetivo de abrir o Form 2 é entrada de dados... Só que, apesar de aparecerem corretamente nos campos é como se os controles não estivessem "ativados" e os dados selecionados (clicado em cima...).

Agradeço a ajuda!

Lárimer

Boas .. uma caixa de listagem apenas exibirá os dados.... Para inserir dados.. tem-se que inserir na tabela..

CurrentDb.Execute "INSERT INTO Sua Tabela (Campo1, Campo2) values (""" & Me.SuaCaixaTexto1 & """,""" & Me.SuaCaixaTexto2 & """)

Após isto faça uma reconsulta na caixa de listagem

Me.SuaLista.Requery


Cumprimentos.

Obrigado pela dica, Piloto.

Porém no meu caso, no Form 1, que manda os dados para o Form 2, só tenho um ID, ou seja, uma chave.
Essa chave é critério de uma consulta que preenche os outros campos.
Uso o "Recalc" e os campos aparecem preenchidos, mas, como disse, mas os dados não vão para a tabela se não forem "clicados".

Tentei usar

Me!CaixaListagem.Selected(0) = True

onde Selected() é o número da linha, zero para a primeira linha da lista... Como a consulta na Cx Listagem só retorna uma linha poderia dar certo...

Fiz associado a aoAbrir form, porém . . .

os campos aparecem selecionados, mas os dados ainda não entram na tabela, precisa "clicar"...

Peço perdão por insistir um pouco mais, mas . . .

Não há um comando via código equivalente a "clicar" sobre um item de Cx Listagem?
E se fosse uma CxCombinação... seria mais fácil?

Obrigado e grande abraço!
De qualquer forma a sua dica já ajudou muito!

Larimer

Envie um modelo do BD para que possamos ver isto pra ti..
Está um pouco confuso o que pretende.


Cumprimentos.

Obrigado Piloto!

Estou enviando um modelo que reproduz a situação que estou tentando resolver.

No caso do exemplo há três tabelas relacionadas.
O Formulário1 manda um ID para o Formulário2.
O botão "mandar dados" no Formulario1 estou usando:
DoCmd.OpenForm ("Formulário2"), acNormal, , , acFormAdd, acWindowNormal
   Forms.Item("Formulário2")!IDCaso = IDCaso
   Forms.Item("Formulário2").Recalc
Com base no ID o Formulário2 filtra três campos que estão na Tabela2 para acrescentar dados na Tabela3, que tem estes mesmos campos.
No Formulário2 uso caixas de listagem para exibir os dados que devem ser inseridos na Tabela 3... porém...
A visualização dos dados fica ok, mas se não se "clicar" sobre cada um deles, eles não vão para a Tabela3...
O que procuro é uma forma de evitar a necessidade deste "click", que seria uma ação requerida do usuário.
Preciso repetir os dados na Tabela3 porque a partir dela vou fazer saídas na forma de relatório e tabelas dinâmicas no Excel.

Antecipo um "super obrigado!" se vc puder dar uma olhadinha e fazer alguma sugestão.

Abç!
Larimer

Não estou vendo o Anexo.

Cumprimentos.

Envio agora.

Obrigado!

Lárimer

Porque caixa de listagem no frm2?
Não seria uma caixa texto?


Cumprimentos.

Sinceramente... Eu não entendi nada do que deseja fazer..

Caixa de listagem?

Se deseja inserir dados na tabela 3..
Poderia utilizar o comando:

CurrentDb.Execute "INSERT INTO Sua Tabela (Campo1, Campo2) values (""" & Me.SuaCaixaTexto1 & """,""" & Me.SuaCaixaTexto2 & """)

Depois abrir o frm2 filtrado...

Veja:


Cumprimentos.

Amigo Piloto.

Obrigado pelas dicas e pelo exemplo que enviaste.

Serão muito úteis para mim.

Respondendo porque usar caixas de listagem a utilidade é a seguinte:

Os dados que passo de um formulário para outro são "sugeridos".
Caso o usuário queira, ele pode abrir uma Cx Combinação com um ID e escolher outro caso.
A solução que buscava seria tipo, caso o Usuário não "clique" naqueles campos, os dados sugeridos vão para a tabela.

Na verdade não consegui fazer isso automaticamente.

Por enquanto criei um botão "Inserir" que repete duas linhas para cada campo:

[Campo N].SetFocus
Me![Campo N].Selected(0) = True

Creio que com campos tipo Cx Texto eu não teria essa flexibilidade, certo?

Bem, para o estágio atual do aplicativo vai servir.

Grande abraço!
Lárimer

O Fórum agradece o Retorno.