he modificado un poc oel codigo:
Código:
sql2 = "select p.clave AS clave from QSMTOWN.peticiones p, QSMTOWN.activos a where p.id_inventario=a.id_activo(+) and a.id_inventario = " & CLng(inventario)
Set rs = cnn.Execute(sql2)
Do While Not rs.EOF
If (rs("clave")) = "" Then
MsgBox "Dato null"
Else
inventaris.AddItem (rs("clave"))
rs.MoveNext
End If
Loop
en SQL2, al final donde pone "CLng(inventario)" inventario es el TextBox donde recojo el valor.
He cambiado esta linea de SQL2 por:
Código:
sql2 = "select p.clave AS clave from QSMTOWN.peticiones p, QSMTOWN.activos a where p.id_inventario=a.id_activo(+) and a.id_inventario = " & "'" & inventario & "'"
ahora si no pongo nada en el TextBox no me da el error pero no me salta el msgbox!!!!