PASSANDO FORM COMO PARAMETRO
Pessoal outra ajuda pro mano:
Tenho um form de consulta padrão que vai ser usado por todos os meus outros forms de cadastro de meu projeto, e eu quero que esse form de consulta receba como parà ¢metro o form de cadastro que o acionou através do show, para que eu possa trabalhar na consulta com os componenetes relacionados ao forme de cadastro sem ter que colocar o nome do forme de cadastro. Exemplo: tenho um form com o nome FmCadCliente e outro FmConsulta, no click do botão do FmConsulta ele vai fazer o seguinte:
FormeDeCadastro.Text1.Text = "recebeu valor"
o componente do Text1 do FmCadCiente vai receber "recebeu valor"
Grato por um a ajuda.Valeu.
Tenho um form de consulta padrão que vai ser usado por todos os meus outros forms de cadastro de meu projeto, e eu quero que esse form de consulta receba como parà ¢metro o form de cadastro que o acionou através do show, para que eu possa trabalhar na consulta com os componenetes relacionados ao forme de cadastro sem ter que colocar o nome do forme de cadastro. Exemplo: tenho um form com o nome FmCadCliente e outro FmConsulta, no click do botão do FmConsulta ele vai fazer o seguinte:
FormeDeCadastro.Text1.Text = "recebeu valor"
o componente do Text1 do FmCadCiente vai receber "recebeu valor"
Grato por um a ajuda.Valeu.
cara... nao indenti oq vc quer fazer... qui valor eh esse?
crie uma variavel publica no form de consulta
assim quando vc for chama-lo
dim NomeTabela as string
frm_pesquisas.nometabela = "clientes"
frm_pesquisas.show 1
assim quando vc for chama-lo
dim NomeTabela as string
frm_pesquisas.nometabela = "clientes"
frm_pesquisas.show 1
CLEVERTON, não entedi bem o que vc quis dizer, talvez não tenha explicado melhor minha dúvida, vou tentar de novo.
No meu form FMCliente eu chamo FMConsulta, na caixa de texto de FMConsulta eu digito o nome do cliente por exemplo. Depois no click do botão de FMConsulta, eu quero que ele preencha a caixa de texto do FMCliente sem que eu tenha que digitar o nome do form FMCliente e sim o parà ¢metro passado para o Form FMConsulta, exemplo:
VariavelParà ¢metro.Text1.Text = " fulano"
e não da outra forma
FMCliente.Text1.Text= "fulano"
No meu form FMCliente eu chamo FMConsulta, na caixa de texto de FMConsulta eu digito o nome do cliente por exemplo. Depois no click do botão de FMConsulta, eu quero que ele preencha a caixa de texto do FMCliente sem que eu tenha que digitar o nome do form FMCliente e sim o parà ¢metro passado para o Form FMConsulta, exemplo:
VariavelParà ¢metro.Text1.Text = " fulano"
e não da outra forma
FMCliente.Text1.Text= "fulano"
Junior, tente deste jeito:
Private Sub command1_Click()
Dim criterio As String
FMCliente.Adodc1.Recordset.MoveFirst
criterio = Text2.Text
FMCliente.Adodc1.Recordset.Find ("[IdCliente] = '" + criterio + "'")
End Sub
Caso nao use adodc, adpte ao seu metodo de conexao.... eu faço desse jeito...
Private Sub command1_Click()
Dim criterio As String
FMCliente.Adodc1.Recordset.MoveFirst
criterio = Text2.Text
FMCliente.Adodc1.Recordset.Find ("[IdCliente] = '" + criterio + "'")
End Sub
Caso nao use adodc, adpte ao seu metodo de conexao.... eu faço desse jeito...
ah, no caso o textbox do FMCliente, deve estar vinculado ao campo que desejar....
caso nao funcione de um, FMCliente.Adodc1.Refresh
caso nao funcione de um, FMCliente.Adodc1.Refresh
no form consulta...
Private Frm as Form
Public Sub ShowForm (FrmChamador as Form)
set Frm = FrmChamador
hide
show vbmodal
End Sub
no click do botao
Frm.Text1.Text = "fulano"
no form de cadastro vc faz a chamada do de consulta assim
dim Frm as FrmChamador
set frm = new frmChamador
frm.ShowForm me
set frm = nothing
(vc nao precisa criar a variavel desta forma - se chamar o metodo direto tb funciona - mas assim fica mais compativel com algo OO - e mais proximo de vb.net que pode vir a ser um proximo passo)
Private Frm as Form
Public Sub ShowForm (FrmChamador as Form)
set Frm = FrmChamador
hide
show vbmodal
End Sub
no click do botao
Frm.Text1.Text = "fulano"
no form de cadastro vc faz a chamada do de consulta assim
dim Frm as FrmChamador
set frm = new frmChamador
frm.ShowForm me
set frm = nothing
(vc nao precisa criar a variavel desta forma - se chamar o metodo direto tb funciona - mas assim fica mais compativel com algo OO - e mais proximo de vb.net que pode vir a ser um proximo passo)
Não é bem isso que eu queria KYANOR, mas valeu.
no seu vb va no menu project e clique em add module
dentro deste modulo crie uma variave
Public VarNomeCliente as String
no evento clique do seu botão no FMConsulta coloque
VarNomecliente = text1.text
FmCliente.text1.text = VarNomeCliente
para trabalhar com variaveis visiveis a varios forms o correto é declara - las em modulo.
dentro deste modulo crie uma variave
Public VarNomeCliente as String
no evento clique do seu botão no FMConsulta coloque
VarNomecliente = text1.text
FmCliente.text1.text = VarNomeCliente
para trabalhar com variaveis visiveis a varios forms o correto é declara - las em modulo.
wiliam - até funciona - mas não acho correto
trabalhar com variável pública em 90% dos casos dá dor de cabeça mais cedo ou mais tarde se seu sistema crescer
trabalhar com variável pública em 90% dos casos dá dor de cabeça mais cedo ou mais tarde se seu sistema crescer
Tópico encerrado , respostas não são mais permitidas