Caixa de listagem

fabianofonseca_rn 24/3/2015, 20:35

fabianofonseca_rn: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 2
Registrado : 24/03/2015

Mensagem nº1

Caixa de listagem

Mensagem fabianofonseca_rn 24/3/2015, 20:35

boa tarde!

Galera preciso selecionar alguns dados de uma "caixa de listagem" e mover para outra, depois preciso fazer o insert desses dados.
Alguém pode me ajudar?

**good guy** 24/3/2015, 20:57

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº2

Caixa de listagem

Mensagem good guy 24/3/2015, 20:57

Olá Fabiano,

Use o método .AddItem:

Nota: Lembrando que as caixa de listagens tem que estar em propriedade Tipo de Origem de Linha: Lista de Valores
Chame este código a partir de um botão que vá fazer a transferência. Só sei até aqui que funfa legal. Copie esta dica porque é por tempo limitado porque depois vou deletá-la.

Private Sub cmdDireita_Click()
Call AdicionarItem

End Sub

Última edição por good guy em 4/7/2015, 00:27, editado 2 vez(es)

fabianofonseca_rn 25/3/2015, 12:52

fabianofonseca_rn

fabianofonseca_rn: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 2
Registrado : 24/03/2015

Mensagem nº3

Erro na última linha da função

Mensagem fabianofonseca_rn 25/3/2015, 12:52

bom dia good guy!

Obrigado pela atenção, usei o código que você passou e ta apresentando um erro "uso de Null inválido".
O que pode ser?

Obrigado.

**good guy** 25/3/2015, 14:10

good guy

good guy: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1304
Registrado : 05/02/2010

Mensagem nº4

Caixa de listagem

Mensagem good guy 25/3/2015, 14:10

Olá Fabiano,

Use a função Nz para cancelar o erro de campo nulo.

Me.Valor = Nz(......... )

**Noobezinho** 27/6/2015, 12:06

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012

Mensagem nº5

Re: Caixa de listagem

Mensagem Noobezinho 27/6/2015, 12:06

"Código deletado por causa de direitos autorais, pois se trata de código incluído em e-book que detém direitos autorais a minha pessoa."

Já pensaram se essa moda pega?

Quanto eu cobraria pelos meus exemplos aqui no fórum?

E não só eu, todos os que ajudam com exemplos ?

Acho melhor essa pessoa abrir um site de consultoria e cobrar por isso e não

entrar em grupos/fóruns de ajuda sobre MS Access.

Tenho dito

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.