Jump to content
kakalo

Combobox de pesquisa

Recommended Posts

kakalo

Boa tarde,

Tenho um subformulário que ao testar independente o combobox com pesquisa, acerta as colunas e funciona.

Quando este subformulario esta com o formulário dá erro:

"Você tentou atribuir o valor Null a uma variável que não é do tipo de dados Variant."

E abre o editor VBA na primeira linha (NomeFantasia)
 

Private Sub cbo_TipoFornecedor_Click()
   Me.NomeFantasia = cbo_TipoFornecedor.Column(1)
   Me.NomeServico = cbo_TipoFornecedor.Column(3)
   Me.TarifaCF = cbo_TipoFornecedor.Column(6)
'   Me.Refresh
End Sub


Já mudei, colocando de 1 a 10 (são 10 colunas)

Não entendo onde esta o erro.

Alguem pode ajudar?

Edited by kakalo
Outro problema, anterio já resolvido

Share this post


Link to post
Share on other sites
carlosAl

tenta na primeira linha escrever :   on error resume next

se nao funcionar , talvez seja porque o me.nomeFantasia nao admita campos de valor nulo

o que aparece na mensagem ? : msgbox(cbo_TipoFornecedor.Column(1))

 

 

Share this post


Link to post
Share on other sites
kakalo

Ola carlosAL,

Desculpe minha falta de conhecimento em VBA, mas como posso escrever esta linha " on error resume next"?

Share this post


Link to post
Share on other sites
carlosAl
Private Sub cbo_TipoFornecedor_Click()

on error resume next

msgbox( cbo_TipoFornecedor.Column(1))

Me.NomeFantasia = cbo_TipoFornecedor.Column(1)

Me.NomeServico = cbo_TipoFornecedor.Column(3)

Me.TarifaCF = cbo_TipoFornecedor.Column(6)

' Me.Refresh

End Sub

 

Share this post


Link to post
Share on other sites
carlosAl

tenta tambem colocar o codigo em outro evento, pois nao faz muito sentido o evento onClick.

talvez o evento depoisDeActualizar

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.