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
#477049 - 07/10/2017 17:11:32

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


Última edição em 10/10/2017 22:43:09 por MILTONSILVA94

Boa tarde,

Retomo este assunto novamente...
Estou com problema no botão 'próximo' e 'anterior'.
Ex: tenho 6 registros na tabela perfis, quando carrego algum registro tipo 4, 5, ou 6 para o form e clico em próximo ou anterior, ele me joga para o registro 2, daí depois até segue as sequências corretas... Porém o correto seria trazer para a sequência já na primeira vez que apertar nestes botões.
O código que uso é:

Private Sub MontarNavegacao()
    txtCodigoPerfil.text = lTBPerfis.Fields("codigo_perfil").Value
    txtDataHora.text = lTBPerfis.Fields("data_hora").Value
    txtPerfil.text = lTBPerfis.Fields("perfil").Value
    lblAtualizadoPor = lTBPerfis.Fields("atualizado_por").Value
    lblUltimaAtualizacao = lTBPerfis.Fields("ultima_atualizacao").Value
End Sub

Private Sub cmdPrimeiro_Click()
    lTBPerfis.MoveFirst
        MontarNavegacao
            txtIdPerfil.SetFocus
End Sub

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

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

Private Sub cmdUltimo_Click()
    lTBPerfis.MoveLast
        MontarNavegacao
            txtIdPerfil.SetFocus
End Sub

Alguém sabe dizer o que é?

Obrigado




#477050 - 07/10/2017 17:38:36

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


no banco de dados id esta em sequencia correta
o id e auto incremente?
não esta assim no banco

id 2
id 1
id 4

???
posta foto do seu banco de dados



#477051 - 07/10/2017 18:13:37

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


Citação:
:
no banco de dados id esta em sequencia correta
o id e auto incremente?
não esta assim no banco

id 2
id 1
id 4

???
posta foto do seu banco de dados


Boa tarde FABRICIOWEB,
No banco está por sequência correta: id 1, 2, 3, 4, etc
Não consigo tirar foto pois estou pelo celular.




#477056 - 08/10/2017 17:29:18

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Tente deste jeito.
Set lTBPerfis = gBDSistemaIntegrado.OpenRecordset("Select * from perfis order by id_perfil", dbOpenSnapshot)



#477063 - 09/10/2017 13:12:41

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


Vê se funciona assim:

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

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

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#477072 - 09/10/2017 23:20:39

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


Obrigado amigos!

Irei testar amanhã a noite e retornopara informar o resultado.



#477099 - 10/10/2017 20:01:57

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


Citação:
:
Tente deste jeito.
Set lTBPerfis = gBDSistemaIntegrado.OpenRecordset("Select * from perfis order by id_perfil", dbOpenSnapshot)


Boa noite Omar2011,

Desta maneira ele vai percorrer os perfis começando no registro 1, 2, 3, 4, 5, etc...

E na verdade se eu chamar a tela com o registro 5, e clicar em anterior ele precisa ir para o id_perfil 4, e clicando no próximo precisa ir para id_perfil 6..





#477100 - 10/10/2017 20:04:46

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


 Anexos estao visíveis somente para usuários registrados

Citação:
:
Vê se funciona assim:

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

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


Olá DAMASCENO.CESAR,

Fiz desta forma e apresenta este erro quando clico em anterior ou próximo:




#477102 - 10/10/2017 20:10:10

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


Este registro que o sistema carrega neste form, é selecionado em um listview...



Resposta escolhida #477105 - 11/10/2017 00:20:40

JABA
CABO FRIO
Cadast. em:Agosto/2005


Última edição em 11/10/2017 00:20:58 por JABA

Tente algo como:

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

Private Sub cmdAnterior_Click()
        If Not lTBPerfis.BOF 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?



#477126 - 12/10/2017 17:52:32

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


 Anexos estao visíveis somente para usuários registrados

Citação:
:
Tente algo como:

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

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


Boa tarde JABA,

Fiz a tentativa e apresentou também o seguinte erro:





 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