Segue meu arquivo:
a mainha linha de código que faz chamar ou que deveria fazer a seleção e levar até a outra user form são essas:
Private Sub ListView1_KeyPress(KeyAscii As Integer)
ListView1_Dblclick
End Sub
--------------------------------------------------------------------------
Private Sub lstv_Dblclick()
With UserForm1
.sql = wsCadastroClientes
.sql = .sql & " WHERE NF_ENTRADA = " & lstv.SelectedItem
Set .CarregaRegistro = carregaDados.Recordset
.wsCadastroClientes.Open .sql, adOpenKeyset, adLockOptimistic
Call .CarregaRegistro
.indice = id
.lblIndice.Caption = id
.lblTotal.Caption = Total
Set .wsCadastroClientes = Nothing
End With
Unload Me
End Sub
Postado : 06/03/2015 4:21 am