Ayuda con mi programa de visual basic 6.0
Hola ojala me puedan ayudar con esto tengo un botón buscar en mi programa ligado a aun inputbox y esta es la codificación.
Private Sub Command2_Click()
buscado = InputBox("EL NUMERO DE ARTICULO A BUSCAR")
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
If Data11.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL REGISTRO")
Data11.Recordset.MoveLast
End If
fFunciona bien hasta que decido presionar el botón cancelar que se encuentra por default en el inputbox, ya que me manda este error.
Sintaxis error (missing operator) in expression.
Espero me puedan ayudar
Gracias.
Private Sub Command2_Click()
buscado = InputBox("EL NUMERO DE ARTICULO A BUSCAR")
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
If Data11.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL REGISTRO")
Data11.Recordset.MoveLast
End If
fFunciona bien hasta que decido presionar el botón cancelar que se encuentra por default en el inputbox, ya que me manda este error.
Sintaxis error (missing operator) in expression.
Espero me puedan ayudar
Gracias.
1 respuesta
Respuesta de carloscharly
1
Claro te dará error por esto:
buscando=
ahora si le das cancelar buscando valdra vacio ahora se va a esta linea
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
como buscando vale bacio pues esta buscando nada y eso no se debe dar, para eviitar eso puede usar esto
if buscando <>"" then
instruccion
end if
*************************************************
buscado = InputBox("EL NUMERO DE ARTICULO A BUSCAR")
if buscando <>"" then
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
If Data11.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL REGISTRO")
Data11.Recordset.MoveLast
End If
end if
buscando=
ahora si le das cancelar buscando valdra vacio ahora se va a esta linea
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
como buscando vale bacio pues esta buscando nada y eso no se debe dar, para eviitar eso puede usar esto
if buscando <>"" then
instruccion
end if
*************************************************
buscado = InputBox("EL NUMERO DE ARTICULO A BUSCAR")
if buscando <>"" then
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
If Data11.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL REGISTRO")
Data11.Recordset.MoveLast
End If
end if
