neopulse

He estado en similares situaciones, prueba esto. Private Sub cboDesarr_Click() On Error GoTo err_cboDesarr_Click Dim strSQL As String if cboDesarr <> "" then 'Los datos seleccionados en los combos y páginas idProducto = cboDesarr 'Genero la consulta...