ESTOU COLOCANDO BOTÕES PARA AS FUNÇÕES : 

SÓ QUE NÃO DÁ CERTO QUANDO VAI PARA Data1_Reposition,

 DA ERRO DE NO CORRENTE RECORD, E EU NÃO SEI O PORQUE.

SERÁ QUE ALGUEM JÁ FEZ ESSE TIPO DE COISA ? 

SE FEZ POR FAVOR ME DE UMA AJUDA.

AI O CÓDIGO : 

        If Data1.Recordset.EOF And Data1.Recordset.BOF Then Exit Sub
        
        If Index = 0 Then   'primeiro
           If Not Data1.Recordset.BOF Then Data1.Recordset.MoveMin
           
           If Data1.Recordset.BOF Then MsgBox "Primeiro Registro", vbInformation, "ATENÇÃO"
           Data1.Recordset.MoveMin

        ElseIf Index = 1 Then       'anterior
           If Not Data1.Recordset.BOF Then Data1.Recordset.MovePrevious
           If Data1.Recordset.BOF Then
               MsgBox "Primeiro Registro", vbInformation, "ATENÇÃO"
               Data1.Recordset.MoveMin
           End If

        ElseIf Index = 3 Then       'proximo
           If Not Data1.Recordset.EOF Then Data1.Recordset.MoveNext
           If Data1.Recordset.EOF Then
              MsgBox "Último Registro", vbInformation, "ATENÇÃO"
          End If
        ElseIf Index = 4 Then       'último
           If Not Data1.Recordset.EOF Then Data1.Recordset.MoveMax
              If Data1.Recordset.EOF Then MsgBox "Último Registro", vbInformation, "ATENÇÃO"
          End If
End Sub



OBRIGADO


E QUE DEUS NOS AJUDE.

minha sub para mover registro ...

'trata a movimentação de registros na tabela de dados
Public Sub MoveRegistro(F As Form, vgParaOnde As Integer)
  Screen.MousePointer = vbHourglass               'mouse = ampulheta
  vgBotoesOK = False                              'reseta flag
  On Error Resume Next
  If vgParaOnde = REG_FORCAVOLTA Then
    F.vgTb.MovePrevious
  End If
  If Err Then vgParaOnde = REG_PRIMEIRO           'se deu erro vai p/ 1o. reg
  Select Case vgParaOnde                          'verifica para onde movimentar
    Case REG_PRIMEIRO                             'para o primeiro?
      F.vgTb.MoveMin                            'então vamos...
    Case REG_ANTERIOR                             'anterior
      F.vgTb.MovePrevious                         'move
    Case REG_SEGUINTE                             'seguinte
      F.vgTb.MoveNext                             'move
    Case REG_ULTIMO                               'último registro
      F.vgTb.MoveMax                             'move
  End Select
  If F.vgCaracteristica = F_COM_PAI Then
    F.DentroDaFaixa vgParaOnde                    'controla a faixa de movimentação
  Else                                            'senão,
  If F.vgTb.EOF Then                              'se final do arquivo,
    F.vgTb.MoveMax                               'volta um
  ElseIf F.vgTb.BOF Then                          'senão, se início do arquivo,
    F.vgTb.MoveMin                              'avança um
  End If
  End If
  F.Reposition
  AjustaRolagem F
  vgBotoesOK = True                               'reajusta a flag e
  Screen.MousePointer = vbDefault                 'o ponteiro do mouse...
End Sub

tem como vc mew dizer como chamo essa função já que tenho os botões para fazer a movimentação no arquivo.

 

por favor

 

obrigado