[Resolvidos]Navegação nos registros do formulario, mostrar todos

Pessoal estou seguindo a seguinte dica que me passaram.

http://maximoaccess.forumeiros.com/formularios-f11/formulario-de-consulta-complexo-t249.htm?sid=be60d8c203ff1dfd27f1c61facbd8764

Fiz e funciona beleza, agora tenho um formulário que quando clico em um botão chama outro para fazer a seleção dos dados que quero alterar.

Porém neste exemplo e estabelecido um filtro no formulário que recebe os dados, daí quando clico no botão de avançar registro não consigo ver os outros dados.

Como se resolve isso ?

Grato.

Bom dia amigo;

Adicione esta instrução (DoCmd.ShowAllRecords) aos seus botões:


Private Sub SeuBotãoVerPróximo_Click()
DoCmd.ShowAllRecords
DoCmd.GoToRecord , , acNext
End Sub


Private Sub SeuBotãoVerAnterior_Click()
DoCmd.ShowAllRecords
DoCmd.GoToRecord , , acPrevious
End Sub

Puxa não funcionou !!!

O código que chama o formulário tá asim:

Private Sub lstFornecedor_DblClick(Cancel As Integer)
On Error GoTo Err_lst_Fornecedore_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmFornecedor"
stFornSelect = Me![lstFornecedor]
stLinkCriteria = "[PKID_FORNECEDOR]=" & Me![lstFornecedor]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_lst_Fornecedor_Click:
DoCmd.Close acForm, "frmPesqFornecedor"
Exit Sub

E coloquei em todos os eventos de movimentação de registro o que você me passou.

Alguma idéia ?

Retire o que lhe passei acima, dos botões de navegação.

Insira um novo botão no formulário e dê-lhe o nome de "Mostrar Todos", no evento ao pressionar coloque apenas:

DoCmd.ShowAllRecords

Agora já pode navegar...

Cara eu resolvi de uma forma meio louca, porém estou com um inconveniente.

Estou usando isso comando no evento lstFornecedor_DblClick:

Private Sub lstFornecedor_DblClick(Cancel As Integer)
On Error GoTo Err_lst_Fornecedor_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmFornecedor"
stFornSelect = Me![lstFornecedor]
'stLinkCriteria = "[txtNOME]=" & Me![lstFornecedor]
'stLinkCriteria = "[PKID_FORNECEDOR]=" & Chr(39) & Me![lstFornecedor] & Chr(39)
'stLinkCriteria = "[PKID_FORNECEDOR]=" & Me![lstFornecedor]
'DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.Close acForm, stDocName
DoCmd.OpenForm stDocName, , , , acFormReadOnly, OpenArgs:=Me![lstFornecedor]
[Forms]![frmFornecedor].Recalc
[Forms]![frmFornecedor].Refresh
[Forms]![frmFornecedor].Requery

Exit_lst_Fornecedor_Click:
DoCmd.Close acForm, "frmPesqFornecedor"
Exit Sub

Err_lst_Fornecedor_Click:
MsgBox Err.Description
Resume Exit_lst_Fornecedor_Click
End Sub


E tenho isso no evento Form_Open do formulário de cadastro de Fornecedores

Private Sub Form_Open(Cancel As Integer)
'On Error GoTo Err_Comando83_Click
'DoCmd.GoToRecord , , acLast
'DoCmd.Restore
'Call AtualizaFormFornec

'Exit_Comando83_Click:
'Exit Sub
'Err_Comando83_Click:
'MsgBox Err.Description
'Resume Exit_Comando83_Click
On Error GoTo Trata_Erro
Dim rs As DAO.Recordset
Dim varCodCli As Variant

'Verifica se foi passado um código de cliente
varCodCli = Me.OpenArgs
If IsNull(varCodCli) Then Exit Sub
'Abre uma cópia do recordset origem do Formulário.
Set rs = Me.RecordsetClone

With rs
.FindFirst "PKID_Fornecedor = " & varCodCli
'Move para o registro porventura encontrado.

If Not .NoMatch Then
Me.Bookmark = rs.Bookmark
Me.Refresh
End If
End With
Fim:

rs.Close 'Libera memória.
Set rs = Nothing
Exit Sub

Trata_Erro:

MsgBox Err & vbCrLf & Err.Description, vbCritical, "Erro"
Resume Fim
End Sub

Acontece que isso só funciona se o formulário estiver fechando, se ele estiver carregado e eu clicar no botão de pesquisa novamente quando a pesquisa retornar o valor para o formulário de Fornecedores, os campos não são atualizados.

Alguma idéia ?

Amigão você sabe o que faz estas 3 instruções ????

[Forms]![frmFornecedor].Recalc
[Forms]![frmFornecedor].Refresh
[Forms]![frmFornecedor].Requery

Coloque aqui o seu banco ou parte dele e depois passe o link, que eu arranjo-lhe isso.

http://www.speedyshare.com/

O problema é que não sei mesmo, estou tão perdido que estou tentando comandos a esmo.

Mas estou postando o arquivo no lugar indicado.

http://www.speedyshare.com/files/21338564/PGRP-MONTAG.mdb

Veja por favor se serve assim;

http://dl.dropbox.com/u/771097/PGRP-MONTAG_OLD.rar

Tratamento de erros eu também personalizei.

Cara ficou show !!!

Seria pedir demais para você comentar o que foi feito e o que eu estava fazendo de errado ?

Grato.

Amigão;

1º eu enxuguei os seus códigos, ou seja limpei o que não fazia nada.

2º coloquei o campo PKID_FORNECEDOR, que é chave primária, no formulario, mas em modo invisivel, para filtrar por ae.

3º no evento ao pressionar de cada botão que navega nos registros, eu coloquei Me.Filter=False, para desconetar o formulario do filtro e poder mostrar todos.

ou seja, quando você pesquisava um fornecedor e dáva duplo clik para voltar ao formulario principal, o filtro desse formulario ficava Me.Filter=[PKID_FORNECEDOR]=16, fica sempre assim, mudando apenas o =1 ou =2 etc, daí não poder navegar, filtrado é filtrado.

Nos botões para navegar apenas mandei-lhe um OFF para o filtro.

Ainda existe um inconveniente, olha só !

Quando navego não consigo alterar mais as qualificação do fornecedor, também as cores das qualificações não mudam mais.

Estranho...

E agora ????

http://dl.dropbox.com/u/771097/PGRP-MONTAG_OLD_II.rar

Essa abordagem foi muito boa, mas acabei descobrindo que o formulário estava sendo aberto em ReadOnly, por isso não tinha o controle de nada.

Mas valeu assim mesmo.

Tá dando pra sacar alguma coisa.

Algumas coisas que eu gostaria de saber fazer são:

- Colocar um menu para escolher as opções em vez desses botões ridículos que fiz usando o assitente do access.
- Criar um sistema de senha para que o usuário tenha que digitar usuário e senha para entrar no sistema.
- Fazer os próximos formulário todos baseados em DAO.
- Conectar a um banco postgresql em vez do mdb do access.

Mas isso é para um futuro distante.

Mas valeu mesmo, você me ajudou muito, obrigado.

Espero não ter incomodado tanto.

Grato