[Resolvido]botões de navegação.

Lá vem eu de novo...
Amigos,
Fiz uma consulta onde localizo um certo campo vazio, pra o quando clicar num botão poder ver quais registros estao com esse campo especifico vazio e poder atualizar.
Minha dúvida é sobre navegação de registro, to usando os botões de navegação do assistente: Próximo| Anterior | ultimo | e | Primeiro.
Até que funcionam bem, mas o que acontece é o seguinte: o botão |próximo| quando chega no ultimo registro e vc clica nele ele abre um form em branco para adicionar um novo registro.
Queria evitar isso, pra que quando chegasse no ultimo registro ele não passasse disso.
Pois o form que estou usando para navegar nos registros é apenas pra atualizar alguns dados e não adicionar um novo registro.

Desde já agradeço...

Fiz o Seguinte...

Private Sub btnext_Click()
On Error Resume Next
DoCmd.GoToRecord , , acNext
End Sub

Mas ta dando no msm, o que tenho que fazer, para quando ele quando chegar no ultimo registro, parar por ae, ao invém de abrir um form em branco para novo registro...

Se for em um form poderia aplicar botões separadamente e uma variavel onde tem o numero do último registro.. e a cada avanço checar se o numero do registro no form é igual ao numero do registro na variável

Caso sim, emite mensagem que esta no último registro e encerra o sub


Private Sub Comando19_Click()
On Error GoTo Err_Comando19_Click
Dim StrLast As Integer
StrLast = DLast("Matricula", "tbl_Clientes")
If Me.Texto572 = StrLast Then
MsgBox "Você está no último registro", vbInformation, "Atenção"
Exit Sub
End If
DoCmd.GoToRecord , , acNext

Exit_Comando19_Click:
Exit Sub

Err_Comando19_Click:
MsgBox err.Description
Resume Exit_Comando19_Click

End Sub

tentei aqui mas não to conseguindo adaptar:
StrLast = DLast("Matricula", "tbl_Clientes")
"Matricula" seria o form e tbl_clientes seria a tabela??

Me.Texto572 seria o que??

o meu ficou assim::
Private Sub bt_proximo_Click()
On Error GoTo Err_bt_proximo_Click
Dim StrLast As Integer
StrLast = DLast("Registros sem ro", "tbl_cadastro_ro")
If Me.Texto572 = StrLast Then
MsgBox "Você está no último registro", vbInformation, "Atenção"
Exit Sub
End If
DoCmd.GoToRecord , , acNext

Exit_bt_proximo_Click:
Exit Sub

Err_bt_proximo_Click:
MsgBox Err.Description
Resume Exit_bt_proximo_Click
End Sub

StrLast = DLast("Matricula", "tbl_Clientes")
If Me.Texto572 = StrLast Then


Matricula será o seu campo da chave primária na tabela.. substitua pelo nome do campo da chave primária
Me.texto572 é o nome da caixa texto no form onde aparece o registro da chave primária
tbl_Clientes substitua pelo nome da sua tabela

Se o nome do campo na tabela onde está a chave primária contem espaço

coloque entre parenteses "[Nome do Campo]"

ixi mano aê que tá...
esse form foi feito a partir de uma consulta...
Eu precisei fazer uma consulta onde mostre todos os registros em que com o campo "numero ro" esteja vazio, para assim fazer a atualização, pois o usuário vai preencher todos os campos, porém ele só tem a informação da numeração do RO depois de um tempo, pra não perder tempo ele vai poder fazer o cadastro e depois clicar num botão onde vai mostrar todos os registros que não foram preenchidos o numero do ro...
Cara é meio complicado de explicar até pq eu sou péssimo em explicações.
Eu até fiz os botões de navegação, só queria que quando chegasse no ultimo registro da consulta ele parece ao invés de me mostrar um form vazio para novo cadastro.

Envie parte do BD... Mas podes tentar por esse campo ai que falou...

Vou enviar pro seu e-mail o BD...
não repara não...ta tudo no rascunho ainda...rsrs
abraço
No caso o form é "registros sem ro"

Harysohn@hotmail.com

Teria como editar o macro?
pra quando chegar no ultimo parar de funcionar.

De macro eu não entendo amigão..

Sinto.. Prefiro o VB

Qual o form?

Ei ai..

Na sua consulta faltava o campo da Chave primária..CodRO.. o coloquei.
No form apliquei uma caixa texto onde puxa este valor, a deixei invisivel
e no código observe as modificações.

http://dl.dropbox.com/u/26441349/PtkNacimento_23_09_11.rar


Saudações.

Vlw amigão...
realmente agora vendo no meu BD percebi o erro e entendi o codigo..
Vlw msm cara, Cada dia aprendo mais com vc's..
Abraço forte e sucesso!

O Fórum agradece o Retorno.

Vlwww estava com o mesmo problema e adaptando o codigo funcionou perfeitamente, agora vou tentar fazer o mesmo com o botao "registro anterior".