MOVE FIRST E MOVE LAST COM CONTROLE DATA

GIOVANI.ARRUDA 12/04/2007 11:59:35
#211496
Tenho uma dúvida que parece ser simples, porém não estou conseguindo encontrar a resposta. é o seguinte em um form e coloco um campo, um controle data e 4 botoes, um para mover para o primeiro registro outro para mover para o registro anterior um para mover para o proximo rgistro e o ultimo para mover para o ultimo. O problema está no momento em que eu estou posicionado no primeiro registro e eu clico em move first ele deixa o campo em branco, a mesma coisa acontece com o ultimo, se eu dou um move next ele mostra o campo em branco, eu não queria que isso acontecesse, e também não queria desabilitar os motoes move next e move previous pra evitas que isso aconteça.

Atenciosamente
Giovani Arruda
ESLEYSANCHES 12/04/2007 12:14:14
#211501
Tente o seguinte nos botões ULTIMO e PRIMEIRO:

'ULTIMO:
data1.recordset.MoveLast
data1.refresh


'ULTIMO:
data1.recordset.MoveFirst
data1.refresh


Veja se te ajuda !!
Abaraços !!
USUARIO.EXCLUIDOS 12/04/2007 12:25:04
#211503 Resposta escolhida
Cara, vc pode fazer com que quando chegue no primeiro e o usuário pedir pra voltar ele vai pro último, quando chega no último e pede pra avançar vai pro primeiro, formando um ciclo:

Private Sub cmdAnt_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then
  Data1.Recordset.MoveLast
End If
End Sub

Private Sub cmdPrim_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub cmdProx_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
  Data1.Recordset.MoveFirst
End If
End Sub

Private Sub cmdUlt_Click()
Data1.Recordset.MoveLast
End Sub


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 12/04/2007 12:54:08
#211510
Cara, dá uma olhada: NAVEGACAO DE REGISTROS COM OBJ DATA
Tópico encerrado , respostas não são mais permitidas
Voltar