Aê galara, olha eu aqui de novo,

Estou fazendo um programa para impressão de nota fiscal, na descrição do produto usei textbox indexado para cada campo da linha, os campos são: codigo, descrição, quantidade,  valor unitario, valor total.

usei o código abaixo para chamar um outro form para consultar os produtos caso não saiba o código, até ai tudo bem.

 

Public Sub txtCodProd_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then
     frmLista.Show 1
End If

End Sub

 

No form que deve ser selecionado o produto usei o código abaixo para quando der um click automaticamente jogar os dados no form anterior

 

Public Sub MSFlexGrid1_Click()

MSFlexGrid1.Col = 0
    frmNF.txtCodProd(Index).Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 1
    frmNF.txtDescricao(Index).Text = MSFlexGrid1.Text
MSFlexGrid1.Col = 2
    frmNF.txtVlun(index).Text = Format(MSFlexGrid1.Text, "0.00")
   
    Unload Me
   
End Sub

 

Mas o problema é que quando clico no item selecionado para jogar os dados o programa esta reclamando que a váriavel index não está definida, como faço para que ele assuma a váriavel do form anterior?

 

agradeço desde já,

Daniel Santos

Isto ocorre porque Index não esta declarado.

Você tem a variável Index declarada dentro do evento txtCodProd_KeyDown mas não dentro do evento
Sub MSFlexGrid1_Click

Ex:
Public Sub txtCodProd_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

Você pode tentar usar uma variável para guardar o Index dentro do evento txtCodProd e usa-lá no
MSFlexGrid1_Click (Dentro do código)