Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Botão Proximo e ultimo

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Doug.Vulcano
Colaborador
Colaborador
Mensagens: 32
Registrado em: Seg Nov 08, 2010 11:32 am

Botão Proximo e ultimo

Mensagem por Doug.Vulcano »

Pessoal esta acontecendo alguma coisa estranha no meu banco de dados, qnd eu coloco para ir para o proximo tregistro ele vai normalmente e vou clicando e funciona normalmente pore, qnd eu aperto no botão proximo algumas vezes e depois clico no ir para o ultimo registro, aparentemente ele vai, ( a label Text) vai para o ultimo valor (por exemplo 14 de 14) porem nos campos do text box nao aparece os dados do ultimo registro, não sei pq isso pode estar acontecendo alguem sabe me explicar??


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Alex Sandro
Colaborador
Colaborador
Mensagens: 88
Registrado em: Qua Jan 06, 2010 9:39 am
Localização: Inhumas-GO
Contato:

Re: Botão Proximo e ultimo

Mensagem por Alex Sandro »

Olá Doug.,

Verifique se seu código está exatamente como este aqui abaixo:

Código: Selecionar todos

Private Sub btnProximo_Click()
 If indiceRegistro < wsCadastro.UsedRange.Rows.Count Then
        indiceRegistro = indiceRegistro + 1
    End If
    If indiceRegistro > 1 Then
        Call CarregaRegistro
    End If
End Sub
Private Sub btnUltimo_Click()
indiceRegistro = wsCadastro.UsedRange.Rows.Count
    If indiceRegistro > 1 Then
        Call CarregaRegistro
    End If
End Sub
Caso não esteja, verifique onde está a diferença e tente modificar, ou então verifique se não há erros na hora de carregar o registro, que no meu caso aqui foi o Call CarregaRegistro e o índiceRegistro.


Responder