ERRO EM TEMPO DE EXECUÇÃO 381
Enviado: Qua Abr 24, 2019 2:26 pm
"ERRO EM TEMPO DE EXECUÇÃO 381
NÃO FOI POSSÍVEL OBTER A PROPRIEDADE LIST. ÍNDICE DE MATRIZ DE PROPRIEDADE INVÁLIDO "
Tem outro modo de escrever esse comando ??
Private Sub ListBox3_Change()
TextBox_grupo_altera.Text = ListBox3.List(ListBox3.ListIndex, 0)
TextBox_tipo_altera.Text = ListBox3.List(ListBox3.ListIndex, 1)
TextBox_data_altera.Text = ListBox3.List(ListBox3.ListIndex, 2)
TextBox_valor_altera.Text = ListBox3.List(ListBox3.ListIndex, 3)
TextBox_obs_altera.Text = ListBox3.List(ListBox3.ListIndex, 4)
End Sub
NÃO FOI POSSÍVEL OBTER A PROPRIEDADE LIST. ÍNDICE DE MATRIZ DE PROPRIEDADE INVÁLIDO "
Tem outro modo de escrever esse comando ??
Private Sub ListBox3_Change()
TextBox_grupo_altera.Text = ListBox3.List(ListBox3.ListIndex, 0)
TextBox_tipo_altera.Text = ListBox3.List(ListBox3.ListIndex, 1)
TextBox_data_altera.Text = ListBox3.List(ListBox3.ListIndex, 2)
TextBox_valor_altera.Text = ListBox3.List(ListBox3.ListIndex, 3)
TextBox_obs_altera.Text = ListBox3.List(ListBox3.ListIndex, 4)
End Sub