[Resolvido]Problemas com Botões de Navegação

Boa noite!!

Eu estou tentando criar os botões de navegação do meu BD, eu não estou tendo sucesso.

Apesar de não saber muito sobre o access, eu tentei tanto pelo próprio access quanto por VBA.

Obs: eu não seu porque mas eu acho que meu formulário é desvinculado, talvez isso influencie.

Obrigado!!!

Boa noite zinho, veja a pesquisa:

http://maximoaccess.forumeiros.com/search?mode=searchbox&search_keywords=desvinculado&show_results=topics

E o exemplo abaixo:

Cumprimentos.

Boa noite!!

Eu havia feito algumas pesquisas e encontrei (antes de postar), esse tópico.

Mas eu não consigo adaptar, além domais eu estou tendo erro na linha

Código:

Private cn As ADODB.Connection

 Tipo-Não definido pelo usuário.

Att

Bom dia.. veja as referências do BD e marque a referencia correspendente para adodb.


Cumprimentos.

Boa noite!!

Eu estou usando Access 2010 (windows 7 /64 bits)

Será que isso está influenciando?

Att

Testou o exemplo que te enviei no 2010?


Cumprimentos.

Boa noite!!

eu consegui resolver o problema do erro, mas minha adaptação não funciona.

Att

Envie-nos um modelo do bd para que possamos ver.

cumprimentos.

Boa tarde!!

Segue em anexo..

Att

Não veio o modelo. Converta em 2007 ou 2003 e reenvie.

Cumprimentos.

Boa noite!!

Como eu faço isso, eu pensei que indo em SalvarComo resolveria, mas eu não tive opções.

Eu estava vendo esse tópico, respondido por JPaulo

Access 2010 e Access 2007 usa o mesmo formato de arquivo, você pode usar o Access 2007 para abrir um banco de dados que foi criado no Access 2010 sem usar o comando Salvar como. No entanto, o Access 2010 inclui alguns novos recursos que necessitam do próprio 2010 para ser executado. Dependendo do recurso, um dos seguintes comportamentos podem ocorrer quando você tenta usar o banco de dados em Access 2007: escreveu:

http://maximoaccess.forumeiros.com/t700-resolvidocomo-abrir-bd-feito-em-2010-no-2007


Att

Boas zinho... no botão do Access não tem a opção?

caso não consiga poste em 2010 para vermos o que se pode fazer.

Cumprimentos.

Boa tarde!!

Eu estou achando estranho, eu compacto meu arquivo e deposito aqui mas não está dando certo.


Porque está dando essa menssagem?
O arquivo adicionado não é valido: nome do arquivo incorreto.

Att

Diminua o tamanho do nome, retire espaços e verifique o formato... compacte no formato zip

Cumprimentos.

Boa tarde!!

Veja a gora, por favor, deve ter dado certo.

Att

Boas Zinho... tratamento de erros do tipo Resume Next devem ser utilizados com cautela.. pois na ocorrencia de um erro poderá interromper a execução do código ou mesmo fazer perder o conteúdo de variáveis como por exemplo a variável rs.

Retire o tratamento de erros em todos os códigos... e vais descobrir onde errou.


Aguardo.


Cumprimentos.

Boa noite!!

Fiz como recomendado, porém meus conhecimentos é bastante limitado.

Gerou erro na linha

Código:

 Me.Data_txt = rs!Data

Erro 91

Objeto ou Variável do Bloco With não foi determinada.


Att

Quando temos um formulário que o recordset é carregado ao abrir.. se ocorrer algum erro.. este recordeset se perde...

O seus códigos tem erros quanto aos campos...

Tem dois campos com nomes errados...São eles:

O código a seguir está com os nomes corretos.. compare-os aos teus e veja onde está o erro e retorne.

 Me.txtID = rs!ID
 Me.Data_txt = rs!Data
 Me.Cod_Cliente_cbo = rs!Cod_Cliente
 Me.H_Inic_txt = rs!Hora_Inc
 Me.H_Final_txt = rs!Hora_Fin
 Me.Razao_Social_txt = rs!Razao_Social
 Me.Ord_Vend_txt = rs!Ord_Vend
 Me.Remessa_txt = rs!Remessa
 Me.Danfe_txt = rs!Danfe
 Me.Motivo_txt = rs!Motivo
 Me.Acao_Tomada_txt = rs!Acao_Tomada
 Me.Regiao_txt = rs![Nome da Região]
 Me.Cidade_txt = rs!Cidade

Substitua conforme este em todos os códigos que fazem referencia ao campo...

Me fale onde está o erro comparando com os teus.


Cumprimentos.

Boa noite!!

Estranho, eu alterei, não tenho mais erro ao clicar no botão Anterior e no botão próximo, porém não volta e não segue para o próximo regsitro.

Sabe me dizer porque isso acontece?

Att

Desabilite as instruções Resume Next e execute os códigos e verás onde está o erro...

Para desabilitar coloque uma aspas simples à frente da linha

'Resume Next

Verá que ela ficará em verde.

Te falei anteriormente... Tratamento de erros do tipo Resume next só devem ser utilizadas em pouquissimos casos... pois ela faz com que ao ocorrer algum erro o ignore e vá para linha seguinte... So que em alguns casos se na instruções utiliza variáveis comuns a mais de um código como por exemplo no teu Bd a variável Rs... o seu conteúdo pode se perder e gerar erro..

1 - Leia o artigo a seguir
2 - Desabilite suas instruções Resume Next
3  - Rode o form e execute os comandos
4 - Retone e fale o que aconteceu.

Artigo:

http://maximoaccess.forumeiros.com/t3051-tratamento-de-erros-no-m-access?highlight=tratamento+de+erros

Boa noite!!

Antes de postar eu havia feito isso comentei as linhas ('On Error Resume Next)

Mas ao apertar os botões não funcionam.

Att

Eis:

Boa noite!!

Ta brincando o que você de diferente:bounce: 

Uma pergunta, como eu fação para quando chegar ao primeiro registro e não gerar erro (Erro 91)?

Me.Data_txt = rs!Data esta linha fica amarela

Att

Se tivesse lido o artigo que postei acima... tenho certeza que resolveria isto.

Leia sobre tratamento de erros e tente resolver... em não conseguindo fale onde encontrou dificuldades.

Cumprimentos.

Fala Piloto, beleza?
No caso preciso de algo parecido, porém uso mais de uma tabela.
Tentei adaptar e não deu certo.
Pode me ajudar?
Abraços!

Manda o Modelo do teu bd e de detalhes disto.

Cumprimentos.

Criei uns registros na Tabela Funcionários sem ordem certa, pois, é assim que funciona aqui para ver se consegue me ajudar.
Segue o BD.

PS:. Os códigos dos botões de navegação de registro, que estão ao lado do campo REG, estão bagunçados e não funcionam.

Fala Piloto, blz?
Conseguiu entender o funcionamento do BD?
Tem como fazer o q eu quero?
Valeu!

Tens que enviar em formato 2003 ou 2007... Poucos usuários possuem o 2010.


Cumprimentos.

Da erro qdo vou converter.

Pedirei a um colega que o faça.

Aguarde.

Cumprimentos.

Poste o arquivo em 2010 novamente por gentileza.

Cumprimentos.

Criei alguns funcionarios ficticios para que possa ver que não funfa os botões de navegação.
Os registros deles são: 680, 750 e 5000.
Insira o registro no campo de Registro e clique em pesquisar REG (acima do campo) e depois tente navegar.
Agradeço desde já.
Abrasss...

Bom dia Zinho.. um colega está tentando a conversão mas não está a conseguir. Dá um erro do qual nunca ouvira falar.. mas segundo ele vai tentar ver se resolve.

Tente deixar apenas os objetos envolvidos.. crie um DB novo e importe este objetos e tente novamente a conversão.


Cumprimentos,

Segue a parte do BD que tenho o problema.
Ao abrir o Menu, clique om "Professores e Funcionários". É nesse form que não funfam os botões de navegação.
Abrasss!!!

Baixei teu bd... especifique o problema que está ocorrendo e o que deseja que se faça.


Cumprimentos.

Blz Piloto?
Então, os registros não são de 1 em 1. Eles são aleatórios, sem sequência lógica.
Sendo assim, ainda não consegui uma forma de fazer os botões de navegação funfarem para passar para o próximo registro e o registro anterior.
Entendeu?

Isso vai facilitar muito minha vida aqui no trampo.

Desde já agradeço.

Abrasss!!!

Primeiramente Eu deixaria o registro do funcionário em um campo separado.. Colocaria um Campo ID_Func do tipo número.. e com código de numeração sequencial... Assim resolveria este problema.

Esta é a forma correta

Cumprimentos.

Isso eu já pensei.
Não existe método para fazer se não for sequencial?

Vamos à sua solução.
Está feito para dois campos.. adicione os demais assim como no código abaixo

Crie uma Sub no módulo do formulário

Sub CarregaRs()
Dim StrSQL As String

StrSQL = "SELECT * FROM tb_Func"
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Set Me.Recordset = Rs

Me.txtREG_FUNC = Rs!REG_FUNC
Me.cmbNOME_FUNC = Rs!NOME_FUNC
End Sub

No Evento ao carregar do Formulário invoque a sub:
Me.CarregaRs

Para Os botões, basta alterar a instrução de ir para o registros:
Me.Recordset.MoveNext
Me.Recordset.MoveLast
Me.Recordset.Move First
Me.Recordset.MovePrevious

Está feito para o botão próximo

Private Sub cmdProximo_Click()
Me.Recordset.MoveNext
Me.txtREG_FUNC = Rs!REG_FUNC
Me.cmbNOME_FUNC = Rs!NOME_FUNC
MsgBox Rs!NOME_FUNC
End Sub

Cumprimentos.

Valeu Piloto. Fiz umas alterações, mas ta funfando perfeitamente agora.
AbraSss!!!

O Fórum agradece o Retorno.