[Resolvido]Rotina começa e acaba

Boa Tarde

Quando faço click pergunta Registo Inicial e Registo Final, mas nã executa:


Exemplo: Iniciar no ID Nº 12 e terminar no ID Nº31 "ID é o Nº de registo"

Private Sub Comando14_Click()
Dim inicio, final As Integer
Dim rst As Recordset
Set rst = Me.Recordset
inicio = InputBox("Digite o N.º do Registo Inicial:")
final = InputBox("Digite o N.º do Registo Final:")
rst.MoveFirst
Do While Not rst.EOF
With rst
Me.IDENTIDADE = "Teste"
.MoveNext
End With
Loop
Set rst = Nothing
End Sub

Boa tarde, Assis

Quer actualizar a identidade dos registos escolhidos?
Private Sub Comando14_Click()
Dim inicio, final As Integer
Dim rst As Recordset
Set rst = Me.Recordset
inicio = InputBox("Digite o N.º do Registo Inicial:")
final = InputBox("Digite o N.º do Registo Final:")
rst.MoveFirst
Do While Not rst.EOF
If rst("Id")>= inicio and rst("id")<=final then
rst.edit
rst.IDENTIDADE = "Teste"
rst.update
End If
rst.MoveNext
Loop
Set rst = Nothing
End Sub

Cumprimentos

Boa tarde Alexandre

A sua dica Para aqui:

E não pergunta o inicio nem o fim

Private Sub Comando14_Click()
Dim inicio, final As Integer
Dim rst As Recordset
Set rst = Me.Recordset
inicio = InputBox("Digite o N.º do Registo Inicial:")
final = InputBox("Digite o N.º do Registo Final:")
rst.MoveFirst
Do While Not rst.EOF
If rst("Id")>= inicio and rst("id")<=final then
rst.edit
rst.IDENTIDADE = "Teste"
rst.update
End If
rst.MoveNext
Loop
Set rst = Nothing
End Sub

Tem razão, coloque rst("Identidade") = "Teste"
Cumprimentos,

Alexandre
Eis o meu exemplo
http://dl.dropbox.com/u/8169944/Assis%20-%20Rotina.mdb
Obrigado

Bom Dia Alexandre e Assis, uma pequena ajuda;

Dim inicio, final As Integer
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select * from Analises Order By ID ASC")

inicio = InputBox("Digite o N.º do Registo Inicial:")
final = InputBox("Digite o N.º do Registo Final:")

If rst.RecordCount = 0 Then Exit Sub
rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
If rst(0) >= Val(inicio) And rst(0) <= Val(final) Then
rst.Edit
rst.Fields("Identidade").Value = "Assis"
rst.Update
End If
rst.MoveNext
Loop
Me.Recalc
Set rst = Nothing

Bom Domingo

Bom dia JPaulo

Uma pequena ajuda ? ENORME ...... Resolvida.

JPaulo e a outra "Rotina ao percorrer todos os registos". É mais difícil?

Obrigado

"*** Só sei que nada sei ***"

Se nada sei, como sei que é só isso que eu sei? Pois se eu sei que nada sei, pelo menos uma coisa eu sei, então não posso dizer que nada sei.
A fascinante saga dos paradoxos

Desculpe amigo Assis, não resisti. Só divaguei um pouco sobre essa que é uma das apologias atribuídas ao nosso amigo Sócrates, hehehe. Outra que está sempre atual:

"O mais razoável que se possa dizer sobre o matrimônio e sobre o celibato é isto: haja o que haja você se arrependerá."

Olá Criquio

"E o pão do pobre quando cai, cai sempre com a manteiga virada para baixo"

Bom domingo

Obrigado pelo retorno o forum agradece.