Problema ao deixar combobox selecionado
Olá galera, estou com um probleminha, tenho um form em meu projeto com vários campos combobox, este form serve tanto para inclusão como alteração de dados, quando vem um id uso como alteração de dados e os campos do mesmo ficam selecionados, porém, em um dos campos combobox ele não deixa selecionar e da o erro:
Operação não permitida quando o objeto esta aberto
Neste mesmo combobox os dados vem do banco de dados, vejam o código:
Me.conta_corrente.Items.Add("Banco(s):")
Try
Dim banco, codigo_agencia, conta_corrente, id_conta As String
RS.Open("SELECT id_conta, banco, codigo_Agencia, conta_corrente FROM tb_contas_correntes", Conexao, 1, 2) 'Abre a conexão com o login digitado no campo "Login" do formulário, para verificar se o login já existe
If RS.Fields("banco").Value <> "" Then 'Caso o login exista na base de dados
While Not RS.EOF
id_conta = RS.Fields("id_conta").Value
banco = RS.Fields("banco").Value
codigo_agencia = RS.Fields("codigo_agencia").Value
conta_corrente = RS.Fields("conta_corrente").Value
Me.conta_corrente.Items.Add(id_conta & " - " & banco)
RS.MoveNext()
End While
RS.Close()
End If
Catch ex As Exception
MsgBox("Erro encontrado1: " & Err.Description)
End Try
Me.conta_corrente.Items.Add("Caixa(s):")
Try
Dim ponto, codigo, id_ponto As String
RS.Open("SELECT id_ponto, ponto, codigo FROM tb_pontos", Conexao, 1, 2)
If RS.Fields("ponto").Value <> "" Then
While Not RS.EOF
id_ponto = RS.Fields("id_ponto").Value
ponto = RS.Fields("ponto").Value
codigo = RS.Fields("codigo").Value
Me.conta_corrente.Items.Add(id_ponto & " - " & codigo & " - " & ponto)
'Me.conta_corrente.Items.Add(id_ponto)
RS.MoveNext()
End While
RS.Close()
End If
Catch ex As Exception
MsgBox("Erro encontrado4: " & Err.Description)
End Try
E o codigo que pego o item para deixar selecionado é:
Dim id_usar As String = RS8.Fields("id_conta").Value
Try
RS2.Open("SELECT id_conta, banco, codigo_agencia, conta_corrente, data_cadastro FROM tb_contas_correntes where id_conta = " & Trim(id_usar) & " ", Conexao, 1, 2)
If RS2.Fields("banco").Value <> "" Then
Dim id_conta_banco, banco, codigo_Agencia, conta_corrente As String
id_conta_banco = RS2.Fields("id_conta").Value
banco = RS2.Fields("banco").Value
codigo_Agencia = RS2.Fields("codigo_Agencia").Value
conta_corrente = RS2.Fields("conta_corrente").Value
Me.conta_corrente.Text = (id_conta_banco & " - " & banco)
End If
Catch ex As Exception
MsgBox("Erro encontrado: " & Err.Description)
End Try
RS2.Close()
Alguém sabe me dizer o porque do erro ?
Atenciosamente,
Xavier
Discussão (1)
Carregando comentários...