MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Erro no loop com EOF

    avatar
    Gilson40
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Erro no loop com EOF Empty Erro no loop com EOF

    Mensagem  Gilson40 24/7/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Erro no loop com EOF Empty Re: Erro no loop com EOF

    Mensagem  Alvaro Teixeira 24/7/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: 8/11/2024, 03:51