USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Duplo clik em dbgrid abre formulário com registro
Eraldo
DIADEMA
SP - BRASIL
ENUNCIADA !
Postada em 29/01/2007 12:20 hs            
Olá a todos,

Como faço para em um Dbgrid quando eu clicar duas vezes sobre um registro o mesmo abrir em outro form?

Obrigado pela atenção!

Abraço

***Força Sempre***
   
William 
CRAVINHOS
SP - BRASIL
Postada em 29/01/2007 14:34 hs            
cria um evento no duplo clique q pegue o campo desejado
 
crie uma consulta sql com ela e jogue num recordset
 
faça o eento para abrir o outro form e crie uma funtion ou sub q pegue os dados no recordset aberto e jgue na tabela...
 
se vc tiver os dados q vc precisa q passo com mais precisão!!

A maior dom dos humanos foi a habilidade de poder raciocinar e se guardar, mas a melhor dádiva foi aprender e ensinar!

     
Eraldo
não registrado
ENUNCIADA !
Postada em 29/01/2007 18:33 hs   
Obrigado William pela resposta.

Tentei da seguinte maneira, no duplo click no dbgrid coloquei o seguinte código
    Teste = Filtro.Text
    frmFluxo.Show

Criei um modulo com o seguinte código
Public Teste As Integer

No load do frmFluxo tem o seguinte código
Data1.RecordSource = "SELECT Tabela.Codigo, Tabela.Codigopro, Tabela.Lote, Tabela.Validade, Tabela.Fabricacao, Tabela.Obs  From Tabela WHERE Tabela.Codigopro=" & Teste
Data1.Refresh

E os text do formulário estão apenas com Data1 selecionado, mas não a tabela.

Quando tento o duplo click da o seguinte erro run-time "13" type mismatch.

Se poder me ajudar mais ficaria muito grato, muito obrigado!
Abraço
   
William 
CRAVINHOS
SP - BRASIL
ENUNCIADA !
Postada em 30/01/2007 17:21 hs            
hum..... run-time 13 eu num conheço não, mas ja usei uma vez uma sub parecida com essa...
 
bom , no duplo clique do dbgrid vc tem q pegar o nº da coluna e o nº da linha
 
+ou-assim
 
dim iCol as integer
dim iLin as integer
dim Teste as string
iCol = dbgrid1.row
iRow = dbgrid1.col
'num lembro se era assim o codigo
Teste = dbgrid1.textmatrix(iCol, iRow)
data1.recordsource = "SELECT Tabela.Codigo, Tabela.Codigopro, Tabela.Lote, Tabela.Validade, Tabela.Fabricacao, Tabela.Obs  From Tabela WHERE Tabela.Codigopro=" & Teste
 
 
ahhhh, programa em ado ou dao?? desculpe, pq os jeitos são diferentes e num vou saber te explicar em dao!!

A maior dom dos humanos foi a habilidade de poder raciocinar e se guardar, mas a melhor dádiva foi aprender e ensinar!

   
Eraldo
DIADEMA
SP - BRASIL
ENUNCIADA !
Postada em 31/01/2007 08:16 hs            
Valeu pela dica William,
 
Mas deu erro no código
Teste = dbgrid1.textmatrix(iCol, iRow) referente a textmatrix . Eu uso o Dao, mas posso fazer em Ado, mas desde que eu consiga abrir o formulário como falei acimaEmoções.
Mas ainda sim muito obrigado pela atenção e ajuda! E se puder ajudar mais, seria muito importante pra mim.
Obrigado!
 

***Força Sempre***
   
William 
CRAVINHOS
SP - BRASIL
ENUNCIADA !
Postada em 06/02/2007 19:35 hs            
vc declarou teste como string? dsculpe a pergunta, mas pod ser isto!

A maior dom dos humanos foi a habilidade de poder raciocinar e se guardar, mas a melhor dádiva foi aprender e ensinar!

   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página