Fóruns
Microsoft Excel - 2...
2024 - Integração E...
ERRO EM TEMPO DE EX...
 
Notifications
Clear all

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,535 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
 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
 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
 Kdumyv
(@kdumyv)
Posts: 5
Active Member
Topic starter
 

Posso te enviar o código, e depois postamos a solução aqui no forum,... ?

 
Postado : 02/02/2016 9:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico