inserir dados da lista em tabela via vba

**JPaulo**

   Como faço pra enviar itens da lista pra tabela via VBA??
fiz assim:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tbl_serv_tec") 
rs.AddNew
rs!data = Me.data_baixa
rs!tecnicos = Me.lista_tecnicos
rs!bairro = Forms![frm_n_denuncia]![bairro]
rs!rua = Forms![frm_n_denuncia]![endereco]
rs.Update
rs.Close 
Set rs = Nothing

O que ta errado?

Autor	Mensagem Compartilhar Versão para impressão Google Delicious Digg StumbleUpon Windows Live Yahoo Bookmarks reddit Facebook MySpace Newsvine Furl Tópico Procurar Opções do Tópico Responder Tópico
ptknascimento Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Novato Registrado: 01 Nov 2011 Localização: Botafogo Conectado: Desconectado Mensagens: 25	Opções de Post Responder Citação de ptknascimento Citação de Reposta Tópico: inserir dados da lista em tabela via vba Enviado: 10 Mai 2012 as 14:24
	Como faço pra enviar itens da lista pra tabela via VBA?? fiz assim: Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("tbl_serv_tec") rs.AddNew rs!data = Me.data_baixa rs!tecnicos = Me.lista_tecnicos rs!bairro = Forms![frm_n_denuncia]![bairro] rs!rua = Forms![frm_n_denuncia]![endereco] rs.Update rs.Close Set rs = Nothing O que ta errado?
	Patrick Nascimento.

JPaulo Perfil Enviar mensagem privada Encontrar Post deste Membro Site Adicionar a lista de amigos Super Avançado Registrado: 26 Set 2006 Conectado: Desconectado Mensagens: 7947	Opções de Post Responder Citação de JPaulo Citação de Reposta Enviado: 11 Mai 2012 as 05:18
	Amigão, você terá de indicar qual a coluna que deseja para inserir no rs!tecnicos rs!tecnicos = Me.lista_tecnicos.Column(1) Sendo que as colunas na listbox ou combobox começam sempre pela zero (0).
	JPaulo Maximo Access ® 2009

ptknascimento Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Novato Registrado: 01 Nov 2011 Localização: Botafogo Conectado: Desconectado Mensagens: 25	Opções de Post Responder Citação de ptknascimento Citação de Reposta Enviado: 11 Mai 2012 as 09:22
	amigão ainda não deu certo.. o campo "tecnicos" na tabela "tbl_serv_tec" é uma coluna de pesquisa... Algum problema?
	Patrick Nascimento.

ptknascimento Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Novato Registrado: 01 Nov 2011 Localização: Botafogo Conectado: Desconectado Mensagens: 25	Opções de Post Responder Citação de ptknascimento Citação de Reposta Enviado: 11 Mai 2012 as 09:48
	Realmente tem problema.. Criei um campo normal e agora foi, mas o problema agora é, como faço pra gerar a consulta de um só tecnico. Ex. no campo fica salvo: 14;10;15 referente a cada técnico. Quando era uma coluna de pesquisa na consulta eu simplismente colocava assim no critério: Formulários]![frm_principal]![list_tecnicos] Agora desse geito não funfa. Tentei fazer assim: Como ""+[Formulários]![frm_principal]![list_tecnicos] & "" mas também não deu certo :/
	Patrick Nascimento.

ptknascimento Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Novato Registrado: 01 Nov 2011 Localização: Botafogo Conectado: Desconectado Mensagens: 25	Opções de Post Responder Citação de ptknascimento Citação de Reposta Enviado: 11 Mai 2012 as 10:18
	Ok eu consegui...agora tenho consegui, na consulta eu tirei o relacionamento com a tabela funcionário porém... Sem esse relacionamento o resgistro fica salva no tabela de serviços técnico não o serviço não fica salva na tabela do técnico (onde fica os dados do técnico, nome, mat, tel...) O que tenho que fazer pra salvar a lista em um campo onde a coluna é de consulta??
	Patrick Nascimento.

ptknascimento Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Novato Registrado: 01 Nov 2011 Localização: Botafogo Conectado: Desconectado Mensagens: 25	Opções de Post Responder Citação de ptknascimento Citação de Reposta Enviado: 11 Mai 2012 as 14:20
	up! Alguém?
	Patrick Nascimento.

Alexandre Neves Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Super Avançado Registrado: 30 Mai 2007 Localização: Portugal Conectado: Desconectado Mensagens: 2534	Opções de Post Responder Citação de Alexandre Neves Citação de Reposta Enviado: 11 Mai 2012 as 17:53
	Boa noite, Patrick Disponibilize a parte da bd que seja necessária para testar.
	Pasta eSnips Indique quem criou o código ou quem o adaptou (ou os dois, se for o caso). NÃO ENCONTRA CÓDIGO MAIS BARATO. Neves

fghjkl Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Novato Registrado: 17 Mai 2012 Conectado: Desconectado Mensagens: 0	Opções de Post Responder Citação de fghjkl Citação de Reposta Enviado: 18 Mai 2012 as 00:00
	Adidas jeremy scott, the famous fashion designer in New York. 21-year-old in 1997 he founded his own fashion brand, in Paris fame. Jeremy Scott by the impact of popular culture, his distinctive and audacious character he created the works of many shocking fashion. Adidas JS Wings GID,as an impact of one of the far-reaching and comprehensive artist, Jeremy Scott and the numerous front-line singers and the fashion magazine. He also designed not to dual-star adidas js wings* shoes, loved by the stars, in addition to the 2006 Le Pliage ? canvas bag Longchamp design He also recently launched partnership with Adidas Originals series in the jeremy scott wings.Jeremy Scott Longchamp's reflections: "I love the the Longchamp quality and traditions. jeremy scott adidas.combined with a stylish, sophisticated and handsome in status, such as French croissants and the Eiffel Tower is the symbol of France.Jeremy Scott designed the adidas wings bold and innovative design is evident in him, the said fashion designer.

JPaulo Perfil Enviar mensagem privada Encontrar Post deste Membro Site Adicionar a lista de amigos Super Avançado Registrado: 26 Set 2006 Conectado: Desconectado Mensagens: 7947	Opções de Post Responder Citação de JPaulo Citação de Reposta Enviado: 18 Mai 2012 as 06:56
	SPAM Algum Moderador por aqui, para banir este intruso ?
	JPaulo Maximo Access ® 2009

Le_lo28 Perfil Enviar mensagem privada Encontrar Post deste Membro Adicionar a lista de amigos Moderador Registrado: 06 Mai 2004 Localização: São Paulo Conectado: Desconectado Mensagens: 2033	Opções de Post Responder Citação de Le_lo28 Citação de Reposta Enviado: 18 Mai 2012 as 08:30
	JP, as providencias foram tomadas em relação ao intruso. Grande abraço, Marcelo
	Regras do fórum M@rcelo