Consulta numerica

[micayael]

Hola amigos

tengo un codigo que utilizo para hacer una busqueda de numerica por medio de una conexion por ado

Tengo una variabla sDato en donde voy a ingresar el codigo que busco y ptra sCriterio que va a ser lo que buscara (el criterio de busqueda)


Dim sDato As Integer
Dim sCriterio As String

sDato = InputBox("Ingrese Código a buscar ", "Busqueda")

If Not sDato = 0 Then
sCriterio = "idMarcaE = " & sDato
adoCarga.Recordset.Find sCriterio, 0, adSearchForward, 1

If adoCarga.Recordset.EOF Then
MsgBox "No Existe el Código"
adoCarga.Recordset.MoveFirst
End If
End If

Cundo le doy buscar a mi boton "Buscar" aparece el mensaje "Ingrese codi a buscar" y busca perfectamente pero, cuando cancelo esa operacion me sale un error de "No coinciden los tipos" y me marca

sDato = InputBox("Ingrese Código a buscar ", "Busqueda")

Yo creo que el problema es que sDato es numerico (y debe ser numerico) pero con un InputoBox se ingresa string y no integer.

Como puedo solucionar ese error.

[rafapaskual]

Hola,
Si te fias de lo que ponga el usuario y solo quieres que no te de el error lo puedes poner así:
sDato = Val(InputBox("Ingrese Código a buscar ", "Busqueda"))
Cancelar te devolverá 0. Pero si no te tocará crearte una variable de cadena y controlar los valores devueltos.

Saludos!

[micayael]

Muchisimas gracias amigo era la solucion que buscaba.

Un abrazo.

Micayael