O QUE AH DE ERRADO!!!!!

RDPIZA 24/07/2012 23:08:35
#406552
Porque quando clico em proximo ou anterior nao acontece nd as text ficam em braco ???
via DAO



Dim dados As Database
Dim tabela As Recordset
Option Explicit

Private Sub Command1_Click()
tabela.AddNew
tabela([Ô]Nome[Ô]) = Text1.Text
tabela([Ô]Sobrenome[Ô]) = Text2.Text
tabela.Update
Atualizar
End Sub

Private Sub Command3_Click()
tabela.MoveNext
If tabela.EOF = True Then
tabela.MovePrevious
End If
Atualizar
End Sub

Private Sub Command4_Click()
tabela.MovePrevious
If tabela.BOF = True Then
tabela.MoveNext
End If
Atualizar
End Sub

Private Sub Form_Load()
Set dados = OpenDatabase([Ô]C:\Arquivos de programas\Microsoft Visual Studio\VB98\Teste\Teste.mdb[Ô])
Set tabela = dados.OpenRecordset([Ô]Teste[Ô], dbOpenTable)

Atualizar

End Sub

Public Sub Atualizar()
Text1.Text = tabela([Ô]Nome[Ô])
Text2.Text = tabela([Ô]Sobrenome[Ô])
End Sub
FBGSYSTEMS 25/07/2012 08:56:27
#406558
Faz assim amigo.
No botao proximo.
Set ds = db.openrecordset([Ô]select campo from tabela where campo=[Ô] & txt1, dbopendynaset)
if not ds.eof then
ds.movenext
end if

Tenta ai, e o mesmo para o botão Anterior
FRANKCPA 25/07/2012 09:19:27
#406559 Resposta escolhida
Compilei aqui e esta funcionando certinho.
Só mudei isso no código:

Dim dados As DAO.Database
Dim tabela As DAO.Recordset
RDPIZA 25/07/2012 12:25:23
#406571
obrigado frankcpa deu certo vlw .

Agora só mais uma ajudinha para excluir tudo o que tem na tabela de uma só vez como que eu faço

tipo apagar tudo em ([Ô]Nome[Ô]) e em ([Ô]Sobrenome[Ô]) clicando no button excluir só uma vez
ex:
tabela([Ô]Nome[Ô]) = [Ô] [Ô]
tabela([Ô]Sobrenome = [Ô] [Ô]

Assim não deu .........
FBGSYSTEMS 25/07/2012 13:35:32
#406572
Amigo da uam pesquisada da proxima. Vou ajudar desta vez
dados.execute [Ô]delete * from tabela[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar