NAVEGA?ÃO DE REGISTROS - 2

JABA 12/10/2017 19:38:53
#477128
Faça assim pra ver se vai:

Private Sub cmdProximo_Click()
   
        If lTBPerfis.EOF = false Then
           lTBPerfis.MoveNext
           MontarNavegacao
        End If
    
        txtIdPerfil.SetFocus
End Sub

Private Sub cmdAnterior_Click()
        If lTBPerfis.BOF = false Then
             lTBPerfis.MovePrevious
            MontarNavegacao
        End If
        txtIdPerfil.SetFocus
End Sub
MILTONSILVA94 12/10/2017 19:51:57
#477129
Citação:

:
Faça assim pra ver se vai:

Private Sub cmdProximo_Click()
   
        If lTBPerfis.EOF = false Then
           lTBPerfis.MoveNext
           MontarNavegacao
        End If
    
        txtIdPerfil.SetFocus
End Sub

Private Sub cmdAnterior_Click()
        If lTBPerfis.BOF = false Then
             lTBPerfis.MovePrevious
            MontarNavegacao
        End If
        txtIdPerfil.SetFocus
End Sub



Oi JABA, também apresentou o erro:
MILTONSILVA94 14/10/2017 12:25:50
#477146
Realizei a navegação diretamente no listview:

Private Sub cmdPrimeiro_Click() [ô]Início da rotina para navegação entre registros
With lvwLista
.ListItems(1).Selected = True
.ListItems(1).EnsureVisible
End With

lvwLista.SetFocus
End Sub

Private Sub cmdAnterior_Click()
lvwLista.SetFocus

Sendkeys [Ô]Isto é um teste{UP}[Ô] [ô]Rotina que pressiona a seta a cima
End Sub

Private Sub cmdProximo_Click()
lvwLista.SetFocus

Sendkeys [Ô]Isto é um teste{DOWN}[Ô] [ô]Rotina que pressiona a seta a baixo
End Sub

Private Sub cmdUltimo_Click()
Dim UltimoItem As Long
With lvwLista
UltimoItem = .ListItems.Count
.ListItems(UltimoItem).Selected = True
.ListItems(UltimoItem).EnsureVisible
End With

lvwLista.SetFocus
End Sub [ô]Fim da rotina
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar