|
Postada em 30/08/2007 13:34 hs
Olá. Tenho um form onde cadastro os dados do cliente. Como o sistema procura pelo contribuinte (através do CPF ou do CNPJ), e, quando se cadastra um contribuinte, uma textbox formata os números para o padrão do CPF (xxx.xxx.xxx-xx) ou do CNPJ (xx.xxx.xxx/xxxx-xx), tento consultar diretamente no form por uma inputbox (que não permite a formatação dos números). Assim, para tentar uma solução mais criativa, gerei uma espécie de uma inputbox(na realidade, um pequeno form, que é acessado toda vez que clico no form principal, em consultas). Esse form pequeno exibe duas maskedit, com as formatações acima. Só que não consigo fazer o form principal (o dos dados cadastrados) receber os dados digitados no form menor. Como consigo conecta-los, de forma que, ao digitar um número de CNPJ qualquer (que esteja cadastrado no sistem), o form principal já abra com os dados procurados? Agradeço se alguém tiver uma idéia de como resolver essa parada... Chico.
|
|
|
|
Roßerto
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 30/08/2007 14:14 hs
Olá, Chico Primeiro, vc já experimentou usar o ACTIVETEXT, é uma ocx free, que faz a formatação do CPF e CNPJ e ainda por cima faz validação dos mesmos. Segundo, vc pode fazer o seguinte no evento LOSTFOCUS do segundo form ou no botão OK do segundo form, vc pode fazer uma pesquisa do seu banco de dados e passar os dados retornados para o primeiro form da seguinte maneira: Form1.txtCampo = tabela!Campo é bem simples :D Boa sorte.
|
|
|
|
Postada em 30/08/2007 17:25 hs
Valeu, Roberto. Vou tentar à noite, em casa. Quanto a essa ocx, vou ver se baixo e tento utilizar. Agradecido. Chico.
|
|
|
Sandro
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2007 21:36 hs
Olá Chico, Não sei se entendi bem, mas se o problema é transferir os dados de um campo para outro, você pode fazer de duas formas: 1. Declarar uma variável para o seu segundo formulário usando a cláusula WithEvents, o que irá permitir que você manipule os eventos da outra tela. Você verá a sua variável na lista de controles do seu formulário principal. Assim, você poderá pesquisar no momento do lostfocus, ou do pressionar do botão; 2. Ao invés de exibir o formulário da forma tradicional, declare uma variável para ele e, dentro dele não use o método unload, mas sim o método hide, que oculta mas não destrói o formulário em memória. Desta forma você pode recuperar os dados dele e fazer a pesquisa no seu form principal e somente depois fechar o form: Dim Frm as Form2 Set Frm = New Form2 Frm.Show vbModal TxtCodigo.Text = Frm.TxtCodigo.Text <Seu código de pesquisa aqui, ou chamada de procedure> Unload Frm Set Frm=Nothing Na verdade o controle da busca permanecerá no seu form principal, mas você usará o form2 como entrada. Espero ter ajudado, Sandro.
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
Postada em 06/09/2007 16:27 hs
Bom vou explicar de uma forma mais facil. vamos começar seu form principal se chama ex: frmPrincipal nele possui um campo texto com nome ex: txtCPF.text A partir dai faça o seguinte: no form2 onde você vai digitar possui o nome ex: txtPesquisaCPF com certeza vc deve ter inserido um botão de pesquisa: então no evento clik deste botão insira o seguinte código Private sub Command1_Click() FrmPincipal.txtCPF.text=Form2.txtPesquisaCPF.text Unload me End sub pronto está resolvido seu problema, simples né até
|
|
|
|