NAVEGAÇÃO DE REGISTROS - 2

 Tópico anterior Próximo tópico Novo tópico

NAVEGAÇÃO DE REGISTROS - 2

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#477128 - 12/10/2017 19:38:53

JABA
CABO FRIO
Cadast. em:Agosto/2005


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


_______________________________________________________________________________________________

Se a alma ou espírito são imateriais, como eles fazem para se localizarem quando o corpo está em movimento?



#477129 - 12/10/2017 19:51:57

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


 Anexos estao visíveis somente para usuários registrados

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:




#477146 - 14/10/2017 12:25:50

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


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



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MILTONSILVA94 em 14/10/2017 12:26:01