[Resolvido]Form Desvinculado - Pesquisa Avancar/Retroceder

Bem Amigos, com meu form ja em funcionamento, por pesquisa via Combo... Agora parto efetivamente para a pesquisa por botões Avancar/Retroceder e Primeiro'/Último registros..
Convém Salientar.. que minha tabela.. usa A ID como Prontuário do Detento, ou seja.. A ID = Prontuário de Cada pessoa.. Número Fixo que marca este registro..
O que ocorre é que as vezes por erro do Usuário, se inutiliza alguns numeros.. Então temos
01
02
...
05
06 = Ficando inutilizado os'números 03 e 04 etc...

O Amigo criquio havia me passado um código que funciona caso os numeros fosse subsequente mas por este motivo não o é..

Então preciso de ideias e sugestões de como fazer isso... Posto aqui o código que faço a pesquisa por uma combo...
Grato desde Já...

Código:


Private Sub CboVisitante_AfterUpdate()
On Error GoTo TrataErro
    Me.CboDetento.Value = "" 'Limpa a CboDetento para que se tiver valor e escolher outro visitante, fique limpa
    Me.IDVisitante = Me.CboVisitante.Column(1)
    Me.txtIDDetento = Me.CboVisitante.Column(2)
    Me.CboDetento.Enabled = False
    Me.CboDetento.Locked = True
    Me.TxtDetento.Visible = True
    Me.TxtDetento.Locked = True
    Me.TxtDetento.Enabled = False
    If IsNull(Me.IDVisitante) Or Me.IDVisitante = "" Then
        MsgBox "Você não digitou um número para ser pesquisado.", vbOKOnly + vbCritical, "Atenção"
        Me.IDVisitante = Null
Exit Sub
    ElseIf Not IsNumeric(Me.IDVisitante) Then
        MsgBox "O texto inserido foi """ & Me.IDVisitante & """. Isso não é um código válido.", vbOKOnly + vbCritical, "Atenção"
        Me.IDVisitante = Null
Exit Sub
End If
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQLVisitantes = "SELECT * FROM Visitantes WHERE IDVisitante = " & Me!IDVisitante & ";"
strSQLDetentos = "SELECT * FROM Detentos WHERE ID = " & Me!txtIDDetento & ";"
Set rs = db.OpenRecordset(strSQLVisitantes)
Set rs1 = db.OpenRecordset(strSQLDetentos)
Me.txtVisitante = rs![Visitante]
Me.txtEndereco = rs![Endereço]
Me.txtBairro = rs![Bairro]
Me.txtEstado = rs![Estado]
Me.txtCidade = rs![Cidade]
Me.txtDocumentos = rs![RG/CPF]
Me.TxtTelResidencial = rs![Telefone Residencial]
'Me.TxtDetento = rs1![Nome]
Me.TxtDetento = rs1![Nome] & Space(1) & rs1![Sobrenome]
Me.txtAla = rs1![Nível]
Me.txtCela = rs1![Cela]
Me.txtAnot = rs![Anotações]
Me.txtRelacao = rs![Relação de Tutor]
Me.txtSelecao = rs![BloquearVisitante]
Me.CaminhoFotoRosto = rs![CaminhoFoto]
Me.CaminhoDigital = rs![CaminhoDigital]
PreencheFoto

rs.Close
Set rs = Nothing
Set db = Nothing
TrataErro:
If err.Number = 2113 Then
MsgBox "O código """ & Me.IDVisitante & """ não existe na base de dados", vbOKOnly + vbCritical, "Atenção"
Me.IDVisitante = Null
Else
Resume Next
End If
End Sub


Amigão, eu sinceramente não gosto desse tipo de navegação, mas você poderá utilizar daí vc estará navegando dentro do recorset, não necessitando estar buscando indices... No recorset vc poderá utilizar uma SQL para filtragem no lugar da tabela toda, esse é só o caminho das pedras...

Código:

ABRE SUA RECORSET

DIM BD AS DATABASE
DIM RS AS RECORDSET

SET BD = CURRENTDB()
SET RS = BD.OPENRECORDSET("NOMETABELA")


CRIA UMA FUNÇÃO DE POPULAR OS CAMPOS

CAMPOFORM = RS!CAMPOTABELA


E USA OS COMANDOS ABAIXO
RS.MOVENEXT
CALL POPULACAMPO

RS.MOVEPREVIOUS
CALL POPULACAMPO

RS.MOVEFIRST
CALL POPULACAMPO

RS.MOVELAST
CALL POPULACAMPO

Eu tambem não gosto.. Mas para como eu tenho forms par Identificação visual de fotos para vítimas.. isso é necessário entendeu amigão..

Pois a vítima so tem em mente o rosto do acusado.. e tenho que navegar via proximo registro para ir mostrando as fotos a ela...
Espero que tenha entendido..., fora isso a busca por combo como esta no código acima corresponde ao que quero....

Bem.. nessa sua dica.. seria um recordset apenas para navegacão por registros ou eu o utilizaria para substituir o meu códifo acima??
Agradeceria se me explicasse..

grato pela ajuda...

Em tempo.. a minha tabela esta em back End como deixar ja trabalhando para possivel mudança para rede ou servidor???
Me explique mais claramente isto:
recorset vc poderá utilizar uma SQL para filtragem no lugar da tabela toda


Grato

Veja o exemplo:

Navegação

Para abrir a recordset você não precisa abrir toda a tabela, quero abrir uma recordet só com os nomes Pablo

Código:

SET RS = BD.OPENRECORDSET("Select * from TABELA where nome = 'Pablo'")

Daí vc navega somente pelo Pablo

Sds

Entendi o seu exemplo Amigao.. ocorre o seguinte..
Quando eu Abrir o form.. o abrirei sem estar conectado ao BD...
Entao so conectarei ao clicar no Avançar.. para isto colocarei o Sql no botão correto? abrindo o recordSet no clicar do Botao..
E ao clicar... Exibe os Campos e Encerra a conexão, para que nao fique conectado..

Ou seja:
Clica IrPara Registro..... Popula Campos ... Encerra conexão...

Me da uma ideia disso amigao.. utilizando os teus códigos...
e.. com tabelas vinculadas.. como ficaraia a Sqll?
Navegarei na Tabela Filho (Visitantes) sendo esta vinculada a Tabela Pai Detentos.. ou seja
1 Detento para Muitos Visitantes...
O relacionamento Ja esta Feito
Tabela Detentos
ChavePrimária = ID
Tabela Visitantes = IDVisitante
relacionamento ID(TblDetentos) relacionado Detento (TblVisitante)

Pablo Amigão... Consegui a Navegaçao com o seguinte código: (depois do código te falarei o problema)

Private Sub IrPara_Click()
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQLVisitantes = "SELECT * FROM Visitantes "
'strSQLDetentos = "SELECT * FROM Detentos WHERE ID = " & Me!txtIDDetento & ";"
Set rs = db.OpenRecordset(strSQLVisitantes)
'Set rs1 = db.OpenRecordset(strSQLDetentos)

rs.MoveNext
If rs.EOF = True Then
MsgBox "Você esta no último registro!"
rs.MovePrevious
Exit Sub

End If
Me.txtVisitante = rs![Visitante]
Me.txtEndereco = rs![Endereço]
Me.txtBairro = rs![Bairro]
Me.txtEstado = rs![Estado]
Me.txtCidade = rs![Cidade]
Me.txtDocumentos = rs![RG/CPF]
Me.TxtTelResidencial = rs![Telefone Residencial]
'Me.TxtDetento = rs1![Nome] & Space(1) & rs1![Sobrenome]
'Me.txtAla = rs1![Nível]
'Me.txtCela = rs1![Cela]
Me.txtAnot = rs![Anotações]
Me.txtRelacao = rs![Relação de Tutor]
Me.txtSelecao = rs![BloquearVisitante]
Me.CaminhoFotoRosto = rs![CaminhoFoto]
Me.CaminhoDigital = rs![CaminhoDigital]
PreencheFoto

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

Problema:

Ele navega utilizando a Chave primária da tabela...

Ocorre que tenho espaços Vagos de Numeração...
As vezes um registro é deletado.. e a numeração fica vaga.. Ex.:
01
02
03
'''''
05
06

Ai o código so avança até o 03 e para...

Um simples
On error resume next
não resolve?

Em realidade Top, nao produz um erro.. ele entende o 03 como ultimo registro e nao segue adiante...
Me diz uma coisa...
uma numeracao sequencial em uma tabela sem ser o Autonumeração??? creio que isso me resolveria. pois ai eu usaria este campo e não a ID O que me diz?

é uma boa idéia, o Plinio tem um exemplo de numeração, mas não estou achando.

Se o encontrar post aqui Amigão,

Grato

http://dl.dropbox.com/u/6059159/Exemplos/Numera%C3%A7%C3%A3oEspecial.mdb
Ese é outro mas funciona igual, pega o numero livre.

Top
Será este ?

http://dl.dropbox.com/u/8169944/AutoNum_em%20falta.zip

Deve ser sim, acho esse ai mais fácil, mas o outro tambel funciona bem.
Valeu Assis

Bem Amigos.. obrigado pela Ajuda... Irei testar e dou retorno

Saudaçoes

Rapaz, da forma que lhe falei ele iá ignorar qualquer campo em branco, quebra de sequência ou deletado (já lhe sugeri que ao invés de deletar você criasse um campo de status, onde você iria efetuar um gerenciamento melhor da informação, não criando esses vácuos)...
Com relação a forma de acesso aos dados, já que você esta nesse abre e fecha de recorset, não se esqueça de estar sempre fechando a recordset e setando a mesma como nothing, senão o seu acesso a memória vai dar um AVC na máquina... Desde que trabalho com o VB e Access tenho por costume abrir uma recorset principal na abertura do formulário e a fecho na saída, e quando necessário sim, abro e fecho RS secundárias...
Analise bem o que lhe enviei que verá que é o mais fácil a se fazer...

Amigo Pablo.. se voce observar no código.. estou usando o seu exemplo sim... e mesmo assim para quando há vácuos na ID
01
02
... 'Aqui ele para
04
05

Quanto ao abre e fecha de record set isso será necessario pois este sistema sera em WEB, e quanto menos tempo conectado no BD mais usuarios poderão acessá-los..

Me ajuda ai com esse código amigão

Quanto ao problema de deletar.. é que o sistema em realidade ja esta funcionando.. nao posso mais alterar as ID de cada detento.. pois ele é o numero do prontuario do mesmo por toda sua vida... caso volte preso.. o prontuario sera sempre o mesmo..
Como ja tenho mais de 1000 registros... agora so me resta continuar assim...

Eu serei o gerente do BD (dados) e terei que de vez em quando deletar as "Merdas" que o usuario faz... infelizmente

O problema é que toda vez que vc clica no botao vc esta re-carregando a recordset...
Coloque isso no abrir do formulário
Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQLVisitantes = "SELECT * FROM Visitantes "
'strSQLDetentos = "SELECT * FROM Detentos WHERE ID = " & Me!txtIDDetento & ";"
Set rs = db.OpenRecordset(strSQLVisitantes)
'Set rs1 = db.OpenRecordset(strSQLDetentos)

e no botão somente a parte que compete a nevegar e atualizar os dados na tela

feche o BD e a RS somente ao sair do formulário

faça um teste em um formulário em branco, veja o que eu lhe postei

tem como enviar o BD?

Tentarei.. e muito dificil separar os modulos..
Mas tentarei..

Pablo Amigão..

Tai..

https://www.dropbox.com/s/72b66sxe6lt12c7/SYSPEN.rar

Se puder me ajudar.. fico-lhe extremamente grato

Apenas para mostrar como são meus formularios desvinculados

Evito fazer navegação, eu particularmente prefiro enxergar tudo dessa maneira

http://www.esnips.com/doc/a690e7be-41cb-4480-8cc5-fadf7f7ceba7/TelaFornecedor

Apenas meu método

Caro Jose... Eu preciso da nevegação pelo menos em um dos meus forms..
Porque isso?

E um visualizador de fotos para reconhecimento de Suspeitos...

Entao a vítima nao sabe o nome do cara...
e tenho que navegar um a um para mostrar..

Espero que tenha entendido

Saudações

O que sua tela me mostrou eu ja faço
tenho uma Cbo e faço isso, incluir editar... ta resolvido

O meu problema é navegacao

a não ser que eu navegue na lista....

e uma opção.. nao havia pensado nisto

no entanto tem forms que nao ha espaco para lista..
como sao detentos...... tem muita informacao
Dados pessoais, de parentes.. processos, judiciais... e foto tambem
em relidade me falta espaço

Eu uso imagens assim, apos atualizar ou ao receber o foco usso algo assim

On Error Resume Next
Dim CaminhoImagem As String
CaminhoFotos = DLookup("[CaminhoFotos]", "[TblConfiguracao]")
CaminhoFotos = CaminhoFotos & Me!TxtMatricula & ".jpg"
If Len(Dir(CaminhoFotos) & "") > 0 Then
Me.ImagemForm.Picture = CaminhoFotos
Else
Me.ImagemForm.Picture = ""
End If

Amigão.. Voce não esta entendo...
Ja tenho tudo pronto... tudo...

So preciso navegar no recordset.. apenas isso

Grato

Ok vamos lá

Ao abrir o formulario
On Error Resume Next

Let operação = Empty

If Dir("c:\Suapasta\Seumdb.mdb") <> Empty Then
Exit Sub
End If

'A função acima verifica se existe
'o banco de dados em disco



*************************************
Private Sub CarregaCampos()
txtCodigo = TblCliente("ClienteCodigo")
txtNome = TblCliente("ClienteNome")
txtEndereço = TblCliente("ClienteEndereco")


cmdAlterar.Enabled = True
cmdExcluir.Enabled = True
txtCodigo.Enabled = False
End Sub
*************************************

No botao Proximo
On Error Resume Next

If Not TblCliente.EOF Or Not TblCliente.BOF Then
TblCliente.MoveNext
If TblCliente.EOF Then
Beep
TblCliente.MoveLast
Else
Call CarregaCampos
End If
End If
*************************************

No Botao Inicio
On Error Resume Next

If Not TblCliente.EOF Or Not TblCliente.BOF Then
TblCliente.MoveFirst
Call CarregaCampos
End If

*************************************

No Botao Anterior
On Error Resume Next

If Not TblCliente.EOF Or Not TblCliente.BOF Then
TblCliente.MovePrevious
If TblCliente.BOF Then
Beep
TblCliente.MoveFirst
Else
Call CarregaCampos
End If
End If

*************************************
No Botao Ultimo
On Error Resume Next

If Not TblCliente.EOF Or Not TblCliente.BOF Then
TblCliente.MoveLast
Call CarregaCampos
End If
*************************************

Acredito que seja isso

Entendi o que pretende... e é realmente muito bom.. ocorre.. que
1 - Uso BackEnd
2 - Mais de uma tabela (vinculadas)

Veja o código que uso para selecionar o registro na combo e popular o form:




Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs, rs1 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQLVisitantes = "SELECT * FROM Visitantes LEFT JOIN Detentos ON Visitantes.Detento=Detentos.ID WHERE IDVisitante = " & Me!IDVisitante & ";"
Set rs = db.OpenRecordset(strSQLVisitantes)
Me.txtVisitante = rs![Visitante]
Me.txtEndereco = rs!Visitantes.Endereço
Me.txtBairro = rs![Bairro]
Me.txtEstado = rs![Visitante].[Estado]
Me.txtCidade = rs![Cidade]
Me.txtDocumentos = rs![Documentos]
Me.TxtTelResidencial = rs![Telefone Residencial]
Me.txtDetento = rs![Nome] & Space(1) & rs![Sobrenome]
Me.txtAla = rs![Nível]
Me.txtCela = rs![Cela]
Me.txtAnot = rs![Anotações]
Me.txtRelacao = rs![Relação de Tutor]
Me.txtSelecao = rs![BloquearVisitante]
Me.CaminhoFotoRosto = rs![CaminhoFoto]
Me.CaminhoDigital = rs![CaminhoDigital]
PreencheFoto

rs.Close
Set rs = Nothing
Set rs1 = Nothing
Set db = Nothing
TrataErro:
If err.Number = 2113 Then
MsgBox "O código """ & Me.IDVisitante & """ não existe na base de dados", vbOKOnly + vbCritical, "Atenção"
Me.IDVisitante = Null
Else
Resume Next
End If
End Sub


Tenho que consegui algo encima disso ai

Obrigado pelo tempo disponibilizado para me ajudar...

Sugestão: você tem uma combo com esses valores, então pode navegar por ela antes de popular:

Avançar:

If Me.NomeDaCombo.ListIndex < Me.NomeDaCombo.ListCount - 1 Then
Me.NomeDaCombo = Me.NomeDaCombo.Column(0, Me.NomeDaCombo.ListIndex + 1)
Else
MsgBox "Você está no último registro", vbOkOnly + vbCritical, "Atenção"
End If

Voltar

If Me.NomeDaCombo.ListIndex > 0 Then
Me.NomeDaCombo = Me.NomeDaCombo.Column(0, Me.NomeDaCombo.ListIndex - 1)
Else
MsgBox "Você está no primeiro registro", vbOkOnly + vbCritical, "Atenção"
End If

Último

If Me.NomeDaCombo.ListIndex < Me.NomeDaCombo.ListCount - 1 Then
Me.NomeDaCombo = Me.NomeDaCombo.Column(0, Me.NomeDaCombo.ListCount - 1)
Else
MsgBox "Você já está no último registro", vbOkOnly + vbCritical, "Atenção"
End If

Primeiro

If Me.NomeDaCombo.ListIndex > 0 Then
Me.NomeDaCombo = Me.NomeDaCombo.Column(0, 0)
Else
MsgBox "Você já está no primeiro registro", vbOkOnly + vbCritical, "Atenção"
End If

A combo é carregada com o Sql apenas do ID e do Nome...
Escolho o nome e uso para popular o form...

preciso navegar em botoes....

Vou tentar isto amanha Amigão.. hoje minha cabeça ja esta quente... e posso bagunçar o que ja consegui ate agora...

Vou terminar o relatorio que estou mexendo agora.. se puder voltar naquele tópico e me dar a última ajuda do dia..

Fico-lhe grato..

Boa noite

Os comandos acima é só para navegar entre as linhas da combo. Cada um deles vai no seu devido botão. Após o comando, você pode popular os dados usando a id da combo:

... WHERE ID = " & Me.SuaCombo.Column(0) & ";"

E ai amigão!

Conseguiu ainda não?!?!

Dá uma olhada nessa imagem que estou postando veja se é mais ou menos isso que você precisa...

Tenho um formulário com um determinado registro, desse registro tenho várias foos arquivadas, através dos botões posso visualizar o thumb das fotos e ao dar um clique duplo amplio a foto na direita...

Onde é feita a navegação das fotos é um subformulário, onde busco somente os dados das fotos desse registro, navegando através dos mesmos...

Veja se é isso para continuar-mos a idéia...

Pablo amigão.. nesse caso voce esta navegando de campo em campo de um registro....

O que preciso é simples.. op recordset mé dá, só que encontro problemas quando tenho numeros vagos.. na tabela...

O que creio que irei fazer é aplicar um código de numeracao sequencial....
Esse código identifica lacunas na numeracao e grava o proximo registro com o número em falta... Assim

1
2
'''
4
5
Ao inserir o Registro 6 ele po grava com o número 3
Assim posso navegar no record set e nao tenho números vagos na tabela...

o que acha?

Acho que a dica da combo que passei acima resolveria, bastaria você filtrar pelo código da combo após a navegação entre os registros, ou não?

Entendi o que pretende criquio.. mas ele nagevaria nas linhas da combo.. e eu iria escolher a linha e mostrar o registro certo?

Mas o que preciso é passar de registro em registro populado as caixa texto

A ideia seria essa mesmo. Ao clicar no botão Próximo, passa para a próxima linha da combo e dispara a pesquisa que popula os campos de acordo o registro da pesquisa, podendo ser pelas colunas da combo, caso ela tenha todas as colunas necessárias ou buscando na tabela pelo Me.txtNome = rs("Nome")

entendi...
vou tentar...

Amigos.. hoje estou nos relatórios, desvinculando todos.... Amanha venho aqui ok?

Grato

Neste tópico resolvi adicionar a SQL via RecordSet sem navegação...


Grato