Atualizar campos de um formulário baseado em um registros filtrado em um caixa de listagem de outro formulário.

Boa tarde a todos.. Estou a criar um projeto que ira me facilitar em meu trabalho do dia a dia, e estou com um problema a resolver e conto com a ajuda dos amigos.. Tenho formulário frmvendas ( onde tenho uma combo que e baseada em uma consulta para filtrar os meus registros da tblcliente com critério nome da empresa.. E uma caixa de combinação que me exibe os registros de clientes daquela empresa selecionada, ate ai tudo bem... Quero que ao clicar no nome do cliente na caixa de listagem do frmvendas, abra o formulário frmvendas2 com os campos preenchidos com os dados daquele cliente, para que eu possa somente preencher o valor e salvar na tblvendas.. Obrigado no aguardo..

Crie um módulo e coloque:

Global empresaGLOB As Long
Global clienteGLOB As String
Global setorGLOB As String
Global ramalGLOB As Long

Dê o nome que quiser ao módulo e salve.

No evento ao clicar duas vezes da Listbox do frmVendas coloque:

empresaGLOB = Me.combo1
clienteGLOB = Me.Lista2.ListIndex + 1
clienteGLOB = Me.Lista2.Column(0, clienteGLOB)
setorGLOB = Me.Lista2.ListIndex + 1
setorGLOB = Me.Lista2.Column(1, setorGLOB)
ramalGLOB = Me.Lista2.ListIndex + 1
ramalGLOB = Me.Lista2.Column(2, ramalGLOB)
DoCmd.OpenForm "frmVendas2", acNormal, , , acFormAdd

No evento ao carregar do formulario frmVendas2 coloque:
Me.Empresa = empresaGLOB
Me.Cliente = clienteGLOB
Me.Setor = setorGLOB
Me.Ramal = ramalGLOB