DJoaquim

Não consegui.

Bom dia, Alyson. Ficou assim. Mensagem do Access: " Loop sem Do " Por aqui não tem como mandar parte do projeto? --------------------------- Private Sub btProximo_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("TabCadSocios") Do While Not rs.EOF '----------- If DCount("CodigoControle", "TabCadSocios") < 1 Then Me.txtID_Socio = 1 Else Dim intRegMaximo As Integer intRegMaximo = Nz(DMax("[ID_Socio]", "[TabCadSocios]")) If intRegMaximo = Me.txtID_Socio Then MsgBox " Último Registro", vbInformation, "Atenção!" Exit Sub ElseIf Me.txtID_Socio = intRegMaximo + 1 Then MsgBox " Último Registro", vbInformation, "Atenção!" Me.txtID_Socio = intRegMaximo Else Me.txtID_Socio = Me.txtID_Socio + 1 End If Carregar '--------------- ' Processar o registro atual Debug.Print rs!ID_Socio ' Mover para o próximo registro rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

num campo com numeração sequencial, quando eu excluo um registro fica uma lacuna no meio, ex: 1-2-3-4-6-7-8. Quando navego pelos registros através dos botões anterior e próximo, quando chega nessa lacuna, dá erro. Alguém tem algum código que faça ele pular do registro 4 para o 6 ?