Boa noite a todos.
Estou enfrentando um problema do qual não vislumbro solução. Criei uma rotina em VB na qual necessito atualizar um registro numa determinada tabela.
Para tanto, criei um "recordset", porém apresenta um erro que diz que o "recordsert" não pode ser atualizado. Segue abaixo fragmento do código:
..........
Set RstNFEProcessada = db.OpenRecordset("Qry_NFE_PROCESSADA", dbOpenTable)
If (RstNFEProcessa.EOF) = False Then
With RstNFEProcessada
.Edit ---------------------------------------------------------------------------------------> linha do erro
Select Case (RstNFETipo1("VALOR_DA_NOTA") - RstNFETipo0("VALOR_DA_NOTA")) > 1
Case True
.Fields("TIPO_DEVOLUCAO") = "PARCIAL"
Case False
.Fields("TIPO_DEVOLUCAO") = "TOTAL"
End Select
.Fields("CHAVE_REFERENC_DEVOLUCAO") = RstNFETipo0("CHAVE_ACESSO")
.Fields("SIT_NFE_REFENCIADA") = RstNFETipo0("SITUACAO")
.Fields("VL_ICMS_NFE_REFERENCIADA") = RstNFETipo0("TOTAIS_VALOR_ICMS")
.Fields("VL_ICMS-ST_NFE_REFERENCIADA") = RstNFETipo0("TOTAIS_VALOR_ICMS-ST")
.Fields("OBSERVACOES") = "REGISTRO PROCESSADO DE FORMA AUTOMÁTICA"
.Fields("DATA_HORA_PROCESSAMENTO") = Now()
.Update
.MoveLast
.Close
End With
Desde já agradecido pela atenção dispensada.
Estou enfrentando um problema do qual não vislumbro solução. Criei uma rotina em VB na qual necessito atualizar um registro numa determinada tabela.
Para tanto, criei um "recordset", porém apresenta um erro que diz que o "recordsert" não pode ser atualizado. Segue abaixo fragmento do código:
..........
Set RstNFEProcessada = db.OpenRecordset("Qry_NFE_PROCESSADA", dbOpenTable)
If (RstNFEProcessa.EOF) = False Then
With RstNFEProcessada
.Edit ---------------------------------------------------------------------------------------> linha do erro
Select Case (RstNFETipo1("VALOR_DA_NOTA") - RstNFETipo0("VALOR_DA_NOTA")) > 1
Case True
.Fields("TIPO_DEVOLUCAO") = "PARCIAL"
Case False
.Fields("TIPO_DEVOLUCAO") = "TOTAL"
End Select
.Fields("CHAVE_REFERENC_DEVOLUCAO") = RstNFETipo0("CHAVE_ACESSO")
.Fields("SIT_NFE_REFENCIADA") = RstNFETipo0("SITUACAO")
.Fields("VL_ICMS_NFE_REFERENCIADA") = RstNFETipo0("TOTAIS_VALOR_ICMS")
.Fields("VL_ICMS-ST_NFE_REFERENCIADA") = RstNFETipo0("TOTAIS_VALOR_ICMS-ST")
.Fields("OBSERVACOES") = "REGISTRO PROCESSADO DE FORMA AUTOMÁTICA"
.Fields("DATA_HORA_PROCESSAMENTO") = Now()
.Update
.MoveLast
.Close
End With
Desde já agradecido pela atenção dispensada.