[Resolvido]Seletor de registros não sequenciais...

Beleza Feras?!
Em alguns dos meus formulários, após alguns testes, foi verificado que facilitaria ter os botões de seleção de registro neles.
Pois bem, como os registros não tem uma sequência numérica de 1 em 1, necessito fazer isso por VBA.
Tentei alguns métodos, mas nada funcionou.
Alguma dica?
Procurei alguns exemplos aqui no fórum, mas nenhum funcionou.
Grato desde já.

Luiz Carlos Junior.

Quais os métodos que você já tentou ?

Agora não to encontrando.
Fiz um botão que encontra os anteriores e os próximos registros, porém, só se forem sequenciais de 1 em 1.
Porém, tenho os registros dos professores que são: 458, 4601, 4885...Por aí vai.
Tentei usar tb os botões padrão do sistema, mas da erro e não funfa.
Pode me dar um exemplo?

E aproveitando que agora apareceu mais uma dúvida (abusando), tenho a tabela tb_Abonadas, que guarda as faltas abonadas de todos os funcionários da escola, que são inseridos através do form_Funcionários e ficam armazenadas nos campos (PRI_ABON, SEG_ABON...SEX_ABON) que se referem as 6 faltas possíveis no ano. Pois bem, todos os meses, tenho que imprimir as faltas abonadas de todos os funcionários que usaram essa falta. Gostaria que no relatório, que é individual, ele procurasse na tb_Abonadas e encontrasse as faltas relativas somente aquele mês. Deu pra entender? Se deu, é possível?

Desculpe o abuso, mas apareceu esta agora.

Alguém???

Conforme o Mestre JPaulo falou, exponha o que já tentou

Como disse acima, fiz uma adaptação do botão "Alterar", que altera os dados da tabela via Formulário, porém, só funciona se for sequencial (1, 2, 3...). Se pular algum número, não funfa.
Como aqui não tem sequência lógica nos registros, não consegui.
Segue anexo o BD completo. Tem muita coisa incompleta ainda...
Os botões de anterior e posterior estão do lado do REG, no form Funcionários.

Está em formato não reconhecido

Vou tentar zipar de novo. Aqui abriu normalmente.

Estou mandando zipado, como sempre mandei. Não sei porque deu erro no outro.
Mas segue.
Abraços.

Deve estar em Ms Access 2010.

Converta para Access 2007 e anexe de novo.

Como faço isso?

Botão do Office, Salvar como...

Fala Mestre JP. Não consegui converter, pois, o BD usa elementos que só funfam no 2010.
Então, copiei os itens que estão nas minhas dúvidas.
Segue anexo.

Abrasss!!!

Ninguem galera???
Por favor, help!

Boa tarde,
Veja

É por aí mesmo Mestre.
Agora, acredite se quiser. Copiei e ajustei de acordo com o meu BD e não funfou.
Ta dando tilt no meu cérebro já...rs
Enviei anexado. Será que poderia me ajudar a entender onde está o erro?
Valeu Mestre!

Boa tarde,
Não adianta tentar com formato não reconhecido

Não entendi?
Se for o arquivo enviado, sempre enviei assim e deu certo.
Trabalho com o Access 2010. É isso?
Se não, por favor me diga.
Abrasss!!!

Luiz, o formato não reconhecido é porque a maioria dos usuários ainda não têm o Ms Access 2010.

Tente converter para 2007 e anexar, ou aguardar alguem com o 2010 para o auxiliar.

Tendeu, vou tentar converter aqui, mas enquanto isso, segue as print das telas com as mensagens de erros que aconteceram.

Consegui juntar as principais partes e passar para o 2003. Segue.

Abra o formulario Funcionarios e navegue nos seus botões;

Mestre JP. O que acontece é a mesma coisa que no exemplo do Alexandre.
Quando acesso direto no form Func, funfa blz.
Porém, o programa abre no Menu e os forms Funcionários e Alunos só abrem depois do form Pesquisa_Alunos ou Pesquisa_Func serem abertos. Quando testo deste modo, da erro. Pq acontece isso?

Então vamos lá entender devagar....

1º Abre o form Menu

2º Pressiona o botão "PROFESSORAS E FUNCIONÁRIOS"

3º O que deve acontecer nesse form ?

Ele abre um outro form (Pesquisa_func), no qual digito ou o Registro do Funcionário ou o Nome e clico em pesquisar. Somente aí abre o Form_Funcionários. Pode-se tb optar pelo botão novo, onde cadastro um funcionário não existente no BD. Tendeu?
Isso foi preciso para o local onde usarei este BD.

Faça o teste dos funcionarios;

Mudou o Erro quando clica em anterior: "Você não pode ir para o registro especificado"

Private Sub cmdAnterior_Click()
Me.Filter = ""
DoCmd.GoToRecord , , acPrevious
End Sub

Aí, qdo paro a depuração, vai direto para o primeiro registro, e não para o anterior.
E qdo clico em Próximo registro, vai para o segundo, independente de qual eu estiver.

Beleza Mestres.
Retirei os Menu Pesquisa Alunos e Pesquisa_Func, que percebi que eram absurdamente desnecessários e dei uma arrumada.
Porém, mesmo assim, o exemplo que me deram de botões ainda nãi funfam. Aparece que estou utilizando uma referência invalida para o RecordSetClone.

Alguma dica sobre este erro?
No exemplo de vcs funcionou que foi uma beleza, por isso, acho que o erro é aqui no meu Access, pode ser isso?
Abrasss!!!

Alguém, por favor?
O projeto ta em fase final, mas esses botõezinhos estão me fazendo desistir deles. Ta osso!
Grato!

Bom dia mestres. 
Alguma alma caridosa pode me ajudar com essa dúvida?
Grato.

Fiz este esquema que é gigante para os botões Anterior e Próximo, que percorrem os registros no Form:

Private Sub cmdAnterior_Click()

On Error GoTo Err_cmdAnterior_Click

Dim db As Database
Dim rs As Recordset, rs2 As Recordset

Set db = CurrentDb

If Me.txtRM <> "" Then
    Habilitar
    RM = Nz(Me.txtRM, 0)
    RM = RM - 1
    Set rs = db.OpenRecordset("Select * from tb_Alunos Where RM= " & RM & "")
    Set rs2 = db.OpenRecordset("Select * from tb_Autorizados Where RM= " & RM & "")
        If Not rs.BOF Then
        Me.txtRM = rs("RM")
        Me.txtRA = rs("RA")
        Me.txtNome = rs("NOME")
        Me.cmbSEXO = rs("SEXO")
        Me.txtDATA_NASC = rs("DATA_NASC")
        Me.cmbNATURALIDADE = rs("NATURALIDADE")
        Me.txtMae = rs("MAE")
        Me.txtRGMAE = rs("RG_MAE")
        Me.txtPAI = rs("PAI")
        Me.txtRGPAI = rs("RG_PAI")
        Me.txtCERTIDAO_NOVA = rs("CERTIDAO_NOVA")
        Me.txtNUM_CERTIDAO = rs("CERTIDAO")
        Me.txtLIVRO = rs("LIVRO")
        Me.txtFOLHA = rs("FOLHA")
        Me.txtEMISSAO = rs("EMISSAO")
        Me.cmbDISTRITO = rs("DISTRITO")
        Me.cmbCOMARCA = rs("COMARCA")
        Me.cmbESTADO = rs("ESTADO")
        Me.txtENDERECO = rs("ENDERECO")
        Me.cmbBAIRRO = rs("BAIRRO")
        Me.cmbCIDADE = rs("CIDADE")
        Me.txtTEL1 = rs("TEL1")
        Me.txtTEL2 = rs("TEL2")
        Me.txtTEL3 = rs("TEL3")
        Me.txtTEL4 = rs("TEL4")
        Me.txtANO = rs("ANO")
        Me.cmbTURNO = rs("TURNO")
        Me.cmbENSINO = rs("ENSINO")
        Me.cmbSERIE = rs("SERIE")
        Me.cmbTURMA = rs("TURMA")
        Me.txtNUM_CH = rs("NUM_CH")
        Me.txtDATA_MAT = rs("DATA_MAT")
        Me.txtOBS = rs("OBS")
        Me.txtAutorizados = rs2("AUTORIZADOS")
        Me.txtRM.Enabled = True
        Me.cmdAlterar.Enabled = True
        Me.cmdExcluir.Enabled = True
        
        Formatar_Numeros
        
        Else
        
        MsgBox "Primeiro registro!", vbInformation + vbOKOnly
    
        End If
Else
    MsgBox ("Favor digitar um registro!"), vbInformation + vbOKOnly, "Nenhum Registro"
    Limpar
End If

Set db = Nothing
Set rs = Nothing
Set rs2 = Nothing

Exit_cmdAnterior_Click:
    Exit Sub

Err_cmdAnterior_Click:
    MsgBox "Ocorreu um erro inesperado!" & Chr(10) & "Por favor, ligue para o Administrados do Sistema!", , "Escola"
    Resume Exit_cmdAnterior_Click

A diferença é o EOF e o BOF.

Teria um jeito de compactar este código?
E como fazer ele funcionar se os registros não forem de 1 em 1, mas sim sem sequência lógica?
Grato!

Up!

Alguém?

Por favor, alguem pode me ajudar com esta dúvida!
Os exemplos que me passaram não funfaram.
Sei que deve ser fácil fácil para vocês, por isso esse clamor por ajuda.
Valeu!!!

Consegui a resposta em uma dúvida aqui no fórrum e o Piloto me ajudou.
Abrasss!!!