[Resolvido]Abrir formulário carregando informação da tela de outro formulário.

Olá Pessoal, boa noite!

Novamente venho pedir ajuda a vocês...

No meu banco de dados tenho o formulário cadastro de cliente com chave primaria de auto incremento e outro formulário que é o cadastro de ordem de serviço.
Gostaria de incluir um botão ‘Gerar OS’ no formulário de cliente que, quando clicado abra o formulário cadastro de ordem de serviço, preenchendo o campo do código cliente que estava na tela.

Ex. Cadastrei o cliente agora e ele gerou o cód. 7100, quando eu clicar em ‘gerar OS’ , ele vai pra o formulário de cadastro de OS, com o campo cód. Cliente preenchido com 7100.

Desde já agradeço.

Form_nomeformulário.nomedocampo.Value = Form_nomeformulário.NomeCampo.Value

Sr Vieira,

Primeiramente, agredeço seu rápido retorno.

Desculpe-me, mas não entendi a expressão que Sr postou. (Sou um tanto leigo).

Bom, deixa eu complementar com mais algumas informações:

O formulario de Ordens de Serviços, possui um relacionamento de muitos p/ um com o formuario de Clientes e possui outra chave primaria não relacionada ao cliente.
A função do botão seria abrir o formulario de Ordem de Serviço, em modo adição, já com o campo cód. Cliente preenchido.

Obrigado.

no evento ao abrir do Form Ordem de servicos aplique o seguinte comando..

nomedocampo.Value = Form_nomeformulárioCliente.NomeCampo.Value

Assim:

Form_nomeformulário.nomedocampo.Value = Form_nomeformulário.NomeCampo.Value


1. A vermelho o formulário e o campo que vão receber os dados

2. A Azul o formulário que fornece os dados.

Por exemplo:

Form_frmfactura.nomedocliente.Value = Form_frmcliente.nomedocliente.Value

rsrsrs...

Mas creio que se no o código estiver no Form a ser aberto.. este não precisa fazer referencia ao proprio nome.. e sim apenas a caixa texto que recebera o valor do outro form.. Portanto:


** Código no evento ao abrir ou ao carregar do form

Me.nomedocampo.Value = Form_nomeformulário.NomeCampo.Value

Claro, é apenas um velho hábito, conforme escreves-te está perfeito. O próprio Mestre JPaulo, já abordou esse assunto. Mas os hábitos ficam e funciona das duas maneiras.

Srs,

Não sei se eu sou o problema, rs, mas não consegui...

Utilizando a expressão indicada por vcs, ocorre o seguinte erro:
O objeto não contém o objeto Automation 'frmCadCliente'.

Usei a expressão nestas formas:

codCliente.Value = frmCadCliente.codCliente.Value
[frmCadOS-Novo].[codCliente].[Value] = [frmCadCliente].[codCliente].Value
[frmCadOS-Novo]![codCliente].[Value] = [frmCadCliente]![codCliente].Value

frmCadCliente é o formulario deverá fornecer o 'codCliente' ao formulario frmCadOS-Novo em modo adição.
codCliente é o relacionamento entres as tabelas.

Obrigado.

Amigo

IO que lhe passamos deve ser colocado no evento "Ao fazer clique de um botão". Não percebo onde foi buscar os colchetes?????alguém passou código, com colchetes?????

Olhe como o haryshon postou e apenas substitua os nomes. Não faça mais nada para além disso. Se o form estiver como Adição, deixei-o como normal. Experimente e não invente.

Sr Vieira,

Utilizei a função Evento ao Abrir do formulario OS conforme informado pelo Harysohn.
o Evento ao Clicar do botão, está com o código para abrir o formulario, outro teste que realizei foi utilizar a expressao na macro do botão em Condição Where.

Nota-se que, por mais que eu utilize a expressão sem os colchetes, o Access 2010, automaticamente os assume, por isso as outras duas expressões eu editei apenas o que já havia aparecido entre colchetes.

Obrigado.

Sr Vieira,

No post anterior, informei que foi a primeira expressão que testei, e não funcionou!
codCliente.Value = frmCadCliente.codCliente.Value

Obrigado.

E você está a fazer a abertura do form?

Ao clicar no botão:

DoCmd.openform"nomedoformulário"
codCliente.Value = frmCadCliente.codCliente.Value

Atualmente o formulário inicia através de uma Macro.
As funções estavam sendo inseridas em 'Ao abrir' do formulario que teria o campo preenchido.

A função que Sr informa acima deve se inserida através de expressão ou editando no VSB?
Peço um pouco de compreensão, pois como informei, sou um tanto leigo.

Obrigado.

No FOrm que vai ser aberto... No evento ao Carregar do mesmo...Apenas:


Me.codCliente.Value = Forms!frmCadCliente.codCliente.Value

This Simple!!!

Sem problema, estamos aqui para ajudar.

No botão de comando que colocar no form, vá na aba acontecimento e no evento click do botão coloque o código acima.

Fica contigo Hary, daqui a umas horas é dia de trabalho para mim. Abração a todos

Esqueças Macros.. Aplique em VBA...

No Botão...

DoCmd.OpenForm "NomeFormAseraberto"


No evento ao Abrir do Form que será aberto


Me.codCliente.Value = Forms!frmCadCliente.codCliente.Value

Veja..

http://dl.dropbox.com/u/26441349/Eric_SonBaggio_28_08_11.rar

Obrigado pela ajuda Sr Vieira.

Harysohn

Utlizando sua expressão acontece o erro: Erro no tempo de execução “424”: O objeto é obrigatório – O formulario até abre, mas no primeiro registro e sem carregar a informação.

Ps. Estava em macro como Abrir formulario em modo adição, pois não pode exibir os itens anteriores, o que aconteceu utilizado seu codigo.

Leu o post acima??? Te enviei um modelo pronto de como fazer isso..

Saudações

Harysohn,

Funcionou o código, porém o formulário tem que abrir em modo de adição.
No teste que reaizei aqui, ele sempre altera a primeira OS.

Como posso denifir isso no vba?

Obrigado.

Esse erro pode ser porque o FormCliente esta sendo fechado ao clicar o botão.. então a expressão não funciona pois vai buscar o valor em um objeto que ja não está mais aberto...

Aplique Assim:



Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Me.SeuCampo = Forms!FormCliente.SeuCampo
End Sub

O formulario cliente não fecha, sempre fica aberto. Entretanto, este não é mais erro. (falha minha, apliquei da forma que vc falou, mas sem desfazer o que Vieira tinha sugerido).

Está carregando a informação na hora de abrir o formulario OS, mas sempre altera o registro numero 1. Preciso que crie um novo registro e carrega a informação.

Obrigado.

Leia o meu post acima

Bem amigão.. a Solução esta ai acima...

Qualquer duvida post.... Tenho que ir agora.. Ate amanha.

Harysohn

Agora sim, funcionou... Muito Obrigado!

Fechando post...

O Fórum agradece o Retorno. Bom Trabalho.