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
"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