Amigos, não entendo o porque que o valor realcionado a txtdescr.text não eh atualizado... apresentando um erro  quando se modifica o valor deste campo, este problema não ocorre com os outros valores em seus seus respectivos campos, apenas neste.. alguem que já tenham tido este mesmo problema, favor me dar uma luz ae ..

 

vejam o codigo

 

   Else
     If Command2.Enabled = False Then
        rs.Open sql2
        rs.Update
        rs.Fields("chave").Value = txtchave.Text
        rs.Fields("descr").Value = txtdescr.Text ' Aqui o erro
        rs.Fields("qtde").Value = txtqtde.Text
        rs.Fields("valorcusto").Value = txtpreco.Text
       'rs.Fields("valorvenda").Value = txtvalorvenda.Text -> Substituir pela função de calculo do valor de venda
        rs.Fields("valorvenda").Value = txtvalorvenda.Text
        rs.Fields("qtdedisp").Value = txtqtde.Text
        rs.Fields("pontore").Value = txtpontore.Text
        Call limpacontroles
        rs.Update
        rs.Close
        MsgBox "PRODUTO EDITADO COM SUCESSO"
        Command2.Enabled = True
      
      End If
    End If
End Sub

 

O erro eh o seguinte: Operações de varias etapas gerou erro, verificar valores de status.. Como se houvesse incompatibilidade com o tipo de dado a ser atualizado , mas não ha esse problema...

Verifique as propriedades do text box. Veja se tem valores no DataSource.

obs. pra que tanto update. Eu prefiro gravar com comandos no servidor (SQL).

Tiago,

 

O ADO nao permite saber qual o erro gerado... mas na minha opniao, o erro eh pq o valor de txtDesc eh maior q o limite do campo na tabela... ja tive o mesmo problema

 

Mas posso te dar um conselho: para de usar o Update e o AddNew, e use diretamente o SQL pra gravar no Banco... eh mto mais rapido e mais confiavel...

 

Flw!

Valew Elieser , vc como sempre me ajudando, jah tinha notado que poderia ser esse o problema mas naum eh ... e valeu pelo conselho, jah estou tratando de mudar isso .. abraço man