ITEM NAO ENCONTRADO NESTA COLECAO

USUARIO.EXCLUIDOS 05/04/2005 17:57:09
#76872
Não há espaços na linha do SELECT, ficou assim na hora em que colei na resposta. O campo é "TELE" mesmo. Outra coisa, no Win 98 utilizava o Access 2000 e agora utilizo o 2003, isto pode estar interferindo ?
USUARIO.EXCLUIDOS 05/04/2005 17:58:13
#76873 Resposta escolhida
Licença pra o amigo WILIAM, deixa eu me meter no assunto...
Mark, quanto ao erro "Item não encontrado nesta coleção" corresponde a um campo referenciado, e não instanciado na sql (consulta, select)
Ex:

sql = "select nome, telefone from clientes"
rst.open sql, cnn ....
nome.text = rst![nome]
telefone.text = rst![telefone]
endereco.text = [txt-color=#ff0000]rst![endereco][/txt-color]


Como o campo endereco não foi instanciado na sql (sql = "select nome, telefone from clientes")
na linha do endereco, o codigo irá gerar o seguinte erro:

O Correto seria

sql = "select nome, telefone, [txt-color=#0000ff]endereco[/txt-color] from clientes"
rst.open sql, cnn ....
nome.text = rst![nome]
telefone.text = rst![telefone]
endereco.text = [txt-color=#ff0000]rst![endereco][/txt-color]


Outro detalhe, seu código está uma salada mista, você misturou controles vinculados
Citação:

'configura propriedades do Data Control
DtaCli.DatabaseName = sCaminho & "\cadastro.mdb"

DtaCli.RecordSource = "SELECT codigo,contato,nome,endereco,cidade,bairro,cep,uf,email,tele FROM Agenda ORDER BY nome"
DtaCli.Refresh

Set Rsdata = DtaCli.Recordset



com declarados
Citação:

'abre tabela que será origem dos dados
Set Tblcad = DB.OpenRecordset("AGENDA", dbOpenTable)

'define o indice ativo
Tblcad.Index = "Nome"
Set Rsdata = DtaCli.Recordset



O Melhor a fazer e re-estruturar tudo novamente, usando ADO DECLARADO, ou em alguns raros casos, ADO VINCULADO...

Espero ter CONTRIBUàDO...
USUARIO.EXCLUIDOS 08/04/2005 16:40:16
#77445
Já refiz todo o código.


Valeu !

Mark
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar