falha de ODBC

[SimoneCardarelli 0]

Pessoal belezinha????

 

Sou nova por aqui, e novata em programação em VB ..

 

é o seguinte estou com um problema nesse ODBC .. .

Eu fiz uma rotina para salvar dados de um formulario para uma tabela ..

O codigo funciona certinho belezinha sem erros.. mais quando ele da o UPDATE essa coisa da "A chamada ODBC -- falhou" ,

e o pior de tudo que ate quarta feira funcionava, mais eu fui inventar de apagar a tabela no servidor e fazer de novo porque eu precisava excluir algumas linhas então preferi excluir e refazer ... e dpois disso a função não funciona mais.. e meu chefe ta de ferias e eu precisava disso pra ontem .. to entrando em PANE rs... alguem podee me ajudar???

 

A função é o seguinte.. eu confirmo dados de uma tabela e se houver alguma alteração ele grava os dados em uma outra tabela como histórico ...

mas quando vai salvar NÃO SALVAAA!!!!

 

Dim rsHistorico As Recordset

Dim rsPedidosVendas As Recordset

 

Set rsHistorico = CurrentDb.OpenRecordset("Select * from HistoPV where numero_ordem = " & Me("numero_ordem") & " and " & "linha = " & Me("linha"), dbOpenDynaset, dbSeeChanges)

Set rsPedidosVendas = CurrentDb.OpenRecordset("Select * from linhas_ov where numero_ordem = " & Me("numero_ordem") & " and " & "linha = " & Me("linha"))

 

If Not rsPedidosVendas.EOF Then

rsPedidosVendas.MoveLast

 

If Me.linha <> rsPedidosVendas("linha") Or _

Me.item <> rsPedidosVendas("item") Or _

Me.quantidade <> rsPedidosVendas("quantidade") Or _

Me.preco1 <> rsPedidosVendas("preco1") Or _

Me.Data <> rsPedidosVendas("data") Or _

Me.status <> rsPedidosVendas("status") Or _

Me.Texto71 <> rsPedidosVendas("OCCliente") Or _

Me.Data <> rsPedidosVendas("data") Then

 

rsHistorico.AddNew

rsHistorico("linha") = rsPedidosVendas("linha")

rsHistorico("numero_ordem") = rsPedidosVendas("numero_ordem")

rsHistorico("Item") = rsPedidosVendas("item")

rsHistorico("descricao") = Me("descricao")

rsHistorico("quantidade") = rsPedidosVendas("quantidade")

rsHistorico("preco1") = rsPedidosVendas("preco1")

rsHistorico("data") = rsPedidosVendas("data")

rsHistorico("Estado") = rsPedidosVendas("status")

rsHistorico("OCCliente") = rsPedidosVendas("OCCliente")

rsHistorico("data") = rsPedidosVendas("data")

rsHistorico("qtde_entregue") = rsPedidosVendas("qtde_entregue")

rsHistorico("IpiValor") = rsPedidosVendas("IpiValor")

rsHistorico("IpiAliq") = rsPedidosVendas("IpiAliq")

rsHistorico("data_alteracao") = Now

rsHistorico("Usuario") = CurrentUser

rsHistorico("status") = "ALTERACAO"

rsHistorico.Update

 

 

End If

End If

 

ta ai .. será que alguma coisa na tabela que eu preciso alterar no servidor??? ou não ?

[scorpio 7]

Tenta isso pra conseguir mais iinformções do erro.

   Dim err_ As Error
  For Each err_ In DBEngine.Errors
      MsgBox err_.Number & " " & err_.Description
  Next MyError