erro com movenext

[Alex Mauricio]

Bom dia pessoal.

Estou tentando fazer uma nevegação no form (primeiro, ultimo, proximo e anterior ) e tem algo que não estou conseguindo enxergar.

no botão próximo está com o seguinte código

Private Sub cmdProximo_Click()
Dim ssql As String
    ssql = "select * from TbLogin order by codigoLogin asc"
    Set Table_Login = BancoDeDados.OpenRecordset(ssql)
    Table_Login.MoveNext
    carregaDados
End Sub

e no carregaDados:

Private Sub carregaDados()
    txtCodigo.Text = Table_Login!codigoLogin
    txtNomeLogon.Text = Table_Login!nomeLogonLogin
    txtNivelUsuario.Text = Table_Login!nivelAcesso
    txtNomeUsuario.Text = Table_Login!nomeUsuarioLogin
    txtSenha.Text = Table_Login!senhaLogin
    txtConfirmaSenha.Text = Table_Login!senhaLogin
End Sub

Certo?????

Clico no flexGrid no registro 1 e aparece beleza... depois clico no próximo ele vai para o registro 2.... clico novamente ele fica no 2, sendo que tenho 15 registros.;...

o que pode ser????

[raphael_suporte]

Bom dia pessoal.

Estou tentando fazer uma nevegação no form (primeiro, ultimo, proximo e anterior ) e tem algo que não estou conseguindo enxergar.

no botão próximo está com o seguinte código

Private Sub cmdProximo_Click()
Dim ssql As String
    ssql = "select * from TbLogin order by codigoLogin asc"
    Set Table_Login = BancoDeDados.OpenRecordset(ssql)
    Table_Login.MoveNext
    carregaDados
End Sub

e no carregaDados:

Private Sub carregaDados()
    txtCodigo.Text = Table_Login!codigoLogin
    txtNomeLogon.Text = Table_Login!nomeLogonLogin
    txtNivelUsuario.Text = Table_Login!nivelAcesso
    txtNomeUsuario.Text = Table_Login!nomeUsuarioLogin
    txtSenha.Text = Table_Login!senhaLogin
    txtConfirmaSenha.Text = Table_Login!senhaLogin
End Sub

Certo?????

Clico no flexGrid no registro 1 e aparece beleza... depois clico no próximo ele vai para o registro 2.... clico novamente ele fica no 2, sendo que tenho 15 registros.;...

o que pode ser????

Seguinte isso é um problema na sua lógica...

quando você carrega a primeira vez ele joga para o registro 1 normal, quando você clica no "próximo", ele carrega novamente e e muda para o próximo registro ( no caso o segundo registro).. e isso fica sempre acontecendo.

se de alguma maneira você consegui colocar ele no 5 registro quando clicar no "próximo" ele vai para o segundo, por causa do que falei.

o que seria legal você realizar é o seguinte:

não carregue o RS no escopo do botão próximo.. coloque apenas o comando para movê-lo seria legal você também verificar se é o último registro, para não ocorrer um erro de BOF/EOF.

[Alex Mauricio]

LEGAL

SÓ Q TIREI AS LINHAS

ssql = "select * from TbLogin order by codigoLogin asc"

Set Table_Login = BancoDeDados.OpenRecordset(ssql)

E SO DEIXEI O TABLE_LOGIN.MOVENEXT E APRESENTOU O SEGUINTE ERRO

RUN-TIME ERROR '3420'

O OBJETO NÃO É VALIDO OU NÃO ESTÁ DEFINIDO

COMO PROCEDO

Bom dia pessoal.

Estou tentando fazer uma nevegação no form (primeiro, ultimo, proximo e anterior ) e tem algo que não estou conseguindo enxergar.

no botão próximo está com o seguinte código

Private Sub cmdProximo_Click()
Dim ssql As String
    ssql = "select * from TbLogin order by codigoLogin asc"
    Set Table_Login = BancoDeDados.OpenRecordset(ssql)
    Table_Login.MoveNext
    carregaDados
End Sub

e no carregaDados:

Private Sub carregaDados()
    txtCodigo.Text = Table_Login!codigoLogin
    txtNomeLogon.Text = Table_Login!nomeLogonLogin
    txtNivelUsuario.Text = Table_Login!nivelAcesso
    txtNomeUsuario.Text = Table_Login!nomeUsuarioLogin
    txtSenha.Text = Table_Login!senhaLogin
    txtConfirmaSenha.Text = Table_Login!senhaLogin
End Sub

Certo?????

Clico no flexGrid no registro 1 e aparece beleza... depois clico no próximo ele vai para o registro 2.... clico novamente ele fica no 2, sendo que tenho 15 registros.;...

o que pode ser????

Seguinte isso é um problema na sua lógica...

quando você carrega a primeira vez ele joga para o registro 1 normal, quando você clica no "próximo", ele carrega novamente e e muda para o próximo registro ( no caso o segundo registro).. e isso fica sempre acontecendo.

se de alguma maneira você consegui colocar ele no 5 registro quando clicar no "próximo" ele vai para o segundo, por causa do que falei.

o que seria legal você realizar é o seguinte:

não carregue o RS no escopo do botão próximo.. coloque apenas o comando para movê-lo seria legal você também verificar se é o último registro, para não ocorrer um erro de BOF/EOF.

[raphael_suporte]

sim, o erro ocorre, porque você não deve ter aberto ele no Load, ele deve estar em alguma sub... carrega o seu dataset no form_load

de qualquer forma de uma olhada neste link.. pode te ajudar

http://www.macoratti.net/vbnet_6.htm

[Alex Mauricio]

está no load conforme abaixo

Private Sub Form_Load()

Dim ssql As String

ssql = "select * from TbLogin"

Set Table_Login = BancoDeDados.OpenRecordset(ssql)

Table_Login.MoveFirst

limparCampos

mostrarCampos

habilitaCampos

formatFlexGridCadUsuario

carrFlexGridCadUsuario

End Sub

você tem uma forma de contato de mensagem rápida? gostaria de tirar algumas outras dúvidas

obrigado

[raphael_suporte]

de uma olhada no link que te mandei...

todas as dúvidas eu tiro por aqui... quando puder...não é sempre, aqui na empresa é bloquado.