ERRO EM TEMPO DE EXECUÇÃO '3421': ERRO DE CONVERSÃO DE TIPO

2024 - Integração Excel & Access 2024

Post Recente por Kdumyv 9 anos atrás

5 Posts

2 Usuários

0 Reactions

1,548 Visualizações

RSS

Kdumyv

(@kdumyv)

Posts: 5

Active Member

Topic starter

ERRO EM TEMPO DE EXECUÇÃO '3421': ERRO DE CONVERSÃO DE TIPO DE DADOS

Boa noite galera, estou com um erro em um código cujo banco de dados esta em access, o erro acontece quando dou duplo click em um registro.
o erro faz menção a linha -- rsOrdem.Seek "=", ListView1.SelectedItem.ListSubItems(1).Text

Se alguém poder me ajudar fico agradecido

Private Sub ListView1_DblClick()
    If (ListView1.ListItems.Count = 0) Then Exit Sub
    rsOrdem.Seek "=", ListView1.SelectedItem.ListSubItems(1).Text
    Call Mostrar
   
End Sub

Carlos Gomes

Postado : 07/01/2016 7:39 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Assim apenas pelo descrito, vamos apelar para o achômetro.
Acho que o valor ordem no banco access e numérico e o valor "passado" pela listview um texto/string gerando incompatibilidade.
Utilize uma função de conversão para o valor da listview, se for inteiro experimente com Val --> rsOrdem.Seek "=", val(ListView1.SelectedItem.ListSubItems(1).Text)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 08/01/2016 7:44 am

Kdumyv

(@kdumyv)

Posts: 5

Active Member

Topic starter

Boa noite galera,

Reinaldo valeu pela resposta cara e me desculpe pela demora,... viajo muito e nem sempre consigo responder...

Fiz o que vc falou mas ainda não resolveu!
agora ele da um erro '3021'(erro em tempo de execução 3021 nenhum registro atual) quando clico duas vezes nos dados da listview, peço para depurar e ele leva para uma parte do código conforme abaixo:

Private Sub Mostrar()
    If (RsOsEmitidas.RecordCount > 0) Then
[color=#FFFF00]        Caixa_Os.Text = RsOsEmitidas("Os")[/color]
        Caixa_Data.Text = RsOsEmitidas("Data")
        Caixa_Hora.Text = RsOsEmitidas("hora")
        Caixa_Motorista.Text = RsOsEmitidas("Motorista")
        Caixa_Veiculo.Text = RsOsEmitidas("Veiculo")
        Caixa_Quinzena.Text = RsOsEmitidas("Quinzena")
        Caixa_Codigo.Text = RsOsEmitidas("Codigo")
        Caixa_Cliente.Text = RsOsEmitidas("Cliente")
        Caixa_Solicitante.Text = RsOsEmitidas("Solicitante")
        Caixa_Departamento.Text = RsOsEmitidas("Departamento")
        Caixa_Telefone.Text = RsOsEmitidas("Telefone")
        Caixa_Descrição.Text = RsOsEmitidas("Descrição")
        Caixa_Obs.Text = RsOsEmitidas("Obs")
        Pts_Motorista.Text = RsOsEmitidas("Pts_Motorista")
        Valor_Pts_Motorista.Text = RsOsEmitidas("Valor_Pts_Motorista")
        Pts_Ropher.Text = RsOsEmitidas("Pts_Ropher")
        Valor_Pts_Ropher.Text = RsOsEmitidas("Valor_Pts_Ropher")
        Total_Pts_Motorista.Text = RsOsEmitidas("Total_Pts_Motorista")
        Total_Pts_Ropher.Text = RsOsEmitidas("Total_Pts_Ropher")
    End If
End Sub

Postado : 01/02/2016 8:08 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Aparentemente RsOsEmitidas está retornando sem valores/registros.
Monte um exemplo de sua planila e banoc de dados para que possamos "ver" a execução e tentar detectar onde/como ocorre o erro e tentar sana-lo.
Use dados ficticios se necessaario

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 02/02/2016 6:35 am