olha eu tenho uma combo com alguns dominios, a pessoa escolhe o dominio e qdo passar pro outro campo, eu seleciono na tabela estatisticas os dados relacionados ao dominio escolhido na combo, e preencho os textbox, mas podem conter varias estatisticas, pois elas são diárias, então queria caminhar entre as estatisticas do dominio escolhido, entendeu?

 

se eu fecho o recordset das estatisticas, eu posso ficar trocando o valor escolhido na combo que ele sempre preenche os textbox, como a primeira linha do recordset, mas não consigo caminhar entre os registros pois o recordset tá fechado

 

se eu não fecho, eu consigo caminhar entre os registros, mas se quiser escolher outro dominio na combo, ele tá erro, porque eu to fazendo outro recordset com o mesmo nome (acho que é por isso o erro)

uma solução seria colocar as estatísticas em um grid, ao invés de textbox.

Mas se vc quer mesmo assim colocar em textbox, vc coloca isso depois de ter carregado:

 

rs.close

set rs = nothing

é desse jeito a navegação entre os registros funciona

 

mas se eu selecionar outro dominio na combo, dá erro pois o rs tá aberto

mas vc tá usando:

 

rs.close

set rs = nothing

 

para fechar e liberar da memória ?

 

daí qdo vc entrar na rotina novamente para outra consulta ela vai primeiro abrir o recordset novamente, efetuar a consulta e fechar. assim não dá erro.

 

se puder, posta esta rotina que tá dando erro.

 

desculpa angel eu escrevi errado, se eu fecho o rs depois de preencher os campos eu não consigo navegar entre os registros, se eu setar como nothing, pagino mas não posso trocar o valor da combo, pois ele está aberto

 

'cria instrução baseada no valor escolhido na combo

Private Sub comboDom_LostFocus()
'Abre o Recordset da estatistica
rsEst.CursorLocation = adUseClient
rsEst.Open "Select * From estatisticas WHERE fk_id_dominio = " & comboDom.ItemData(comboDom.ListIndex) & ";", conn, adOpenKeyset, adLockOptimistic, adCmdText
If Not rsEst.EOF Then
popula_campos
Else
btnNovo_Click
End If
End Sub

 

Private Sub popula_campos()
Me.txtData.Text = rsEst.Fields(2)
Me.txtVisita.Text = rsEst.Fields(3)
Me.txtPagina.Text = rsEst.Fields(4)
Me.txtHit.Text = rsEst.Fields(5)
Me.txtData.SetFocus
Me.btnAlterar.Enabled = True
Me.btnNovo.Enabled = True
Me.btnAvancar.Enabled = True
Me.btnVoltar.Enabled = True
rsEst.Close
Set rsEst = Nothing
End Sub

 

Private Sub btnVoltar_Click()
rsEst.MovePrevious
If rsEst.BOF Then
MsgBox "Inicio do arquivo "
rsEst.MoveNext
Exit Sub
End If
popula_campos
End Sub

 

Private Sub btnAvancar_Click()
rsEst.MoveNext
If rsEst.EOF Then
MsgBox "Fim do arquivo "
rsEst.MovePrevious
Exit Sub
End If
popula_campos
End Sub

tenta não fechar o recordset na função que popula, fecha qdo vc sair do form apenas.