Navegação

[Andrea Dahmer 0]

tenho que navegar dentro dos registros de uma tabela.

esse é meu codigo do baotao próximo:

sSql = " select * from cds"AbreBanco (sSql)Rs.MoveNexttxtnome.Text = Rs!titulolblcodigo.Caption = Rs!ID

alguém pode me ajudar dizendo o que esta errado?

Andrea

[cassitos 2]

hum...tá dando alguma mensagem de erro? :blink: bem....o código p/ botão proximo,na verdade vai parar sempre no segundo registro (se possuir), porque:está selecionado todos os Cd's, abre o recordset, move pro proximo.Sendo que, sempre q abre um record set, o padrão é primeiro registro.P/ fazer uma navegação, o ideal seria declarar este recordset lá no inicio do Form. Abrir este no inicio do formulário, e deixa-lo aberto.tipo:

Option ExplicitDim RsCds as New Adodb.RecordSetprivate sub form_load() rscds.open "select * from cds", conend subprivate sub cmdproximo_click() if rscds.eof=false then  rscds.movenext  ... end ifend sub

ps: esse AbreBanco, o que esta rotina faz?okz?

[rangel7es 0]

Retire a instrução Rs.MoveNext da sua rotina que dará certo.

[Andrea Dahmer 0]

Essa é a função abre banco:Public Function AbreBanco(ByVal sSql As String) As Boolean Dim strArquivo As String Dim strLocal As String Dim ConectaAccess As String Set Conexao = New ADODB.Connection Set Rs = New ADODB.Recordset Set Rs = CreateObject("ADODB.Recordset") strArquivo = "D:\andrea\cadastro de cds\cad_cds97.mdb" strLocal = App.Path Set Conexao = CreateObject("ADODB.Connection") 'ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _ ' "Dbq=" & strArquivo & ";" & _ ' "DefaultDir=" & strLocal & ";" & _ ' "Uid=;Pwd=;" ConectaAccess = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strArquivo & ";" & _ "User ID=;" & _ "Password=" Conexao.Open ConectaAccess Rs.Open sSql, Conexao, adOpenKeyset, adLockOptimistic AbreBanco = True End Function

[cassitos 2]

ok.então é isso mesmo.quando clica no botão proximo, está abrindo o recordset novamente. Deste modo fica sempre no segundo registro.faz um teste, inicie o record set logo ao abrir o formulário:

private sub Form_Load()  sSql = " select * from cds"  AbreBanco (sSql)end sub

no botão proximo, deixe só o código de mover e exibir:

Rs.MoveNexttxtnome.Text = Rs!titulolblcodigo.Caption = Rs!ID

ok?