MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro no loop com EOF

    Compartilhe

    Gilson40
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 18/07/2011

    Erro no loop com EOF

    Mensagem  Gilson40 em Seg 24 Jul 2017, 00:23

    Tenho em um botão do meu formulário o código abaixo. Só que sempre dá um erro dizendo:

    "Falta de parametros. Era esperado 1."

    A questão acho que é que "item" é uma consulta com uma condição where e não uma tabela direta. Meu objetivo é renumerar os itens após uma exclusão

       Dim StrItem As Integer
       Dim db As Database
       Dim rs As Recordset
       Set db = CurrentDb()
       Set rs = db.OpenRecordset("Item")
       StrItem = 0
       Do While Not rs.EOF
       rs.Edit
       rs(0) = StrItem + 1
       StrItem = item
       rs.Update
       rs.MoveNext
       Loop
       rs.Close
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    Registrado : 15/03/2013

    Re: Erro no loop com EOF

    Mensagem  ahteixeira em Seg 24 Jul 2017, 12:56

    Olá Gilson Fontanella,

    Tente colocando a instrução SQL diretamente.
    Exemplo:
    Set rs = db.OpenRecordset("SELECT * FROM tabelaDados.... WHERE ...")

    e no final do código não se esqueça de colocar:
    set rs = nothing
    set db = nothing


    Abraço

      Data/hora atual: Ter 21 Nov 2017, 17:32