[Resolvido]Preenchimento após seleção

Boa tarde amigos do fórum.

Estou tendo dificuldades ao colocar um código para preenchimento após seleção... vou explicar !
Tenho um formulário de cadastro de clientes e nele um botão de Gerar Pedido de Venda, que, ao clicar me abre o formulário de Vendas...
Até ai tudo tranquilo !

Minha questão é a seguinte:

Gostaria de após localizar meu cliente no formulário de cadastro, e ao clicar no botão Gerar Pedido de Venda e o nome do cliente selecionado já fosse levado ao formulário de vendas sem que eu precisa-se procura-lo no combo box do formulário de vendas.

Isso é possível ?
Aguardo.
Desde já muito obrigado.

Boa noite.
no campo aonde está sua seleção

Código:

Apos atualizar
so vai abrir o formulario de vendas
docmd.opem"formularioDeVendas"


Formulário de vendas

Código:

Ao abrir
o campo que vai receber  nome do formulario  o número da coluna aonde está a informação
Me.OCampaQueIráReceberAsInformações= Forms!FormulárioDeCadastro!SeleçãoQueVaiAbrir.Column(1)


Bom dia crysostomo.

Primeiramente, agradeço muito seu retorno quanto a minha questão.

Eu fiz o que você informou mais não deu certo... não sei se fiz errado.

Ai tentei o seguinte:

Dentro do Formulário de Cadastro de Clientes, no botão Gerar Pedido coloquei o seguinte código :

Private Sub btn_Gerar_Pedido_Click()

DoCmd.OpenForm "frm_Vendas", acNormal, "", "[txtNomeFantasia]=[Forms]![frm_CadCli]![btn_Gerar Pedido]", , acNormal
DoCmd.Close acForm, "frm_CadCli"

End Sub

(** txtNomeFantasia = é o nome do campo no cadastro de clientes);

O campo onde ele deveria aparecer no Formulário de Vendas, ao clicar no Gerar Pedido, está com o nome: txt_Fantasia .

Quando clico no Gerar Pedido ele me da seguinte informação:
Inserir valor do parâmetro
txtNomeFantasia

Sem sucesso !!!

Peres, meu fiiii de onde saiu esse código?

Repare na mensagem do Crysostomo. Mas dê uma olhada no link abaixo (tive a mesma dificuldade):


https://www.maximoaccess.com/t40520-resolvidoatualizar-combox-de-formulario-aberto#276225

Caro colega tauron,

Agradeço por sua interação quanto minha dúvida !
Esse código ao qual pergunta, já tenho em meu sistema e funciona muito bem por sinal !

Tenho uma ( lst_pesquisa ) de clientes que ao clicar duas vezes sobre o cliente escolhido ele abre o formulário de cadastro já com o cliente que eu escolhi em tela.
Por esse motivo tentei utilizar do mesmo código para fazer o que estou precisando !

Analisei seu anexo, que por sinal funciona bem, mais ele pega as informações ao escolher o funcionário dentro do próprio formulário.

Talvez eu não tenha sido tão claro quanto ao que preciso...

Tentei fazer o que o crysostomo passou mais não obtive sucesso !


Em meu formulário de Cadastro de Clientes, no campo: txtNomeFantasia , após atualizar, coloquei o que o crysostomo disse:


Private Sub txtNomeFantasia_AfterUpdate()

DoCmd.OpenForm "frm_Vendas"

End Sub



Em meu formulário de Vendas, Ao abrir, coloquei o que o crysostomo disse:


Private Sub Form_Open(Cancel As Integer)

Me.txt_Fantasia = Forms!frm_CadCli!txtNomeFantasia.Column(3)

End Sub



Ai, quando eu clico no botão Gerar Pedido, dentro do formulário do Cadastro de Clientes da o seguinte erro:

Erro em tempo de execução '438':
O objeto não aceita essa propriedade ou método !

Ao depurar ele me manda para o código:
Me.txt_Fantasia = Forms!frm_CadCli!txtNomeFantasia.Column(3)

Talvez meu erro esteja em algo tão simples ao qual eu não percebi ainda.

Impossível de dar erro.
Refaça o código e veja se a coluna da informação está certa.

Olá Peres,

Para melhor compreensão e possível solução do teu problema, compartilhe uma cópia do seu bd, somente objetos envolvidos na questão, para análise e possível solução.

É isso
[]'s
FIM

Boa noite Alexandre.
Tudo bem ?

Agradeço sua interação em minha questão.

Conforme solicitado segue cópia do arquivo em questão.


Então, só para recapitular...

Preciso que o campo NomeFantasia (txt_NomeFantasia) do frm_CadCli

seja levado ao campo Fantasia (txt_Fantasia) do frm_Vendas ao clicar no botão Gerar Pedido que esta dentro do frm_CadCli.


Obrigado por enquanto.

Peres,

Criei um módulo e nele está declarada uma variável global chamada "vgCodCli".
Esta global (como o próprio nome diz) pode ser utilizada em todo o sistema.

Ao abrir a janela de código do Access, pressione CTRL+L e procure pelo texto "vgCodCli", para ver onde a variável está sendo utilizada, conforme abaixo:



É isso

Segue versão atualizada.

Espero ter ajduado

[]'s

FIM

Boa noite Alexandre.

Perfeito !!! Era exatamente isso que eu precisava !
Cara, sinceramente eu não tinha pensado em criar uma variável... Show !!!
Além de ajudar muito ainda melhorou o código tornando global. Sem palavras.  

Só uma dúvida Alexandre, sem querer abusar.

É possível acrescentar nessa variável, quando o frm_Vendas abrir, ele já abra habilitado e iniciando uma nova venda com o cliente escolhido no frm_CadCli ?
Pergunto, pois... ao clicar em Gerar Pedido ele abre o frm_Vendas e com o cliente escolhido em tela, mais quando clico em NOVO para habilitar os campos e gerar a venda, ele apaga tudo e inicia a venda.

Sucesso

Peres bom dia,

É possível acrescentar nessa variável, quando o frm_Vendas abrir, ele já abra habilitado e iniciando uma nova venda com o cliente escolhido no frm_CadCli ?

Sim, é possivel.

Mas o correto seria tratar os formulários e seu comportamento de forma separadas, ou seja, primeiro você cadastra o cliente e depois realiza o pedido de vendas, por se tratar de cadastros distintos.

Também é necessário realizar alguns ajustes no formulário de vendas, pois há situações em que ele é aberto através do Cadastro de Clientes e também aberto através dele próprio.

Vou fazer o ajuste que vc necessita e te mandarei a versão nova.

Aguarde.

[]'s

FIM

Boa tarde Alexandre,

Entendi perfeitamente... !

Ok, vou aguardar o seu retorno para poder analisar melhor e compreender claramente essas alterações.

Desde já agradeço.

Peres.

Peres boa noite.

Fiz uma análise em teu sistema e verifiquei que o sistema não possui/possui poucas validações para manter a integridade dos dados.
Mediante a isto, tomei a liberdade e elaborei um Cadastro de Cliente e nele consta todas as validações necessárias para manter os dados validados.
Fiz alguns ajustes no layout do formulário também.
Os botões de navegação foram excluidos pois não faz sentido utilizá-los sendo que existe uma tela de pesquisa.
OBS: quando sua tabela de clientes tiver mais de 50 registro, a navegação fica inviável.

- Cadastro de Cliente:


- Tela de pesquisa:


Obs: Elaborei esta tela somente para teste e carregar os dados do cliente. Se for necessário, substitua pela tela de pesquisa do sistema.

O sistema possui 2 módulos e suas respectivas funções genéricas:

*** mdlFunctions ***
- fnLimpaCtrl: limpa os controles do formulário informado como parâmetro
- fnBloqCtrl: bloqueia controles do formulário informado como parâmetro
- fnHabilCtrl: habilita controles do formulário informado como parâmetro
- fnBuscaCEP: faz a busca do CEP no webservice dos CORREIOS e carregando os campos pertinentes ao logradouro.  

- fnComando: habilita/desabilita botoes de comandos conforme a TAG(propriedade Marca) do botão e o nome do formulário informados como parâmetros.

Explicação da "tag" de cada botão:


*** mdlFunctions ***
- Constam as variáveis globais e constantes declaradas para utilização em todo o sistema.

NOTA: Utilize o formulário "frmCadCliente" como modelo para outros formulários, pois nele já constam todas as rotinas necessárias de validação de dados e comportamentos dos controles e comandos também.

NOTA2: O endereço do cliente deve ficar em uma tabela à parte, pois pode ocorrer do cliente possuir o endereço de entrega diferente do endereço de cobrança.

Também fiz os comentários em cada linha de comando do formulário para melhor entendimento.

Segue versão atualizada.

Espero ter ajudado.

Boa sorte

[]'s

FIM

Não esqueça de fechar o tópico

Boa tarde Alexandre,

Desculpa a demora na resposta mais estive fora no final de semana !

Desde já lhe agradeço muito !

Estarei analisando as alterações realizadas por você e retornarei em breve aqui no fórum.

A princípio, muito show o que você fez... como sempre superando minhas expectativas

Obrigado por enquanto.

Peres


Obs.: Não fecharei o tópico ainda pois estarei analisando tudo que o amigo FIM fez para retornar com a conclusão !

Boa noite Alexandre.

Cara  , ficou muito bom as alterações e tudo o que você fez no sistema, show !
Consegui utilizar muito bem e entender as funções tanto pelos módulos quanto pelos formulários...

Quanto a exclusão dos botões de navegação, sem problemas... sinceramente eu nem havia pensado quanto a inviabilidade depois dos 50 registros... tem toda razão !!!

Os ajustes de layout ficou muito bom, sem palavras... tanto a tela de cadastro quanto a tela de pesquisa.

Os módulos também, ficaram muito bons e de boa compreensão, tanto o mdlFunctions quanto o mdlGeral.. Parabéns pelo trabalho e obrigado pela disposição em me ajudar !  

Analisei todo conteúdo das alterações que você realizou antes de importa-las para dentro do meu sistema e assim dar continuidade na alterações e implementações em meus formulários, tabelas e consultas...

Após tudo finalizado, limpei meu sistema e iniciei passo a passo tudo do zero em um banco de cópia do original...
Acabei me deparando com a seguinte questão:

Ao preencher o cadastro do cliente, no campo CEP, após digitar e mudar de campo ele me da o seguinte erro: (ANEXO)

Não fiz nenhum tipo de alteração, apenas importei o frmCadCliente e o renomeei para frm_CadCli que era como estava o meu anterior.
Mais ai quando volto no arquivo que você realizou as alterações ele funciona normalmente, sem erros. Não entendi !
Analisei os dois arquivos, tanto o seu quanto o meu e estão iguais.

Oi Alexandre,

Esquece amigo, já resolvi o problema do erro !!!!

Meu Microsoft XML v3.0 estava desativado nas referências. kkkkkk uuuffaaa

Muito obrigado pela ajuda FIM, valeu mesmo !!!

Olá Peres,

Este erro ocorre porque é necessário assinalar uma referência no teu projeto.
Esqueci de avisar...uma pequena falha minha.

Ao abrir o projeto do teu sistema, pressione ALT+F11, e vai abrir a janela do código.
Va no menu "Ferramentas" e selecione "Referências.." e selecione a seguinte referência:



Por se tratar de uma API e que retorna dados em XML, se faz necessário assinalar esta DLL para que o Access possa utilizar suas propriedades, funções e métodos.

Em seguida, vá ao menu "Depurar" e "Compilar [NOME_DO_TEU_SISTEMA]", e o Access verificará se existe mais algum erro.

É isso

Boa sorte
[]'s
FIM

Perfeito Alexandre !

Tranquilo, sem problemas... já tinha feito o procedimento.
Mais valeu, ficou muito bom mesmo !! SHOW

Peres

Sucesso.

VAleu Peres...o fórum agradece.
Sucesso com o teu projeto !!!

Eu quem agradeço a colaboração de todos !
Forte abraço !