inputbox - mensagem erro

[lsziulfa 0]

Olá pessoal, tenho um command que tem o seguinte código;Private Sub cmdpesquisar_Click()Dim Cod As IntegerCod = InputBox("Digite o Código", "Consulta")consultar_juridica (Cod)cmdalterar2.Enabled = Truecmdincluir.Enabled = Falsecmdexcluir.Enabled = TrueEnd Subquando eu ativo o evento click (clicar), abre a caixa do inputbox, se eu clicar em cancelar ele dá a seguinte mensagem:Run-time error '13'Type mismatchAlguém poderia dar uma força ????

[cassitos 2]

o inputbox quando clica no botão de cancelar, ele retorna uma string vazia.

c você está associando o resultado do input box a uma variável numérica então dará este erro mesmo.

 

você pode resolver:

 

Cod = val(InputBox("Digite o Código", "Consulta"))

[lsziulfa 0]

resolvi meu problema, valeu cara.....