LOCALIZAR PROXIMO

USUARIO.EXCLUIDOS 12/04/2007 12:53:57
#211509
Em uma tabela contém 1000 registros tenho um campo
chave neste campos tenho alguns registros repetidos
fiz uma consulta onde ele procura pela chave joga os
dados da linha nos devidos txts...

Como faço para que minha consulta va para o proximo
registro que tenha a mesma chave???

Ex:
Chave Cód_DBAB_Seg Cód DBAB Nome do Órgão
994 144 14 TELEBRASÍLIA CELULAR
995 1584 158 "TESS S/A - CELULAR
996 554 55 TELEMAT CELULAR - TCO
997 694 69 GLOBAL TELECOM - CELU
998 354 35 TIM NORDESTE - TELECEA
1015 9080704 908070 RCI Soluções Tecnológi
1015 22222224 2222222 RCI Soluções Tecnológi
1015 33333334 3333333 RCI Soluções Tecnológi

Quando eu clicar no comando, quero que va para o proximo registro
que tenha a chave 1015 e assim sucessivamente até que a chave seja
diferente quando chegar no ultimo registro eu exibo uma menssagem...


Alguém pode me ajudar por favor!!!
USUARIO.EXCLUIDOS 12/04/2007 13:06:17
#211517
vc usa o data?
.MoveNext -> proximo
USUARIO.EXCLUIDOS 12/04/2007 13:21:55
#211527
A minha primeira consuta que pega o registro ta assim!!!

Private Sub Comando8_Click() 
Dim db As DAO.Database      
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl_Solução_CBAR", dbOpenDynaset)
    If MsgBox("Continuar com a inclusão???", vbYesNo, "Sistema de Controle de Convênios") = vbYes Then
        If IsNull(Me.Texto15) Or IsNull(Me.Texto33) Then
            MsgBox ("Preencha todos os campos e continue o processo!!!"), vbCritical, "Sistema de Controle de Convênios"
            Exit Sub
        Else
            rs.AddNew
            rs.Fields("Chave") = Id
            rs.Fields("Cód DBAB") = Texto15
            rs.Fields("Cód_DBAB_Seg") = Texto15 + Cd_Segm
            rs.Fields("Nome do Órgão") = Texto79
            rs.Fields("Agencia_CBAR") = Texto9
            rs.Fields("Conta_CBAR") = Texto13
            rs.Fields("Inclus_Cod_CBAR") = Texto33
            rs.Fields("Caixas") = Texto42
            rs.Fields("Float_Caixas") = Texto44
            rs.Fields("BDN") = Texto66
            rs.Fields("Float_BDN") = Texto68
            rs.Fields("Fone_Facil_Pers") = Texto62
            rs.Fields("Float_Fone_Facil_Pers") = Texto64
            rs.Fields("Internet") = txtInternet
            rs.Fields("Float_Internet") = Texto56
            rs.Fields("Pag-Contas") = Texto16
            rs.Fields("Float_Pag-Contas") = Texto18
            rs.Fields("Terminal-Gerencial") = Texto20
            rs.Fields("Float_Terminal-Gerencial") = Texto22
            rs.Fields("OBB") = Texto58
            rs.Fields("Float_OBB") = Texto60
            rs.Fields("Internet-Pess") = Texto24
            rs.Fields("Float_Internet-Pess") = Texto26
            rs.Fields("Banco_Postal") = Texto74
            rs.Fields("Float_Banco_Postal") = Texto76
            rs.Fields("Correspondente") = Texto70
            rs.Fields("Float_Correspondente") = Texto72
            rs.Update
            MsgBox ("Cadastro efetuado com sucesso!!!"), vbInformation, "Sistema de controle de convênios"
            rs.Close
            Exit Sub
        End If
    Else
        MsgBox ("Inclusão cancelada!!!"), vbCritical, "Sistema de Controle de Convênios"
        Exit Sub
    End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar