[Resolvido]Erro 3265 - Iten nao econtrado nesta colecao..

Estou trabalhan do com recordset e inserindo dados no form desvinculado..

Mas quando chega na CboBox: txtAla dá esse erro

Me.txtAla = rsVisitantes("Nível")

O sql que popula a Combo que faz a insercao dos dados é baseada em uma consulta.. e todos os campos estao nesta consulta

o porque disso?

Grato

Acho que vai ser mais viável dar uma olhada no aplicativo como está agora. Se possível providenciar o envio para um de nossos emails moderadores ou postar aqui, ficaria mais fácil. Acredito que poderia tentar solucionar o outro tópico tambem.

Tentarei enviar esse depois..
No caso do outro tópico,, o exemplo esta la ja..
Se puder dar uma olhadinha

Grato amigào

Mas pela mensagem do erro, você deve ter escrevido o nome errado ou do campo do formulário ou da tabela. Dê uma verificada direitinho.

E passa o link do outro tópico para ficar mais fácil.

Voltando a este tópico... o recordset busca os valores em uma consulta..

Esta consulta e baseada em duas tabelas..
TblDetentos e tblVisitantes..

O que ocorre .. ele encontra todos os intens na consulta referente a tabela visitantes
So que os campos provenientes da tblDetentos ele fala : item não encontrado nesta colecao..

Mas os campos estao la...

Alguma ideia??

grato

E se criasse uma outra consulta à partir dessa e colocasse essa nova consulta como fonte? Talvez funcione.

Tenta passar para uma BD em branco e vê se o erro desaparece. Verifica as referências com a aplicação que te passei.

As referencias esto ok..
apenas os campos que tem origem em outra tabela ele nao reconhece...
e que a consulta e baseada em duas tabela..
As tabelas sao relacionada..
1 Detentos
1.1visitante
1.2Visitante

2 Detento
2.1 Visitante
2.2 Visitante

A consulta mosta todos os visitantes com o detento relacionado

2.1 Visitante - Detento 2
2.2 Visitante - Detento 2
1.1 Visitante - Detento 1
1.2 Visitante - Detento 1

Os campos da tbl Visitante o recordset reconhece
mas para os detentos.. não

Ao depurar, aponta qual linha do código?

Para eu nao usar uma consulta.. puxar os valores diretamente da tabela, que seria o certo..

Como fazer para alterar essa sql deixando ela com as duas tabelas relacionadas entre si??



strCbo = "SELECT CnsVisitantesMineiros.Visitante AS NOME, CnsVisitantesMineiros.IDVisitante AS IDENTIFICAÇÃO, cnsVisitantesMineiros.ID FROM CnsVisitantesMineiros IN '" & strPath & "'" _
& " ORDER BY cnsVisitantesMineiros.Visitante ; "
Me.CboVisitante.RowSource = strCbo
Me![CboVisitante].ColumnCount = 3
Me![CboVisitante].ColumnWidths = "7cm;3cm;0cm"

Enviei-te por MP por conter dados sigilosos.. e Judiciais

Grato

Criquio. este problema creio que resolvi...
Estava refeirndo a tabela ao abrir o form e eu estavsa utilizando a consulta.. entao nao encontrava os campos..
Set rsVisitantes = dbBanco.OpenRecordset("Visitantes) 'Aqui referia a tabela

Set rsVisitantes = dbBanco.OpenRecordset("CnsVisitantesMineiros") 'Aqui o certo

Agora o que ocorre e no preencher...os campos no Frm dá erro: "Operação nao suprtada pra este tipo de objeto"

Aqui faz o envio dos dados para o form
'Encontra o Visitante escolhido
rsVisitantes.Index = "Visitante"
rsVisitantes.Seek "=", CboVisitante
'Mostra o registro encontrado
MostraRegistro
Call PreencheFoto ' Dispara a Private Function PreencheFoto()

vê aqui

http://support.microsoft.com/kb/201826

Esse último trata de uma consulta? Se for, tente o db.Execute "SELECT FROM..."

Ele que veja o erro através do próprio site da Microsoft

http://support.microsoft.com/kb/201826

O erro esta neste linha
rsVisitantes.Index = "Visitante"

Visitante e um campo na tabela e consulta visitante

So que estou usando para o recordset a consulta, pois preciso dos dados das duas tabelas.. Visitantes e detentos//

Enviei o aplicativo ao Criquio..

Grato

Vieirão, nós postamos praticamente juntos

De qualquer forma, deixo aqui como eu faço isso algumas vezes, usando DAO e não ADOX:

On Error GoTo TrataErro

If IsNull(Me.txtCódigo) Or Me.txtCódigo = "" Then
MsgBox "Você não digitou um número para ser pesquisado.", vbOKOnly + vbCritical, "Atenção"
Me.txtCódigo = Null
Me.txtCódigo.SetFocus
Exit Sub
ElseIf Not IsNumeric(Me.txtCódigo) Then
MsgBox "O texto inserido foi """ & Me.txtCódigo & """. Isso não é um código válido.", vbOKOnly + vbCritical, "Atenção"
Me.txtCódigo = Null
Me.txtCódigo.SetFocus
Exit Sub
End If

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Backend.accdb", False, False, "MS Access;PWD=senha")

strSql = "SELECT * FROM tblClientes WHERE Código = " & Me!txtCódigo & ";"

Set rs = db.OpenRecordset(strSql)

Me!txtNome = rs!Nome
Me!txtSobrenome = rs!Sobrenome
Me!txtNascimento = rs!dtNascimento
Me!txtSexo = rs!Sexo

rs.Close
Set rs = Nothing
Set db = Nothing

TrataErro:
If Err.Number = 2113 Then
MsgBox "O código """ & Me.txtCódigo & """ não existe na base de dados", vbOKOnly + vbCritical, "Atenção"
Me.txtCódigo = Null
Me.txtCódigo.SetFocus
Else
Resume Next
End If

Pelo que li no site da Microsoft, é por aí mesmo Criquio.

O erro esta na linha em verde

Aqui faz o envio dos dados para o form
'Encontra o Visitante escolhido
rsVisitantes.Index = "Visitante"
rsVisitantes.Seek "=", CboVisitante
'Mostra o registro encontrado

Tente mudar para o que eu passei acima para ver se funfa.

Amigao.. voce teria que ver ai.. porque os codigos meus depende uns dos outros..
O apos atualizar da combo faz esse index/seek..
e depois chama a funcao que popula as caixa testo..

se puder ver fico-lhe grato

Testei assim...

Dim db As DAO.Database
Dim ws As DAO.Workspace
Dim rs As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_be.accdb", False, False, "MS Access;PWD=senha")
strSQL = "SELECT * FROM CnsVisitantesMineiros WHERE IDVisitante = " & Me.CboDetento.Column(0) & ";"
(Operador faltando)
Set rs = db.OpenRecordset(strSQL)
rs.Close
Set rs = Nothing
Set db = Nothing


MostraRegistro
Call PreencheFoto ' Dispara a Private Function PreencheFoto()


Assim: strSQL = "SELECT * FROM CnsVisitantesMineiros
Ela populou.. mas apenas 1 vez.. depois nao altera

Depois vou dar uma olhada. Estou meio atarefado aqui e vou respondendo algumas coisas no forum. Esse eu vou ter que olhar com mais atenção.

Presado Criquio... Comecemos do zero.. Esquece as consulta.. esta dando problemas por causa delas.. Vamos fazer diretamente nas tabelas..
Coloquei assim e deu certo:

Private Sub CboVisitante_AfterUpdate()
Me.IDVisitante = Me.CboVisitante.Column(1)
' Se acontecer algum erro vai para a linha Erro:
'On Error GoTo Erro
'Encontra o Visitante escolhido
rsVisitantes.Index = "Visitante"
rsVisitantes.Seek "=", CboVisitante

'Mostra o registro encontrado

MostraRegistro
Call PreencheFoto ' Dispara a Private Function PreencheFoto()

'Sai:
Exit Sub
'Erro:
' MsgBox " Erro ocorrido: " & err.Number & err.Description
' Resume Sai:
End Sub
' Exibindo um registro na tela


Private Sub MostraRegistro()
On Error GoTo Erro
' Preenche as txtboxes com os dados do Visitante,
' pegando os mesmos em rsVisitante.

Me.txtVisitante = rsVisitantes("Visitante")
Me.txtRelacao = rsVisitantes("relação de Tutor")
Me.txtDocumentos = rsVisitantes("RG/CPF")
'Me.CboDetento = rsVisitantes("Nome do Detento")
'Me.txtAla = rsVisitantes("Nível")
'Me.txtCela = rsVisitantes("Cela")
Me.txtEndereco = rsVisitantes("Endereço")
Me.txtBairro = rsVisitantes("Bairro")
Me.txtCidade = rsVisitantes("Cidade")
Me.txtAnot = rsVisitantes("Anotações")
Me.txtSelecao = rsVisitantes("BloquearVisitante")
Me.CaminhoFotoRosto = rsVisitantes("CaminhoFoto")
Me.CaminhoDigital = rsVisitantes("CaminhoDigital")
Sai:
Exit Sub
Erro:
MsgBox " Erro ocorrido: " & err.Number & err.Description
Resume Sai:

Exceto por essas 3 linhas que sao da tabela principal a tbl_Detentos...
A tbl Detentos e a TblVisitante sao relacionada Um para muitos....
1 Detento = Varios visitantes..
Entao para cada visitante ai no codigo teria que mostrar o detento que ele visita..

E agora..?
como relaciono esssas tsabelas em código?
End Sub

Tente declarar rsVisitantes2.Index para a segunda tabela, o mesmo com os outros atributos.

Nao consegui amigao.. quando puder olhe o que eu te enviei..
Fico-lhe grato..
Boa noite

Consegui Amigão.. Usei o seu código... So me fale quais referencias deixo para que ele funcione..para que eu possa retirar as referncias do antigo...

** Me diz uma coisa.. depois que faz a consulta.. que o form esta preenchido.. ele fica conectado ao Back End??

Grato

Private Sub CboVisitante_AfterUpdate()
On Error GoTo TrataErro
Me.IDVisitante = Me.CboVisitante.Column(1)

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 As DAO.Recordset
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Syspen_Be.accdb", False, False, "MS Access;PWD=senha")
strSQL = "SELECT * FROM cnsVisitantesMineiros WHERE IDVisitante = " & Me!IDVisitante & ";"
Set rs = db.OpenRecordset(strSQL)
Me!txtVisitante = rs!Visitante
Me!txtEndereco = rs!Endereco
Me!txtBairro = rs!Bairro
Me!txtCidade = rs!Cidade
Me!CboDetento = rs!nome_do_detento
Me.txtAla = rs!Nível
Me!CaminhoFotoRosto = rs!CaminhoFoto
PreencheFoto

Se seu código ficou exatamente dessa maneira, seu backend continua aberto. Observe que o meu termina com as linhas que o fecham:

rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

Quanto às referências, esse usa a DAO, mas tem outras referências padrões que geralmente devem ficar ativadas, como por exemplo:

Visual Basic For Application
Microsoft Access xx.x Object Library
Microsoft Office xx.x Access database engine Object Library
Microsoft Office xx.x Object Library

E tem aquelas que você vai marcando conforme a necessidade. Como por exemplo, se você for fazer uma integração entre Access e Excel, irá marcar a referência Microsoft Access xx.x Object Library.

Entao as referencias estao certo..Amigo.. Aproveitando o assunto.. como navegar nos registros com botoes de avancar e retroceder..
Poderia me enviar os códigos de:
Salvar
Alterar
Incluir
Excluir.

Fico-lhe grato

Saudações

Você pode usar a ID para navegar pelos registros. Por exemplo, no botão Avançar:

If Me.txtCódigo = rs.RecordCount Then
MsgBox "Você já está no último registro", vbOkOnly + vbCritical, "Atenção"
Else
Me.txtCódigo = Me.txtCódigo + 1
Aqui popula os campos de acordo o Código
End If

Obviamente que o método acima pode ocasionar falhas, caso algum registro tenha se perdido ou a numeração não esteja toda preenchida. Por exemplo, se o último número for 200, mas perdeu 2 números na sequência, o rs.RecordCount irá contar apenas 198 registros e aí dará erro. Para sanar isso, tem um código que lhe passei em outro tópico aonde eu uso um segundo RecordSet rs2 para buscar o valor máximo. Veja aqui: http://maximoaccess.forumeiros.com/t2783-trabalhar-off-line-com-form-desvinculado.

Para Salvar é só clicar no botão que tem o código. Uma vez que você está trabalhando de forma desvinculada, esse código em si salva o registro. Você pode usar algo semelhante ao CurrentDb.Execute para salvar os dados, apenas mudando CurrentDb para rs. O CurrentDb se refere ao arquivo atual, mas como as tabelas estão em outro arquivo, o backend, obviamente que não estão no arquivo atual, mas a tabela está referenciada por rs ou rs2 ou a variável que for declarada para isso. Então, no lugar de CurrentDb você colocar rs:

rs.Execute "INSERT INTO..." ' para incluir
rs.Execute "UPDATE ..." ' para atualizar
rs.Execute "DELETE FROM..." ' para deletar

Realmente a navegação por id no meu caso dará falhas.. eu poderia criar um campo de numeracao sequencial que nao seja a ID e navegar por ela?
Assim se excluise um numero do meio ela reorganizasse?

Amigão.. Como eu uso uma consulta.. Teria como eu colocar nela um campo não acoplado com contagem sequencial.. para usar na navegação?
Assim caso um registro intermediario seja excluido ele reorganize a numeracao.. eu usaria este campo apenas para navegacao


Outra coisa.. em minha tabela tenho o campo Relacao de Tutor (com esses espacços) e retira-los importaria em mexem em muita coisa no sistema.. como faço para que o código Me.txtRelacao = rs!Relação de Tutor reconheça este campo

***********************************************************************
Para quem esta acompanhando este tópico desde o início...
***********************************************************************

Primeiramente eu estava implantando códigos de desvínculo para trabalhar com o form desvinculados, no entando este código nao estava funcionando porque eu me baseava em uma consulta.. entao ele so pegava valores de uma tabela apenas, pois o exemplo que eu utilizei era de apenas uma tabela, e eu nao estava conseguindo buscar o registros de duas tabelas (tbls vinculadas)...

Pois bem.. desisti de utilizar aquele código e passei a utilizar o do colega Criquio que funcionou perfeitamente...

Mas para registrar, encontrei no repositório um exemplo de como utilizar o Seek e Index em tabelas vinculadas que creio que era o problema que eu estava tendo com o codigo que originou este tópico.. Não testei se resolve o problema.. mas segue o tópico dessa possível solução

http://maximoaccess.forumeiros.com/t2143-seek-e-index-em-tabelas-vinculadas