Erro em tempo de execução

[fpetrucc 0]

esse é o código:Sub vetor()Dim vteste() As StringDim strsql As StringDim db As DAO.DatabaseDim rs As DAO.RecordsetDim vLinha As StringDim vPCP As StringDim vStatus As IntegerDim NumReg As IntegerSet db = CurrentDbstrsql = "SELECT ProdutosExportação.Linha, ProdutosExportação.PCP," _ & "ProdutosExportação.status, Max(ProdutosExportação.DataLiberada) AS MáxDeDataLiberada " _ & "FROM ProdutosExportação " _ & "GROUP BY ProdutosExportação.LINHA, ProdutosExportação.PCP, ProdutosExportação.Status;" Set rs = db.OpenRecordset(strsql) With rs .MoveLast .MoveFirst NumReg = rs.RecordCount MsgBox "NÚMERO DE REGISTROS DA TABELA PEDIDOS: " & NumReg Do While Not .EOF .Edit vLinha = !Linha vPCP = !PCP !Status = 1 .Update Debug.Print vLinha & " - " & vPCP & " - " & !Status .MoveNext Loop End WithSet db = NothingEnd Sub________________________________________________________________________esse é o erro:erro em tempo de execução '3027':Não é possível atualizar. O banco de dados ou objeto é somente leitura.Qual será o problema?fique com Deus

[Fernando Almeida 0]

caso você execute esse codigo elo proprio vb ele dara a mensagem de erro, dai ao invez de apertar fechar ou cancelar, aperta o debug e pega qual a linha que ele da o erro, assim voce se ajuda a ser atendido mais rapidamente.mas mesmo assim acredito que isso possa ser pelo fato de quando você setar o recordset não passar nenhum parametro extra, pois se não me engano precisa setar algum tipo de parametro, o qual não lembro, para que se posa utilizar o rs.updateflw

[fpetrucc 0]

caso você execute esse codigo elo proprio vb ele dara a mensagem de erro, dai ao invez de apertar fechar ou cancelar, aperta o debug e pega qual a linha que ele da o erro, assim voce se ajuda a ser atendido mais rapidamente.mas mesmo assim acredito que isso possa ser pelo fato de quando você setar o recordset não passar nenhum parametro extra, pois se não me engano precisa setar algum tipo de parametro, o qual não lembro, para que se posa utilizar o rs.updateflw

a linha que dá erro é essa:.Edit

[Giovani 104]

Título do tópico editado conforme Regras do Fórum iMasters

Sai: AO EXECUTAR ROTINA DA O SEGUINTE ERRO: ERRO EM TEMPO DE EXECUÇÃO

Entra: Erro em tempo de execução