Este fórum está sendo desativado

[erickamaralti]

Olá pessoal, sou novo aqui no fórum, e também novo no VBA, estou estudando e criando um modelo de sistema de cadastro para a loja de minha mãe, e desde já agradeço qualquer tipo de ajuda neste caso!

Tenho um formulário de cadastro de clientes e nele contem uma multipage, e externamente tenho uma formulário de pesquisa de clientes com uma listview, bom! A dúvida é a seguinte, existe a possibilidade de ao dar o duplo clique na listview abrir os dados no meu formulário de cadastro de clientes citando uma determinada página? Ou seja; ao clicar duas vezes ele abrir meu form_cadastro carregando os dados para as textbox na página 2 da multipage no outro form???

[Basole]

@erickamaralti
Experimente assim.... e altere os nomes dos componentes de acordo com os seus

Código: Selecionar todos

Private Sub Listview1_DblClick()
          
With Me.Listview1.SelectedItem
          
USERFORM1.TextBox1.Text = .ListSubItems(2).Text     ' 2  => por ser o segundo subitem, no caso a coluna cliente       
           
End With
        
USERFORM1.MultiPage1.Value = 1 ' o indice começa com zero, entao a segunda pag. é a 1 

End Sub

[erickamaralti]

Consegui da seguinte forma, primeiro referenciei o formulário "PAI" dentro do bloco "With" em seguida a página onde eu gostaria de inserir as informações, e criei uma "SUB" para carregar as "Textbox" e funcionou perfeitamente!

Código: Selecionar todos

Private Sub ListViewCliente_Dblclick()

With Me.ListViewCliente.SelectedItem

Frm_Cadastro.MultiPage1.Value = 1

Call Carregar_Textbox

Frm_Cadastro.Show

End With
    
End Sub

Criei a essa "SUB" para carregar os dados:

Código: Selecionar todos

Sub Carregar_Textbox()

On Error GoTo Erro

Dim linha As Double

With Frm_Pesquisa.ListViewCliente

    linha = .SelectedItem.Index
    
    Frm_Cadastro.TxtCodigo2.Value = .ListItems(linha).Text
    Frm_Cadastro.TxtNomeCliente.Value = .ListItems(linha).ListSubItems(2).Text
    Frm_Cadastro.TxtCpf.Value = .ListItems(linha).ListSubItems(3).Text
    Frm_Cadastro.TxtDataNasc.Value = .ListItems(linha).ListSubItems(4).Text
    Frm_Cadastro.CbSexo.Value = .ListItems(linha).ListSubItems(5).Text
    Frm_Cadastro.TxtEndereco.Value = .ListItems(linha).ListSubItems(6).Text
    Frm_Cadastro.TxtNumero.Value = .ListItems(linha).ListSubItems(7).Text
    Frm_Cadastro.TxtBairro.Value = .ListItems(linha).ListSubItems(8).Text
    Frm_Cadastro.CbUF.Value = .ListItems(linha).ListSubItems(9).Text
    Frm_Cadastro.TxtComp.Value = .ListItems(linha).ListSubItems(10).Text
    Frm_Cadastro.TxtCidade.Value = .ListItems(linha).ListSubItems(11).Text
    Frm_Cadastro.TxtCep.Value = .ListItems(linha).ListSubItems(12).Text
    Frm_Cadastro.TxtTelefone.Value = .ListItems(linha).ListSubItems(13).Text
    Frm_Cadastro.TxtEmail.Value = .ListItems(linha).ListSubItems(14).Text
    
End With

Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub