Início![[Resolvido]Botão do form proximo registro Empty](https://2img.net/i/empty.gif)
spp 11/5/2012, 17:11Porque ao apertar o botão próximo registro, quando esta no último registro passa para um novo registro
2 participantes
[Resolvido]Botão do form proximo registro
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Convidad- Convidado
Olá
Comportamento normal.
Após o último registro, vem um novo.
Para mudar esta característica, só usando botões personalizados, com código específico.
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Norberto
Boa Tarde!
Você sabe o código e pode me passar
Boa Tarde!
Você sabe o código e pode me passar
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Entre nas propriedades do seu form, guia "Dados" e na linha "Permitir adições" altere para Não
Depois navegue e veja....
Depois navegue e veja....
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
![[Resolvido]Botão do form proximo registro Folder_announce_new](https://2img.net/i/fa/subsilver/folder_announce_new.gif)
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Convidad- Convidado
Deve desabilitar os botões de navegação, e criar botões personalizados para substituir estas funções.
Então, em função do que deseja que cada botão faça, me informe que faço o código.
O botão executa, obviamente, o código que você quiser.
Exemplos para os botões tradicionais:
Primeiro_Click()
DoCmd.RunCommand acCmdRecordsGoToFirst
Anterior_Click()
DoCmd.RunCommand acCmdRecordsGoToPrevious
Proximo_Click()
DoCmd.RunCommand acCmdRecordsGoToNext
Ultimo_Click()
DoCmd.RunCommand acCmdRecordsGoToLast
Novo_Click()
DoCmd.RunCommand acCmdRecordsGoToNew
Excluir_Click()
DoCmd.RunCommand acCmdDeleteRecord
Salvar_Click()
DoCmd.RunCommand acCmdSaveRecord
Desfazer_Click()
DoCmd.RunCommand acCmdUndo
Fechar_Click()
DoCmd.Close acForm, "NomeForm"
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
JPaulo
ja fiz e funcionou,muito obrigado
Norberto
Ja consegui, mas mesmo obrigado
ja fiz e funcionou,muito obrigado
Norberto
Ja consegui, mas mesmo obrigado
JPaulo- Moderador
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11026
Registrado : 04/11/2009
Valew pelo retorno, o forum agradece.
.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.
Pay-Pal R$ Aqui
Pay-Pal € Aqui
Ou ainda: Aqui (Novo)
Sucesso e Bons Estudos
Success and Good Studies
Utilize o Sistema de Busca do Fórum... 102 Códigos VBA Gratuitos... Instruções SQL como utilizar...
Convidad- Convidado
Só uma dúvida:
E como vai adicionar novos registros?
Ou não usa este form para isto?
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
uso o botão novo registro para cadastrar
Convidad- Convidado
Mas se definiu Permitir adições como Não, este botão estará desabilitado.
Nesta configuração o form não aceita novos registros.
Não estou entendendo.
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
ainda não testei o novo registro
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Realmente tem razão não funcionou deu a mensagem
Convidad- Convidado
Já estava pensando que meus neurônios tinham acabado!
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Alterei adição para sim e coloque no evento ao ckicar DoCmd.RunCommand acCmdRecordsGoToNext
mas não funcionou vai para um novo registro
mas não funcionou vai para um novo registro
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
tem algum código que vai ate o último e não vai para o proximo
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Norberto
Boa Noite!
Tenho que sair agora, amanhã na parte da tarde estarei conectado
Boa Noite!
Tenho que sair agora, amanhã na parte da tarde estarei conectado
Convidad- Convidado
Ok.
Então, depois de desabilitar a barra de navegação - para o user não poder usar o botão Novo - terá que criar os botões personalizados.
E pode habilitar/desabilitar conforme as circunstâncias que precisar.
Ou pode deixar de fora o botão Próximo.
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Revolvi assim
DoCmd.GoToRecord , , acNext
If IsNull(Me!SeuCódigodoCliente) Then
MsgBox "Voce não pode ir para o registro. ", , " Atenção Digitador"
DoCmd.GoToRecord , , acPrevious
End If
DoCmd.GoToRecord , , acNext
If IsNull(Me!SeuCódigodoCliente) Then
MsgBox "Voce não pode ir para o registro. ", , " Atenção Digitador"
DoCmd.GoToRecord , , acPrevious
End If
Convidad- Convidado
Certo!
O Fórum agradece seu retorno!
spp- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 190
Registrado : 24/10/2011
Para form consulta não uzar o código e colocar adição em Não
Conteúdo patrocinado