Combobox de pesquisa

[kakalo 0]

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?

Editado 17 de Novembro de 2017 por kakalo
Outro problema, anterio já resolvido

[carlosAl 7]

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))

 

 

[kakalo 0]

Ola carlosAL,

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

[carlosAl 7]

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

 

[carlosAl 7]

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

talvez o evento depoisDeActualizar