DBLCLICK EM DOIS FORMS
Olá pessoal,
Tenho um listview que no evento dblclick carrega o campo código em um form. Só que agora me surgiu uma dúvida: tive de criar um terceiro form em que aponta para o mesmo listview, ou seja, se o form1 estiver aberto o dblclick do listview carrega esse codigo, mas se o form2 estiver aberto carrega o campo codigo nele. é o campo código da mesma tabela mas em forms diferentes. Tem como???
Tenho um listview que no evento dblclick carrega o campo código em um form. Só que agora me surgiu uma dúvida: tive de criar um terceiro form em que aponta para o mesmo listview, ou seja, se o form1 estiver aberto o dblclick do listview carrega esse codigo, mas se o form2 estiver aberto carrega o campo codigo nele. é o campo código da mesma tabela mas em forms diferentes. Tem como???
Esqueci de dizer, é vb6 com ACCESS, segue o código que carrega em um form:
Private Sub ListView1_DblClick()
Dim rs As New ADODB.Recordset
Dim ComandoSQL As String
Dim criterio As String
[ô]define o criterio para selecionar as biometrias
criterio = Mid(ListView1.SelectedItem.Key, 2, Len(ListView1.SelectedItem.Key))
ComandoSQL = [Ô]SELECT * FROM tbVeiculo Where tbVeiculo.CodVeiculo=[Ô] & criterio
rs.Open ComandoSQL, conn, adOpenStatic
If rs.EOF And rs.BOF Then
[ô]vCarrega = False
Else
[ô] aqui carrega o form de cadastro de viagens
[ô] preciso que o programa verifique se é o form
[ô]de cadastro de viagens ou o de cadastro de veiculos
[ô]que esta aberto para carregar o codigo.
frmCadViagem.txtCodVeiculo.Text = rs!CodVeiculo
End If
[ô]fecha o recordset e libera a memoria
rs.Close
Set rs = Nothing
Unload Me
End Sub
Private Sub ListView1_DblClick()
Dim rs As New ADODB.Recordset
Dim ComandoSQL As String
Dim criterio As String
[ô]define o criterio para selecionar as biometrias
criterio = Mid(ListView1.SelectedItem.Key, 2, Len(ListView1.SelectedItem.Key))
ComandoSQL = [Ô]SELECT * FROM tbVeiculo Where tbVeiculo.CodVeiculo=[Ô] & criterio
rs.Open ComandoSQL, conn, adOpenStatic
If rs.EOF And rs.BOF Then
[ô]vCarrega = False
Else
[ô] aqui carrega o form de cadastro de viagens
[ô] preciso que o programa verifique se é o form
[ô]de cadastro de viagens ou o de cadastro de veiculos
[ô]que esta aberto para carregar o codigo.
frmCadViagem.txtCodVeiculo.Text = rs!CodVeiculo
End If
[ô]fecha o recordset e libera a memoria
rs.Close
Set rs = Nothing
Unload Me
End Sub
Tópico encerrado , respostas não são mais permitidas